Question

VB中怎么从输入对话框中调用文本框中输入的数字？

Answer 1

Dim a

Private Sub Form_Load()

Command1.Caption = "修改"

End Sub

Private Sub Command1_Click()

a = InputBox("按确定后 输入的数字将替换文本框中的内容", "请输入数字", Text1.Text, 10)

If a = True Then Text1.Text = Val(a)

End Sub