2个回答
展开全部
Private Sub Text1_Click()
Dim i As Integer
Dim t1 As String
Dim t2 As String
Text1.Text = ""
t1 = "一二三"
For i = 1 To 3
Text1.Text = Text1.Text & "," & InputBox("请输入第" & Mid(t1, i, 1) & "个数:", "输入框:")
Next
End Sub
Dim i As Integer
Dim t1 As String
Dim t2 As String
Text1.Text = ""
t1 = "一二三"
For i = 1 To 3
Text1.Text = Text1.Text & "," & InputBox("请输入第" & Mid(t1, i, 1) & "个数:", "输入框:")
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询