有如下程序，该程序的执行结果是[ ]。

Private Sub Command1_lick()

F．or i= 1 To 4

x= 4

F．or j =1 To 3

x =3

F．or k=1 To 2

X= K+5

Next k

Next j

Next i

Print x

E．nd Sub

[单选题]有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click()D．im X As Integer，y As Integerx=1：Y=0D．o Until y<=25y=y+X*XX=X+1 ‘Loop ’ 。MsgBox“x一”＆X＆,“y=”＆yE．nd SubA．x=1，y=0B．x=4，y=25C．x=5，y=30D．输出其他结果

[单选题]设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(h()As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=C

[单选题]设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Cl

[单选题]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9

[单选题]下列程序执行的结果是______。 Private Sub Command1_Click() x=25 If x＞0 Then y=1 If x＞10 Then y=2 If x＞20 Then y=3 If x＞30 Then y=4 Print y End SubA．1B．2C．3D．4

[单选题]（25）下面程序的执行结果是Private Sub Command 1 Click()a=10F．or k=1 To 5 Step-1a=a-kNext kPrint a; kE．nd SubA．）-5 6B．）-5 -5C．）10 0D．）10 1

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

[单选题]有如下程序:Private Sub Command1_Click()a$="A WORKER IS HERE"x=Len(a$)F．or i=1 To x - 1b$=Mid$(a$, i, 3)If b$="WOR" Then S=S + 1NextPrint SE．nd Sub单击命令按钮，程序运行结果为A．1B．2C．3D．5

[单选题]有如下程序：Private Sub Command1_Click()a$="A WORKER IS HERE"x=Len(a$)F．or i=1 To x-1b$=Mid$(a$，i，3)If b$="WOR"，Then S=S+1NextPrint SE．nd Sub单击命令按钮，程序运行结果为AA．1B．2C．3D．5

[单选题]有如下程序。Private Sub Command1_Click()D．im a As SingleD．im b As Singlea=5: b=4C．all Sub1(a, b)E．nd SubSub Sub1(x As Single, y As Single)t=xx=t / yy=t Mod yE．nd Sub在调用运行上述程序后,a和b的值分别为A．0 0B．1 1C．2 2D．1 2