随便写几条你看看
Private Sub Text1_Click()
Form2.Show
End Sub
Private Sub Command1_Click()'输入按钮
Form1.Text1.Text = Form1.Text1 & "1"
End Sub
Private Sub Command3_Click() '删除按钮
If Len(Form1.Text1.Text) > 0 Then
Form1.Text1.Text = Left(Form1.Text1.Text, Len(Form1.Text1.Text) - 1)
End If
End Sub
追问感谢你的回答,问题已解决。
祝你新年快乐!