接收从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。
Privme 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>i
B.i<max
C.num>max
D.num<max
[单选题]试题32窗体中有命令按钮Command32,其Click事件代码如下。该事件的完整功能是:接收从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。Private Sub Command32_Click()max=0max_n=0F.or i = 1 To 10Num=Val(InputBox(“请输入第“&i&”个大于0的整数:”))If ________ Thenmax = nummax_n = iE.nd IfNext iMsgBox(“最大值为第“&
[单选题]窗体中有命令按钮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]___ 。