下列程序的运行结果为______。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 Sub

A．100

B．500

C．2500

D．5000

[单选题]下列程序的执行结果为______。Private sub Command1_ Click ( ) a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd SubA．50 50B．150 50C．200 200D．10 10

[单选题]下列程序的运行结果是 ______。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()Print Fun(23, 18)E．nd SubPublic Function Fun(m As Integer, n As Integer) As IntegerD．o While m <> nD．o While m > n: m=m - n: LoopD．o While m < n: n=n - m: LoopLoopF．un=mE．nd FunctionA．0B．1C．3D

[单选题]单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m＜＞n Do While m＞n：m=m-n：Loop Do While m＜n：n=n-m：Loop Loop MyFund=m End FunctionA．0B．2C．4D．6

[单选题]下列程序段运行后窗体上输出结果为( )。 Private Sub Command1_Click() a=5: b=4: c=3: d=2 x=3＞2*b Or a=c And b＜＞c Or c＞d Print x End SubA．1B．TrueC．FalseD．2

[单选题]单击命令按钮时,下列程序的执行结果为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() a = 0 for 1=15 To 15 Step- 2 a = a +1 Next I Print a, IEnd Sub发生Command 1的单击事件后，程序的输出结果是 ______。A．0 13B．15 13C．0 15D．15 15

[单选题]单击命令按钮时,下列程序的执行结果是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