Question

二级VB的一道上机题

在Form1的窗体上绘制一个名为 Txt1的文本框；绘制一个名为Cmd1 的命令按
钮，其标题为“显示”，TabIndex属性设为 0。请为Cmd1设置适当的属性，使得当焦点
在Txt1上时，按<Esc>键就调用Cmd1的Click 事件，该事件过程的作用是在文本框中显
示“Visual Basic 考试”，程序运行结果如图 66-1 所示。
注意：程序中不得使用任何变量。文件必须存放在考生文件夹中，工程文件名为
vbsj1.vbp，窗体文件名为vbsj1.frm。
帮帮忙吧~~

Answer 1

新建窗体为Form1改名为vbsj1
添加一个text控件改名称为txt1,添加一个command1控件改名为cmd1
把以下代码复制进去就可以了，然后保存工程名为vbsj1.vbp
Private Sub Cmd1_Click()
Txt1.Text = "Visual Basic 考试"
End Sub
Private Sub Form_Load()
vbsj1.Caption = "显示"
Cmd1.Caption = "显示"
Txt1.Text = ""
Txt1.TabIndex = 0
End Sub
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
Call Cmd1_Click
End If
End Sub这样就可以了