在窗体中添加一个名称为Command1的命令按钮、一个名称为Label1的标签，编写如下代码： Option Base 1 Private Sub Command1_Click( ) a=Array(23，34，25，46，35) ┊ End Sub 过程的功能是求数组a中是奇数的元素的个数，并把结果显示在标签中。为实现此功能，省略号处的程序段应该是

A．For i=0 T0 4 If a(i)Mod 2＜>0 Then b=b+1 End lf Next i Label1.Caption=b

B．For i=0 To 4 If a(i)Mod2=0 Then b=b+1 End lf Next i Label1.Caption=b

C．For i=1 To 5 If a(i)Mod 2 ◇Then b=b+1 End lf Next i Label1.Caption=b

D．For=0 To 5 If a(i)Mod 2=0 Then b=b+1 End lf Next i Label1.Caption=b

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程： Private Sub Command1_Click()s = 0For i = 0 To 15X = 2 * i - 1If X Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = s End Sub程序运行后，单击命令按钮，则标签中显示的内容为（）A . 1B . 5C . 27D . 45

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click( ) S=0 For i=1 To 15 x=2*i-1 1fx Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是A．1B．5C．27D．45

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：Private x As Integer Private Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = z End Sub运行程序后，

[单选题]在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序： Private Sub Commandl Click() Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 ( j b(j) = a(j) ( 3 Next j Text1.Text = b(j/2) End Sub 程序运行后，单击命令按钮，在文本框中显示A．25B．18C．36D．35

[单选题]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click( ) Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三

[单选题]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 运行程序，连续三次单击命令按钮后

[单选题]在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click( ) X=5：Y=3 Call proc(X，Y) Label1.Caption=X LabeLCaption=Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X=a*a Y=b+b End Su

[单选题]（ 30 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )a=0 : b=5 : c=6MsgBox a=b+cE．nd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A． ） l1B． ） a=11C． ） 0D． ） False

[试题]（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )Static b As Integerb=b+1E．nd Sub窗体打开运行后，三次单击命令按钮后，变量 b 的值是 ( 11 ) 。

[单选题]在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； ( ) Private Sub Commandl_Click() Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text="" Call Pl(x，y，z) TextText＝Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End SubA．0B．