UC知道VB问题修改
来源：百度知道 编辑：UC知道 时间：2024/05/26 23:14:15
Private Sub Command 1_Click()
Dim g,p As integer
g = inputbox("g=","输入苹果的销售量")
If g>2 Then p = g * 5 * 0.8
If g<=2 Then p = g * 5
Print "应付";p;"元"
End Sub
商场销售苹果的VB程序，请大家帮忙修改其中的一个错误，实在找不出来。
Dim g,p As integer
g = inputbox("g=","输入苹果的销售量")
If g>2 Then p = g * 5 * 0.8
If g<=2 Then p = g * 5
Print "应付";p;"元"
End Sub
商场销售苹果的VB程序，请大家帮忙修改其中的一个错误，实在找不出来。
Dim g,p As integer
g = inputbox("g=","输入苹果的销售量")
改为：
Dim g As single,p As single
g = val(inputbox("g=","输入苹果的销售量")）
Private Sub Command1_Click()
Dim g As Integer
Dim p As Single '改变定义类型
g = InputBox("g=", "输入苹果的销售量")
If g > 2 Then p = g * 5 * 0.8 'p为integer（整形）与0.8冲突
If g <= 2 Then p = g * 5
Print "应付"; p; "元"
End Sub
'Command1 Command和1之间没空格
或者是
Private Sub Command1_Click()
Dim g, p As Integer
g = InputBox("g=", "输入苹果的销售量")
If g > 2 Then p = g * (5 * 0.8) '这里加（）
If g <= 2 Then p = g * 5
Print "应付"; p; "元"
End Sub
没错 除非是
Private Sub Command1_Click() <---------------------这里有空格
Dim g,p As integer
g = inputbox("g=","输入苹果的销售量")