下列程序的执行结果为______。Private sub Command1_ Click ( ) a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd Sub

A．50 50

B．150 50

C．200 200

D．10 10

[单选题]下列程序的运行结果为______。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd SubA．100B．500C．2500D．5000

[单选题]单击命令按钮时,下列程序的执行结果为Private Sub Command1_Click()D．im x As Integer, y As Integerx=12: y=32C．all PCS(x, y)Print x; yE．nd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10E．nd 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

[单选题]单击命令按钮时，下列程序的执行结果为 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 intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j ＞3 i = i+1 Loop until i＞17 Print Print intsumEnd SubA．14B．15C．14D．13

[单选题]下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd SubA．6 6B．5 8C．13 21D．34 55

[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()B．T 4E．nd SubPrivate Sub BT(x As Integer)x=x*2 + 1If x < 6 ThenC．all BT(x)E．nd Ifx=x  2Print x;E．nd SubA．15B．16C．17D．18

[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()D．im a As Integer, b As Integer, c As Integera=3∶b=4∶c=5Print SecProc(c, b, a)E．nd SubF．unction FirProc(x As Integer, y As Integer, z As Integer)F．irProc=2 * x + y + 3 * z+2E．nd FunctionF．unction SecProc(

[单选题]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，A)End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x

[单选题]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，A)End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Intege