程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub

A．2 5 8

B．7 4 1

C．8 5 2

D．3 6 9

[单选题]程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Integer Y=18：I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y/2 Loop Until Y＜1 For j=I-1 To 0 Step-1 Print A(j)； Next j End SubA．1 0 0 0B．1 0 0 1 0C．0 0 1 1 0D

[单选题]程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End SubA．32B．28

[单选题]有如下程序，单击command1后窗体显示结果是( )OptionBase1PrivateSubCommand1_Click()D．imaa=Array(1,2,3,4,5)F．ori=LBound( )ToUBound( )a(i)=i*a(i)NextiPrinti;UBound( )E．ndSubA．65B．625C．不确定D．程序出错

[单选题]已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（）。PrivateSubCommand1_Click（）Text1.Text="湖南省"&"计算机"+"等级考试"Text1.ForeColor=vbRedText1.BackColor=vbGreenText1.FontBold=TrueEndSubA . 湖南省计算机等级考试B . 计算机C . 等级考试D . 计算机等

[单选题]在窗体上添加一个命令按钮控件，名为Command1，事件过程如下，则执行结果是 Option Base 1 Private Sub Command1_Click() Dim a(5)As Integer Dim k As Integer Dim total As Integer a(1) = 2 a(2) = 5 a(3) = 4 a(4) = 10 a(5) = 6 For k = 1 To 5 Total = total + a(k) Next k Print total End SubA.

[单选题]下列程序段，运行后窗体上输出结果是( )。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

[单选题]单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1-Click() a$="software and hardware" b$=Right(a$，8) c$=Mid(a$，1，8) Msgbox a $,,b$；c$,1 End sub 则在弹出的信息框的标题栏中显示的信息是( )。A．software and hardwareB．softwareC．hardwareD．1

[单选题]下面的程序运行时，单击窗体后，窗体上显示的结果是（ ）。A．9 8 7 6 3 2B．2 3 6 7 8 9C．9 8 7 6 3D．2 3 6 7 8

[单选题]在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是( )。Option Base 1Private Sub Command1_Click()D．im a(5) As IntegerD．im k As IntegerD．im total As Integera(1)=2a(2)=5a(3)=4a(4)=10a(5)=6F．or k=1 To 5total=total+a(k)Next kPrint totalE．nd SubA．10B．15C．27D．35

[单选题]当Command1_Click事件发生时，窗体上显示的内容是 ______。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a = 0 Then x = x-1 Else If b ＜＞ 0 Then x = 7 Else x=x+8 End If If c ＜＞ 0 Then x = x-3 Else x = 4 End If Print x End SubA．7B．8C．4D．3