[单项选择]对窗体编写如下代码，当程序运行后，按回车键，输出结果为 ______。
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 Sub
A. 48
B. 237
C. 498
D. 498

更多"对窗体编写如下代码，当程序运行后，按回车键，输出结果为 ______。"的相关试题:

[单项选择]对窗体编写如下代码：
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
B. 237
C. 498
D. 498

查看答案

[单项选择]对窗体编写如下事件过程：　　Option Base 1 　　Private Sub Form_KeyPress (KeyAScii AS Integer) 　　arr=Array(12，15，18，20，24) 　　m1=arr(1) 　　m2=1 　　If fKeyAscii=12 Then 　　For i=2 To 5 　　　　If arr(i)＞m1 Then 　　　　　　　　m1=arr(i) 　　　　　　　　m2=i 　　　　End If 　　　Next i 　　End If 　　Print m1 　　Print m2 　　End Sub 　　程序运行之后按回车键，输出结果为( )。

查看答案

[单项选择]对窗体编写如下事件过程：　　Option Base 1　　Private Sub Form_KeyPress (KeyAScii AS Integer)　　arr=Array(12，15，18，20，24)　　m1=arr(1)　　m2=1　　If fKeyAscii=12 Then　　For i=2 To 5　　　　If arr(i)＞m1 Then　　　　　　　　m1=arr(i)　　　　　　　　m2=i　　　　End If　　　Next i　　End If　　Print m1　　Print m2　　End Sub　　程序运行之后按回车键，输出结果为

A. 12
B. 20
C. 18
D. 24

查看答案

[单项选择]在窗体上画一个按钮Command1，编写如下代码：
Option Base 1
Private Sub Command1_Click（　）
Dim a
a=Array(1，2；3，4)
j=1
For i=4 To Step-1
s=s+a(i)*j
j=j*10
Next j
Print s
End Sub
运行程序后，最后的输出结果为( )。
A. 1234
B. 12
C. 34
D. 4321

查看答案

[单项选择]在窗体上画一个文本框，然后编写如下代码：
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Start As Integer, Finish As Integer
Dim Sum As Integer
art=Array(12，4，8，16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
For i=Start To Finish
Sum=Sum+arr(i)
Next i
c=Sum/Finish
Text1.Text=c
End Sub
程序运行后，单击窗体．则在文本框中显示的内容是______。
A. 40
B. 10
C. 12
D. 16

查看答案

[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码：
Option Base 1
Prirate 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. 89
B. 99
C. 23
D. 77

查看答案

[单项选择]在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码：
Option Base 0
Private Sub Commandl_Click（　）
DimA(4)As Integer,B(4)As Integer
Fork=0 To 2
A(k+1)=InputBox(“请输入一个整数”)
B(3-k)=A(k+1)
Nextk
PrintB(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为( )。
A. 0
B. 2
C. 3
D. 4

查看答案

[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click（　） Dim a a=Array(1，2，3，4) j=1 For i=3 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是
A. 1234
B. 12
C. 34
D. 4321

查看答案

[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码： Option Base 0 Private Sub Commandl_Click（　） Dim A(4)As integer,B(4)As Integer For k=0 To 2 A(k+1)=InputBox("请输入一个整数") B(3-k)=A(k+1) Next k Print B(k) End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为【】
A. 0
B. 2
C. 3
D. 4

查看答案

我来回答:

提交