试题32

窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。

Private Sub Command32_Click()

max=0

max_n=0

F．or i = 1 To 10

Num=Val(InputBox(“请输入第“&i&”个大于0的整数：”))

If ________ Then

max = num

max_n = i

E．nd If

Next i

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

E．nd Sub

空白处应该填入的表达式是（）

A．num>1

B．i<max

C．num>max

D．num<max

[单选题]窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。Privme Sub Command32_Click()max=0max_n=0F．or i=1 To 10num=Val(InputBox("请输入第"&i&"个大于0的整数："))If______Thenmax=nummax_n=iE．nd IfNext iMsgBox("最大值为第"＆max_n&"个输

[单选题]窗体中有命令按钮Command1，事件过程如下：Public Function f(x As Integer)As IntegerD．im y As Integerx=20y=2f=x*YE．nd FunctionPrivate Sub Command 1_Click()D．im y As Integerstatic x As Integerx=10y=5y=f(x)D．ebug.Print x；yE．nd Sub运行程序，单击命令按钮，则立即窗口中显示的内容是( )。A．10 5B．10 40

[单选题]已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（）。PrivateSubCommand1_Click（）Text1.Text="湖南省"&"计算机"+"等级考试"Text1.ForeColor=vbRedText1.BackColor=vbGreenText1.FontBold=TrueEndSubA . 湖南省计算机等级考试B . 计算机C . 等级考试D . 计算机等

[单选题]设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）D．im a（30）As IntegerF．or i=1 To 30a（i）=Int（Rnd*100）NextF．or Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem>90 Then Exit ForNextE．nd Sub对于该事件过程，以下叙述中错误的是（ ）。A．a数组中的数据是30个100以

[单选题]设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）D．im a（3，3）As IntegerF．or i=1 To 3F．or j=1 To 3a（i，j）=i*j+iNext jNext iSum=0F．or i=1 To 3Sum=Sum+a（i，4-i）Next iPrint SumE．nd Sub运行程序，单击命令按钮，输出结果是（ ）。A．20B．7C．16D．17

[单选题]窗体中有命令按钮run34，对应的事件代码如下：Private Sub run34_Enter()D．im num As Integer,a As Integer,b As Integer,i As IntegerF．or i=1 To 10num=InputBox(“请输入数据：”，“输入”)If Int(num／2)=num／2 Thena=a+lE．lseb=b+1E．nd ifNext iMsgBox(“运行结果：a=“&Str(a)&”，b=”&Str(b))E

[单选题]窗体中有命令按钮Command1和文本框Text1，事件过程如下：F．unction result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseE．nd IfE．nd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)&“是偶数．”E．lseTextl=Str(x)

[试题]设有命令按钮Command1的单击事件过程,代码如下:Private Sub Command1_Click()D．im a As IntegerF．or i=1 To 30a(i)=iNextF．or Each arrItem [ ]aIf arrItem Mod 7=0 Then Print arrItem;If arritem>90 Then Exit ForNextE．nd 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．20B．7C．16D．17

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