Private Sub Command1_Click()
dim a as integer
a=inputbox("输入数字")
label1.caption=a
End Sub
Private Sub Command1_Click()
Label1.Caption = InputBox("请输入数字")
End Sub
Option Explicit
Private Sub Command1_Click()
Dim a
a = InputBox("prompt", "title")
Label1.Caption = a
End Sub
Label1.Caption = InputBox("请输入数字")