Modern scientific researches have reported to us that ______.A．fat people eat less food an

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是()。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub

A．2 5 8

B．7 4 1

C．8 5 2

D．3 6 9

程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是()。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Integer Y=18：I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y\2 Loop Until Y＜1 For j=I-1 To 0 Step-1 Print A(j)； Next j End Sub

A．1 0 0 0

B．1 0 0 1 0

C．0 0 1 1 0

D．1 0 1 0 0

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是()。 Private Sub Command1_Click() Dim i As Integer,k As Integer Dim a(9) As Integer,p(2)As Integer k=5 For i=0 To 9 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Print k End Sub

A．20

B．21

C．22

D．23

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是()。 Option Base 1 Private Sub Command1_Click() Dim i As Integer Dim x(3，3)As Integer For i=1 To 3 For j=1 To 3 x(i,j)=(i-1)*3+j Next j Next i For i=1 To 3 Print x(i,4-i)； Next i End Sub

A．1 5 9

B．1 4 7

C．3 5 7

D．3 6 9

在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是

A．Basic

B．Visual

C．Cancel

D．True

在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码：

private Sub Command1 Click()

Dima(10,10)

Form＝2 To 4

Forrn＝4 To 5

a(m,n)＝m*n

Next n

Next m

MsgBoxa(2,4)+a(3,5)+a(4,5)

End Sub

打开窗体运行后，单击命令按钮，则消息框的输出结果是()。

A．23

B．33

C．43

D．53

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：

Private Sub Command1_Cliek

Dim b, k

For k = 1 to 6

b=23+k

Next k

MsgBox b + k

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是【 】。

（15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：

Private Sub Command1_Click （）

Dim b,k

For k=1 to 6

b=23+k

Next k

MsgBox b+k

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。

在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click()

A＝75

If A＜60 Then x＝1

If A＜70 Then x＝2

If A＜80 Then x＝3

If A＜90 Then x＝4

MsgBox x

End sub

打开窗体运行后，单击命令按钮，则消息框的输出结果是()。

A．1

B．2

C．3

D．4

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=l To 4 x=4 For j=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是()。

A．7

B．15

C．157

D．528