UC知道inputbox怎么用，大家帮帮我啊。
来源：百度知道 编辑：UC知道 时间：2024/06/21 20:28:45
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(Input("输入基本工资", "计算工资", 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(Input("输入基本工资", "计算工资", 300))
x = Val(InputBox("输入本月营业额"))
sfgz = jbgz + x * 0.05
label1.text = "本月营业额为："&x&"基本工资为："&jbgz&vbcrlf
label1.text& = "本月实发工资为：" & sfgz
End Sub
End Class
怎么运行不了？？？哪里出问题了？
jbgz = Val(Input("输入基本工资", "计算工资", 300))
你应该将该语句中的Input改为InputBox。
label1.text& = "本月实发工资为：" & sfgz
这句应该是这样吧 label1.text= "本月实发工资为：" & sfgz
其它的暂且不讲，你这条语句就是错误的：
jbgz = Val(Input("输入基本工资", "计算工资", 300))
你应该将该语句中的Input改为InputBox。
input改成inputbox
label1.text改成label1.Caption