（ 12 ）在窗体中有一个名为 Command12 的命令按钮， Click 事件的代码如下：该事件所完成的功能是：接受从键盘输入的 10 个大于 0 的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。

Private Sub Command12_Click( )

max=0

max_n=0

F．or i=1 To 10

num=Val(InputBox(" 请输入第 "& i &" 个大于 0 的整数： "))

If (num>max)Then

max= ___________

max_n= ___________

E．nd If

Next i

MsgBox(" 最大值为第 "& max_n&" 个输入的 "& max)

E．nd Sub

[试题]（ 11 ）在窗体中有一个名为 command 的命令按钮， click 事件的代码如下：private sub command1_click()f=0for n=1 to 10 step 2f=f+nnext nme!lb1.caption=fend sub单击命令按钮后，标签显示的结果是 ___[11]___ 。

[单选题]在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下：Sub Command1_Click()D．im student As studtypeD．im record_no As Integerrecord_no=1With student.ino=12.strname="smith".strsex="男".smark=89E．nd With_______Put # 1,record_no,studentC．lose # 1E．nd Sub要求在c: /

[单选题]在窗体上画一个名为Command1的命令按钮，其Command1_Click事件过程如下。 Sub Command1_Click() Dim student As studtype Dim record_no As Integer record n=1 With student .ino=12 .strname="Smith" .strsex=“男” .smark=89 End With ______ Put # 1，record_no，student Close # 1 End Sub 要

[试题]（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：Private Sub Command1_Click （）D．im b,kF．or k=1 to 6b=23+kNext kMsgBox b+kE．nd Sub打开窗体后，单击命令按钮，消息框的输出结果是 ( 15 ) 。

[单选题]（ 34 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：Private Sub Command1_Click()F．or i=1 To 4x=4F．or j=1 To 3x=3F．or k=1 To2x=x+6Next kNext jNext iMsgBox xE．nd Sub打开窗体后，单击命令按钮，消息框的输出结果是A． ） 7B． ） 15C． ） 157D． ） 538

[单选题]（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写如下事件代码：Private Sub Command1_Click( )m=2.17n=Len(Str$(m)+Space(5))Me!Text1 =nE．nd Sub打开窗体运行后，单击命令按钮，在文本框中显示A． ） 5B． ） 8C． ） 9D． ） 10

[单选题]（22）在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出 For i=1 To 4 For j=1 To 3 x= 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Text=Str(x)A.3 B.6 C.9 D.12

[单选题]在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出( )。F．or i=1 To 4F．or j=1 To 3x=3F．or k=1 To 2K=x+3Next kNext jNext iText1.Text=Str(x)A．3B．6C．9D．12

[单选题]在窗体上添加一个命令按钮，名为Command1，然后为该命令按钮编写如下事件过程，该过程执行结果为______。Option Base 1Private Sub Cemmand1_Click() Dim a As Variant a = Array(1, 2, 3, 4) j = 1 for i = 4 To 1 Step - 1 s = s+ a(i)* j j= j* 10 Next i Print sEnd SubA．4321B．1234C．34D．12

[试题]（ 12 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub s （ By Val p As lnteger ）p=p*2E．nd SubPrivate Sub Command1_Click()D．im i As Integeri=3C．all s(i)If i>4 Then i=i^2MsgBox iE．nd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 ( 12 ) 。