UC知道关于inputbox的。。。VB的
来源：百度知道 编辑：UC知道 时间：2024/06/08 07:31:10
Public Class Form1
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Dim sfgz, jbgz, x As Single
jbgz = Val(Inputbox("输入基本工资", "计算工资", 300))
x = Val(InputBox("输入本月营业额"))
sfgz = jbgz + x * 0.05
label1.text = "本月营业额为："&x&"基本工资为："&jbgz&vbcrlf
label1.text& = "本月实发工资为：" & sfgz
End Sub
End Class
怎么运行不了？？？哪里出问题了,请大家写个完整的给我看看了，谢谢了。
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Dim sfgz, jbgz, x As Single
jbgz = Val(Inputbox("输入基本工资", "计算工资", 300))
x = Val(InputBox("输入本月营业额"))
sfgz = jbgz + x * 0.05
label1.text = "本月营业额为："&x&"基本工资为："&jbgz&vbcrlf
label1.text& = "本月实发工资为：" & sfgz
End Sub
End Class
怎么运行不了？？？哪里出问题了,请大家写个完整的给我看看了，谢谢了。
虽然你没给分
你的错：
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