有如下的程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegera=8b=3Calltest(6,a,b+1)Print主程序;6;a;bEndSubSubtest(xAsInteger,ByValyAsInteger,ByValzAsInteger)Print子程序;x;y;zx=2y=4z=3EndSub当单击Command1后,运行程序显示的结果是( )A.子程序643主程序684B.主程序643子程序684C.主程序684子程序683D.子程序684主程序643

有如下的程序:

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

a=8

b=3

Calltest(6,a,b+1)

Print"主程序";6;a;b

EndSub

Subtest(xAsInteger,ByValyAsInteger,ByValzAsInteger)

Print"子程序";x;y;z

x=2

y=4

z=3

EndSub

当单击Command1后,运行程序显示的结果是( )

A.子程序643主程序684

B.主程序643子程序684

C.主程序684子程序683

D.子程序684主程序643


相关考题:

有如下事件过程:Private Sub Command1_Click()Dim i As IntegerFor i=1 To 2DCNext iEnd SubSub DC()Dim x As Integer, m As StringStatic y, nx=x + 1y=y + 1m=m "*": n=n "#"Print x, y, m, nEnd Sub程序运行后,输出的结果是( )。A.1 1 * #1 1 * #B.1 1 * #1 2 * #C.1 1 * #1 1 * ##D.1 1 * #1 2 * ##

Command1_Click()事件代码如下: Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer,Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后,X和Y的值分别为 ______。A.6, 8B.10, 10C.10, 8D.6, 10

单击命令按钮时,下列程序的执行结果为 Private Sub Command1_click() Dim X As Integer,Y As Integer x=12:y=32 Call PCS(x,y) Print x;y End Sub Public Sub PCS(ByVal n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End SubA.12 32B.2 32C.2 3D.12 3

单击命令按钮时,下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer,y As Integer x=50:y=78 Call PPP(x,y) Print x;y End Sub Public Sub PPP(ByVal n As Integer,ByValm As Integer) n=n\10 m=m\10 End SubA.08B.50 78C.450D.78 50

单击命令按钮时,下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=12:y=32 Call PCS(x, y) Print x; y End Sub Public Sub PCS( ByVal n As Integer, ByVal m As Integer) n = n Mod 10 m=m Mod 10 End SubA.12 32B.2 32C.2 3D.12 3

单击命令按钮时,下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=12:y=32 Call Proc(x,y) Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End SubA.12 32B.2 32C.2 3D.12 3

设有Function过程:Private Function f(a As Integer, b As Integer) As Integera = a * a:b = b * bf = CInt(Sqr(a - b))End Function则如下程序段的运行结果是( )。Private Sub Command1_Click()Dim X As Integer, Y As IntegerX = 5: Y = 4a = f(X, Y)Print aEnd SubA. 5B. 4C. 3D. 9

若有如下程序:main(){int a=1,b=1;for(;a=9)break;if(b%3==1){b+=3;continue;}b+ 若有如下程序: main() { int a=1,b=1; for(;a<=10;a++) { if(b>=9) break; if(b%3==1) {b+=3;continue;} b++; } printf("%d,%d",b,a); } 则程序运行后的输出结果是( )。A.10,4B.7,3C.10,3D.11,3

窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Command 1_Click()Dim a As Integer, b As Integera=8b=12Print Fun(a, b);a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer)As Integera=a Mod 5b=b、5Fun=aEnd Function程序运行时,单击命令按钮,则输出结果是A)3 3 2B)3 8 2C)8 8 12D)3 8 12