帮我看看这个VB代码 有什么错 为什么不能运行

来源：百度知道 编辑：UC知道 时间：2024/05/17 22:38:25
Private Sub commandl_Click()
Const A As Single = 1.5
Dim B As Single, D As Single
B = InputBox("输入""请输入苹果重量:""256,128")
D = B * A
E = D * 0.8
If B <= 2 Then Print "应付款"; D; "元"; Else Print ; "应付款"; E; "元"
End If
End Sub

应该没有什么错误的啊!
如果有的话,就是你的inputbox函数的格式了,这个我记的不清楚,最好你查查课本了.
不知道你是编译通过了没啊?应该可以通过的啊!
如果通过了没结果输出,检查屏幕是否太小,或者是用debug调试,
或者跟踪逐步运行就可以知道这个代码执行的全部过程了.

Private Sub Command1_Click()
Const A As Single = 1.5
Dim B As Single, D As Single
B = InputBox("输入""请输入苹果重量:""256,128")
D = B * A
E = D * 0.8
If B <= 2 Then
Print "应付款"; D; "元";
Else: Print ; "应付款"; E; "元"
End If
End Sub