执行以下Command1的Click事件过程在窗体上显示()
Private Sub Command1_Click()
Dim a
a = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)
Print a(1); a(3); a(5)
End Sub
A . a;b;c
B . b;d;f
C . a;c;e
D . 出错
[单选题]执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1 Click() Dim a a= Array("a", "b", "C", "d", "e", "f", "g") Print a(1); a(3); a(5) End SubA.ab;B.bdfC.aceD.出错
[单选题]执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click( ) Dim a a=Array("a" ,"b","c","d","e","f","g") Print a(1);a(3);a(5) End SubA.abcB.bdfC.aceD.出错
[单选题]执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click() Dim a a=Array("a","b","c","d","e","f","g") Print a(1); a(3); a(5) End SubA.abcB.bdfC.aceD.出错
[单选题]执行以下Command1的Click事件过程,在窗体上显示 Option Base 0 Private Sub Command1_Click() Dim a a = Array("a", "b", "c", "d", "e", "f", "g") Print a(1); a(3); a(5) End SubA.abcB.bdfC.aceD.出错
[单选题]执行以下command1的click事件,在窗体上显示的是()A . abcB . bdfC . aceD . 出错
[单选题]在窗体上添加一个命令按钮,名为command1,事件过程为:Private Sub command1_Click( )x=0D.o Until c=-1a= val(InputBox(“输入a的值”))b= val(InputBox(“输入b的值”))c= val(InputBox(“输入c的值”))LoopPrint aE.nd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是 ( )A.2B.3C.4D.5
[单选题]当执行以下过程时,在窗体上将显示( )。Private Sub Command1_Click( )Print "VB";Print "Hello! ";Print "VB"E.nd SubA. VBHello!VBB. VBH.ello!VBC. VBD. VBH.ello! VB Hello!VB
[单选题]在窗体中有一个命令按钮Command1,对应的事件代码如下: Private Sub Command1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox("请输入数据:","输入",1) If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("运行结果:a=
[单选题]执行以下Commaand1的Click事件过程在窗体上显示( )。 Option Base 0 Prinvate Sub Command1_Clcik() Dim a a=Array("a","b","C","d","e","f","g") Print a(1);a(3);a(5) End SubA.abcB.bdfC.aceD.出错
[单选题]单击窗体上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