下列程序输出的结果为【】。Private Sub Commandl_Click（)Dim a As Booleana = TrueIf a Then GoTo

下列程序输出的结果为【 】。

Private Sub Command1 Click

Dim a As Boolean

a=True

If a Then GoTo 11 Else GoTo 22

11:

Print"VC"

22:

Print"VC"

End Sub

下列程序的输出结果为()。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub

A．4

B．5

C．6

D．7

窗体上有一个按钮和一个列表框，执行下列程序后的输出结果为【 】。

Private Sub Command1_Click()

List1.Addltem"China"

List1.Addltem"USA"

List1.Addltem"Japan"，1

Print List1.List(2)

End Sub

窗体上有一个按钮和一个列表框，执行下列程序后，输出的结果为 Private Sub Command1_Click() List1.AddItem "Visual" List1.AddItem "Basic" List1.AddItem "Programming", 1 Print list1.List(2) End Sub

A．Visual

B．Basic

C．Programming

D．2

单击命令按钮，下列程序段的输出结果为______。 Private Sub Command1_Click() Dim n As Integer n = 5 While n ＜= 10 n = n + 2 Print n; Wend End Sub

A．5 7 9 11

B．6 8 10

C．7 9 11

D．6 8 10 12

A.2 4 6 8

B.5 6 7 8

C.10 12 14 16

D.出错

执行下列程序后,鼠标单击窗体,输出结果为

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(ButtonAsInteger,Shift

As Integer, X As Single, Y As Single)

Print "Up"

End Sub

A．DownUpClick

B．ClickDownUp

C．DownClickUp

D．UpDownClick

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

A．1

B．True

C．False

D．2