有如下的程序：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