对窗体编写如下代码： 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 程序运行后，按回车键，输出结果为（）
- A499
- B237
- C498
相关推荐
-
1、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Co
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。A135B357C531D753
-
2、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Co
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在...
-
3、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Co
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() a：InputBox("Enter the First Integer") b：InputBox("Enter the Second Inteeer")...
-
4、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Co
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n...
-
5、在窗体上有一个命令按钮Commandl，编写事件代码如下： Private
在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl Click（ ） Dim dl As Date Dim d2 As Dated1=#12／25／2009#d2=#1／5／2010#Ms...
-
6、设有如下程序： Option Base 0 Private Sub For
设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End S...