Private Sub Command1_Click()
D.im a(20)As Integer
F.or j = 1 To 20 Step 2
a(j)= j
Next j
Print a(1)+ a(2)+ a(3)AAAAAAAAa
E.nd Sub
A. 4
B. 5
C. 6
D. 7
[单选题]( 30 )下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chE.nd SubPrivate Sub proc(ch As String)S= ””F.or k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sE.nd SubA. ) ABCDEFB. ) FEDCBAC. ) AD. ) F
[单选题](28)下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.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
[单选题]执行下列程序后,鼠标单击窗体,输出结果为Private Sub Form_Click()Print "Click";E.nd SubPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Print "Donw"E.nd SubPrivate Sub Form_MouseUp(ButtonAs Integer,Shift As Integer,X As Single,Y A
[单选题]执行下列程序后,鼠标单击窗体,输出结果为 Private Sub Form_Click() Print"Click": End Sub Private Sub Form_MouseDown(Button As Integer,Shift_As Integer,X As Single,Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer,Shift_As Integer,X As Single
[单选题]下列程序段运行后窗体上输出结果为( )。 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() 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()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
[单选题]( 14 )执行以下程序后输出的是Private Sub Command1_Click()C.h$= ” AABCDEFGH ”Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)E.nd SubA.)CDEFGHB.)ABCDC.)FGD.)AB
[单选题]执行以下Command1的Click事件过程在窗体上显示()Private Sub Command1_Click()Dim aa = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)Print a(1); a(3); a(5)End SubA . a;b;cB . b;d;fC . a;c;eD . 出错