关于inputbox的。。。VB的

VB编程中 关于inputbox函数

1、打开一个Excel的文件，在表格中输入简单的表格，比如衣服输入数据的表格。

2、接着，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择表单按钮控件。

3、然后，在表格中绘制出按钮控件，并修改按钮控件名称，比如输入名称，并鼠标左键单击【查看代码】按钮。

4、 接着，在弹出的在代码窗口中输入定义字符串变量的语句。

5、然后，在代码窗口中的，输入InputBox函数和赋值语句。

6、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，弹出输入窗口，可以输入数据了。

Dim a As Long, b As IntegerPrivate Sub Command1_Click()a = Val(InputBox("输入正整数a"))b = Val(InputBox("输入正整数a的幂次数b"))End SubPrivate Sub Command2_Click()MsgBox "a的b次方的结果 = " & a ^ bEnd Sub
二个按钮，二个InputBox输入框，一个MsgBox对话框，完全符合你的要求

虽然你没给分
你的错：
label 控件没有text属性，修改内容改caption的值

Private Sub Form_Click()
Dim sfgz, jbgz, x As Single
jbgz = Val(InputBox("输入基本工资", "计算工资", 300))
x = Val(InputBox("输入本月营业额"))
sfgz = jbgz + x * 0.05
Label1.Caption = "本月营业额为：" & x & vbCrLf & "基本工资为：" & jbgz & vbCrLf
Label1.Caption = Label1.Caption & "本月实发工资为：" & sfgz
End Sub