关于inputbox的。。。VB的
kuaidi.ping-jia.net 作者:佚名 更新日期:2024-09-11
VB编程中 关于inputbox函数
你的错:
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
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