单项选择题

窗体上没有任何控件，有下列下列程序：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
　　a = Array(5, 2, 7, 6, 9)
　　x = a(1)
　　y = 1
　　If KeyAscii = 13 Then
　　　　For i = 2 To 5
　　　　　　If a(i)＞ ml Then
　　　　　　　　x = a(i)
　　　　　　　　y = i
　　　　　　End If
　　　　Next i
　　End If
　　Print x; y
End Sub

A．5　1
B．9　5
C．2　2
D．7　3
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z = x * x + y * y End Sub Private Sub Command1_Click( ) Dim a As Integer a = 8 Call sub1(1, 2, a) Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。
A．8
B．2
C．5
D．11
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click( ) Dim m As Integer, x As Integer x = 4 m = fun1(x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。
A．4
B．6
C．9
D．15
相关试题