填空题

阅读程序； Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) art = Array(268, 542, 693, 365, 489, 147, 852) a1 = arr(1) a2 = 1 If KeyAscii = 13 Then For a = 2 To 6 If arr(i) ＞ a1 Then a1 = arr(i) a2 = i End If Next i End If Print a1; a2 End Sub 程序运行后，按回车键；输出结果是______。

【参考答案】

693 3

<上一题目录下一题>

热门试题

填空题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：Private Sub Form_ Lead()ShowText1.Text = Text2.Text = Text2.SetFocusEnd SubPrivate Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer)Text1.Text = Text1.Text + Chr (KeyCode - 4)End Sub程序运行后，如果在Text2文本框中输入efghi，则Text1文本框中的内容是______。

单项选择题

在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = Text1. SetFocus End Sub Private Sub Command1 Click() Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。

A．abodefg
B．不显示任何信息
C．ABCDEFG
D．出错

相关试题