在窗体上画一个命令按钮和一个文本框,其名称分别为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=Sa
主观题
在窗体上画一个命令按钮和一个文本框,其名称分别为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=Sa