文中（3 ）处正确的答案是（）。 A．ADSLB．FTTCC．HFC D．FTTH

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

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 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，Y As Single) Print“Up” End Sub

A．DownUpClick

B．ClickDownUp

C．DownClickUp

D．UpDownClick

执行下列程序后，鼠标单击窗体，输出结果为 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，Y As Single) Print"Up" End Sub

A．DownUpClick

B．CfickDownUp

C．DownClickUp

D．UpDownClick

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

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, Y As Single）

Print " Up"

End Sub（）。

A．DownUpClick

B．ClickDownUp

C．DownClickUp

D．UpDownClick

设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果为【 】。

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。

编写如下程序： Private Sub Form_Click() a$="54321":b$="abcde" For j=1 To 5 Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。

A．a1b2c3d45e

B．a5b4c3d2e1

C．e1d2c3b4a5

D．1a2b3c4d5e

运行下列程序：

Private Sub form_Click()

For i = 1 To 4

t = t * 10 + i

s = s + t

Next i

Print s

End Sub

单击窗体后，则输出结果是()。

A.1234

B.4321

C.1370

D.4444

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。