（ 24 ）在窗体上画 1 个命令按钮，并编写如下事件过程：

Private Sub Command1_Click()

D．im a(3,3)

F．or m=1 To 3

F．or n=1 To 3

If n=m Or n=4-m Then

a(m,n)=0

E．nd If

Print a(m,n);

Next n

Print

Next m

E．nd Sub

运行程序，单击命令按钮，窗体上显示的内容为

A． ）

2 0 0

0 4 0

0 0 6

B． ）

2 0 4

0 4 0

4 0 6

C． ）

2 3 0

3 4 0

0 0 6

D． ）

2 0 0

0 4 5

0 5 6

[单选题]（ 23 ）在窗体上画 1 个命令按钮，并编写如下事件过程：Private Sub Command1_Click()F．or i=5 to 1 step -0.8Print Int(i);Next iE．nd Sub运行程序，单击命令按钮，窗体上显示的内容为A． ） 5 4 3 2 1 1B． ） 5 4 3 2 1C． ） 4 3 2 1 1D． ） 4 4 3 2 1 1

[单选题]在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1-Click()F．or i=5 To 1 Step-0．8Print Int(i)；Next iE．nd Sub运行程序，单击命令按钮，窗体上显示的内容为A．5 4 3 2 1 1B．5 4 3 2 1C．4 3 2 1 1D．4 4 3 2 1 l

[单选题]在窗体上画1个命令按钮，并编写如下事件过程iPrivate Sub Commandl—Click()D．im a(3，3)F．or m=1 T0 3F．0r n=1 To 3If n=m Or n=4-m Thena(m，n)=m+nE．lsea(m，n)：0E．nd IfPrint a(m，n)；Next nPrimNext mE．nd Sub运行程序，单击命令按钮，窗体上显示的内容为A．2 0 0B．2 0 4C．2 3 0D．2 0 0

[主观题]在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Cliek()D．im arr()As IntegerRe Dim arr(3)F．or i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字：")IfVal(x)＞4 ThenRc Dim arr(4)arr(4)=xE．nd IfMe.Print(arr(4)-arr(3))E．nd Sub程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为[ ]。

[单选题]（29）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )D．im I, NumRandomizeD．oF．or I=1 To 1000Num=Int(Rnd*100)Print Num;Select Case NumC．ase 12E．xit ForC．ase 58E．xit DoC．ase 65, 68, 92E．ndE．nd SelectNext ILoopE．nd Sub上述事件过程执行后，下列描述中正确的是（ ）。A．）Do 循环执

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：private sub command1_click()dima,basintegera=Val(inputbox("EntertheFirstinteger"))b=Val(inputbox("EntertheSecondinteger"))Printb+aend sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111，则输出结果是( )A．456B．111C．567D．111456

[主观题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()D．im Y as StringX=5Y=X & Space(3) & XPrint X；Print Trim(Y)；Len(Trim(Y))E．nd Sub该程序的执行结果是[ ]。

[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()F．or i=1 To 4x=4F．or j=1 To 2x=x+6NextNextPrint xE．nd Sub程序运行后,单击命令按钮,输出结果是A．12B．13C．16D．17

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()D．im I，NumRandomizeD．oF．or I=1 To 1000Num=Int(Rnd*100)PrintNum；SelectCase NumC．ase 12E．xit ForC．ase 58E．xit DoC．ase 65，68，92E．ndE．nd SelectNextILoopE．nd Sub上述事件过程执行后，下列描述中正确的是A．Do循环执行的次数为1000次B．在For循

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()F．or i=1 To 4x=4F．or j=1 To 3X=3F．or k=1 To 2x=x+6NextNextNextPrint xE．nd Sub 程序运行后，单击命令按钮，输出的结果是A．7B．15C．157D．538