第1个回答 推荐于2016-03-04
Private Sub Command1_Click()
dim a as integer
a=inputbox("输入数字")
label1.caption=a
End Sub本回答被提问者采纳
第2个回答 2009-04-28
Private Sub Command1_Click()
Label1.Caption = InputBox("请输入数字")
End Sub
第3个回答 2009-04-28
Option Explicit
Private Sub Command1_Click()
Dim a
a = InputBox("prompt", "title")
Label1.Caption = a
End Sub
第4个回答 2009-04-28
Label1.Caption = InputBox("请输入数字")