由某市标准化行政主管部门制定，报国务院标准化行政主管部门和国务院有关行政主管部门备案的某一项标准，在国务院有关行政主管部门公布其行业标准之后，该项地方标准(15)。

执行下面的程序段，x的值为 Private Sub Commandl_Click() For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub

A．5

B．6

C．7

D．8

执行下面的程序段，x的值为【 】。 Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub

执行下面的程序段，x的值为【 】。

Private Sub Command1_Click()

For i=1 To 9

a=a+i

Next

x=Val(i)

MsgBox x

End Sub

执行下面的程序段，x的值为 Private Sub Command1_Click() For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub

A．5

B．6

C．7

D．8

执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8

单击命令按钮时，下列程序的执行结果是

Private Sub Command1_Click()

BT 4

End Sub

Private Sub BT(x As Integer)

x=x*2+1

If x＜6 Then

Call BT(x)

End If

x=x*2

Print x；

End Sub

A．15

B．16

C．17

D．18

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

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(ButtonAs Integer，Shift As Integer，X As Single，Y As Single)

Print "Up"

End Sub

A．DownUpClick

B．ClickDownUp

C．DownClickUp

D．UpDownCliek

有下列程序段，单击命令按钮执行程序后，输出结果为()。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub

A．148

B．40

C．-40

D．3.7

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

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