填空题

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

【参考答案】

ABCDE
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名为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．出错
单项选择题
编写如下事件过程： Private Sub FOrm_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Pint AAAA Then End If End Sub Private Sub Form_ MouseUp (Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print BBBB End Sub程序运行后，如果在窗体上单击鼠标右键，则输出结果为______ 。
A．AAAA BBBB
B．BBBB
C．AAAA
D．BBBB AAAA
相关试题