缺少变量怎么弄

更新时间2019-04-07 05:36:02

 Private Sub Form_click() dim x as Double,dim Y as Double x = InputBox("请输入当前客户购买鸡蛋的重量(已公斤为单位)") If x < 3 Then Y = 7.6 * x Else Y = 7.6 * x * 0.8 End If Print Format(Y, "0.00") End Sub缺少变量怎么弄

你的

dim x as Double,dim Y as Double

写错了

要么用

dim x as Double

dim Y as Double

要么写成

dim x ,Y as Double

程序其它部分没有问题

测试结果