对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）A、499B、237C、498
对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）>mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）
- A、499
- B、237
- C、498
相关考题：
在窗体中有一个标签 Lb1 和一个命令按钮 Command1 ，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1_Click()a="1234"b=Len(a)Me.Lb1.Caption=bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A. 4B. 5C. 10D. 40
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（）Dim aa= Array（1,2,3,4,5）For i=1 To UBound（a）a（i）= a（i）+i-1NextPrint a（3）End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。A．4B．5C．6D．7
在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 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 s End Sub 运行上面的程序，单击命令按钮，其输出结果是______。A．4221B．1234C．34D．12
（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮后，其输出结果是A ） 4321B ） 1234C ） 34D ） 12
在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．1B．2C．3D．4
在窗体中添加一个名为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click( ) a＝75 If a＞60 Then k＝1 ElseIf a＞70 Then k＝2 ElseIf a＞80 Then k＝3 ElseIf a＞90 Then k＝4 EndIfA．1B． 2C． 3D． 4
在窗体上画一个命令按钮，然后编写如下代码：Private Sub Commandl_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是______。
在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim a(10)，P(3) As Integerk=5For i=1 To 10For i=1 To 3For i=1 To 3End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。A．400B．20C．441D．出错信息
在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。A．11B．a=11C．0D．False
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．空白B．错误提示C．北京D．上海
在窗体上画一今名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则窗体上输出的内容为 ______。A．89B．99C．23D．77
在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码： OpdOn Base1 Private Sub Commandl_CUck() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 Ifx(i)＞c Then d=d+x(i) c=X(i) Else d=d-c End If Next I Printd End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。A．89B．99C．23D．77
对窗体编写如下代码： Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) a=Array(237，126，87，48，498) m1=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)＞m1 Then m1=a(I) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果为______ 。A． 48 4B．237 1C．498 5D．498 4
在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click() Dim a 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 Sub程序运行后，单击命令按钮，其输出结果是______。A．4321B．1234C．34D．12
在窗体上画—个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。A．89B．99C．23D．77
假定窗体的名称为Form1，对该窗体编写如下代码： Private Sub Form_Load() Form1．Caption="计算机" Me．Caption="等级" Caption="考试" End Sub 程序运行后，窗体的标题是A．计算机B．等级C．考试D．Form1
对窗体编写如下代码，当程序运行后，按回车键，输出结果为 ______。 Option Base 1 Private Sub Form. KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = all) m2= 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i)＞m1 Then m1 = a(j) m2= i End If Next i End If Print m1 Print m2 End SubA．48 4B．237 1C．498 5D．498 4
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String * 10Private Sub Command1_Clicka = "1234"b = Len(a)Me.Lb1.Caption = bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A．4B．5C．10D．40
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub fun() Static a As Integer a=a+2 Print a； End Sub Private Sub Command1_Click() Dim m As Integer For m=1 To 3 Call fun Next m End SubA．2 2 2B．0 0 0C．2 4 8D．2 4 6
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)x Then Print a(i)； Next i End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A．1 2B．1 2 3C．3 4 5D．4 5
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A.4B.5C.1OD.40
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Option Base 1 Private Sub fun (a()As Integer，n As Integer) For i=1 To 2 t=a(i)：a(i)=a(5-i+1)：a(5-i+1)=t Next i End Sub Private Sub Command1_Click() Dim arr1(5)As Integer For i=1 To 5 arr1(i)=i Next i Call fun(arr1，5) Print arr1(1)；arr1(2) End SubA．1 2B．2 1C．5 4D．4 5
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为，( )。 Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byval z As Integer) z=x^3*y^3 End Sub Private Sub Command1_Click() Dim m As Integer Call fun(2，3，m) Print m End SubA．216B．0C．35D．程序不能运行
（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )Static b As Integerb=b+1End Sub窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。
单选题对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）A499B237C498