单项选择题

窗体上没有任何控件，编写下列程序： 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)＞m1 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

<上一题目录下一题>

热门试题

单项选择题

下列程序是将两个文本框(text1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String，s2 As String S1=Text1.Text S2=Text2.Text For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入“ABCDE”，在Text2文本框中输入“12345”，单击命令按钮，则在Pic1图片框中显示的内容是

A．E5D4C3B2A1
B．ABCDE12345
C．12345ABCDE
D．A1B2C3D4E5

单项选择题

在窗体上画一个名称为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

相关试题