目前使用的杀毒软件的作用是检查计算机是否感染病毒，并清除已感染的所有病毒。（)A．正确B．错误

设有命令按钮Command1的单击事件过程,代码如下:

Private Sub Command1_Click()

Dim a As Integer

For i=1 To 30

a(i)=i

Next

For Each arrItem 【 】a

If arrItem Mod 7=0 Then Print arrItem;

If arritem>90 Then Exit For

Next

End Sub

请填空。

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。

A．20

B．7

C．16

D．17

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。

A．20

B．7

C．16

D．17

设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下：

Private Sub Command1 Click（）

Static x A S Integer

x=f(x+5)

Cls

Print X

End Sub

Private Function f(x As Integer)As Integer

f=x+x

End Function

连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（）。

A.10

B.30

C.60

D.70

设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：

Private Sub Command1_Click()

Static x as integer

X=f(x+5)

Cls

Print x

End Sub

Private function f(x as integer)as integer

F=x+x

End function

连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是

A)10

B)30

C)60

D)70

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1b Command1_Click（） Next i End Sub 窗体运行后，单击命令按钮Command1，Text1中显示的是______

（8 ）在窗体上画一个名称为 “ Command1 ” 的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a As String

a = "123456789"

For i = 1 To 5

Print Space(6 - i); Mid$(a, 【 8 】 , 2 * i - 1)

Next i

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。

（22 ）命令按钮 Command1 的单击事件过程的代码如下：

Private Sub Command1_Click()

Dim a(3 , 3)As Integer

For i=1 To 3

For j=1 To 3

a(i , j)=i*j+i

Next j

Next i

Sum=0

For i=1 To 3

Sum=Sum+a(i , 4-i)

Next i

Print Sum

End Sub

运行程序，单击命令按钮，输出结果是（）。

A ） 20

B ） 7

C ） 16

D ） 17

在窗体中有一个标签Labele，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：

Private Sub Command1,Click()

Labele.Caption＝"标签"

End Sub

Private Sub Form_Load()

Form.Caption＝"举例"

Command1.Caption＝"移动"

End Sub

打开窗体后单击命令按钮，屏幕显示()。

A．

B．

C．

D．