在窗体上画一个命令按钮和一个文本框(名称分别为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)+SaveAll
End Sub
Private Sub Form_KeyPress(keyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,直接用键盘输入“VB”,再单击命令按钮,则文本框中显示的内容为
题库:计算机等级考试
类型:最佳选择题
时间:2017-07-03 16:07:09
免费下载:《单项选择》Word试卷
在窗体上画一个命令按钮和一个文本框(名称分别为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)+SaveAll
End Sub
Private Sub Form_KeyPress(keyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,直接用键盘输入“VB”,再单击命令按钮,则文本框中显示的内容为
A.vbVB
B.不显示任何信息
C.VB
D.出错
本题关键词:金属窗框,钢窗框,单框双玻金属窗,个体性,个体识别,钢门窗框,木窗框料,金属窗,窗位置,人为属性;