代码如下：
Private Sub cmd1_Click()
textbox.Text =textbox.Text & "1"
End Sub
Private Sub cmd2_Click()
textbox.Text =textbox.Text & "2"
End Sub
Private Sub cmd3_Click()
textbox.Text =textbox.Text & "3"
End Sub
Private Sub cmd4_Click()
textbox.Text =textbox.Text & "4"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024