Question

vb如何点击按钮输入相应文字

点击1就显示1，点击1，2就显示12

Answer 1

Private Sub Command1_Click()
Text1.Text = Text1.Text & Command1.Caption
End Sub
 
Private Sub Command2_Click()
Text1.Text = Text1.Text & Command2.Caption
End Sub
 
Private Sub Command3_Click()
Text1.Text = Text1.Text & Command3.Caption
End Sub

Answer 2

Dim t As String
Private Sub Command1_Click()
t = Text1.Text + Command1.Caption
Text1.Text = t
End Sub

Private Sub Command2_Click()
t = Text1.Text + Command2.Caption
Text1.Text = t
End Sub

Private Sub Command3_Click()
t = Text1.Text + Command3.Caption
Text1.Text = t
End Sub

点击1，2显示12？就是点击后就在文本框中多加了一个数字吗？

那就Text内容用字符串连接就行

追问

代码是什么

追答

这，qq1939456628，加了，给你程序

追问

我已经知道了，很感谢您的热心

Answer 3

以第一个按钮为例，代码如下：
Private Sub Command1_Click()
Text1.Text = Text1.Text & Command1.Caption
End Sub

其中Command1.Caption，即Command按钮上显示的文本，如果是要显示其他内容，可将此部分替换成需要显示的内容。

Answer 4

使用控件数组。

追问

代码是什么

追答

控件数组制作计算器很方便。

代码参考楼上即可。