[单选题]

执行以下程序,在窗体上输出()。

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_Cli

[单选题]( 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_Cli

    [单选题](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

    [单选题]当执行以下过程时,在窗体上将显示( )。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_Cli

    [单选题]执行下列程序后,鼠标单击窗体,输出结果为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_Cli

    [单选题]执行下列程序后,鼠标单击窗体,输出结果为 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

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

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

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

    [单选题]( 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 Su

    [单选题]执行以下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 . 出错

  • 查看答案
  • 执行以下程序,在窗体上输出()。Private Sub Command1_Cli