在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：Dim Save All As StringPrivate Sub Commandl

试题正文

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：

Dim Save All As String

Private Sub Commandl_C1iCk()

Text1.Text=Left(UCase(SaveAU)，4)

End Sub

Private Sub Textl_KeyPress(KeyAscii As Intege)

SaveA11=Save All+Chr(KeyAscii)

End Sub

程序

答案

查看答案