在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编
写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。
发布于 2022-05-11 10:19:20
登录后免费查看答案
关注者
0
被浏览
19