Question

[VB代码]弹出输入框 输入内容显示在label1 当中

单击按钮 弹出输入框
输入数字 单击确定以后 输入的数字显示在label1 当中

求这个的代码
谢谢了

Answer 1

Private Sub Command1_Click()
dim a as integer
a=inputbox("输入数字")
label1.caption=a
End Sub

Answer 2

Private Sub Command1_Click()
Label1.Caption = InputBox("请输入数字")
End Sub

Answer 3

Option Explicit

Private Sub Command1_Click()
Dim a
a = InputBox("prompt", "title")
Label1.Caption = a
End Sub

Answer 4

Label1.Caption = InputBox("请输入数字")