Question

在VB程序设计中，老师要求我们编这样一个程序

在VB程序设计中，老师要求我们编这样一个程序
在某商场对所卖物品进行打折处理，要求用电脑记录所卖物品的所有记录，0到1000打9折
1000到2000打8折
2000到3000打7折
并对卖出物品的数量进行记录
我做了以下编程，但就是不能运行，老师帮我看一下错在哪里？麻烦了！~
Private Sub Command1_Click()
Dim a%, i%, s%
i = 0
a = InputBox("a=")
Do While ture
If a = -1 Then
Exit Do
End If
Select Case a
Case 0 To 1000
Print s = s + a * (0.9)
i = i + 1
Case 1000 To 2000
Print s = s + a * (0.8)
i = i + 1
Case 2000 To 3000
Print s = s + a * (0.7)
i = i + 1
Case Else
Print W
End Select
Print "s", "i"
Loop
End Sub

Answer 1

1、题目要求用电脑记录所卖物品的所有记录，并对卖出物品的数量进行记录 ！
那么输出结果到底是什么? 我很难读懂！
2、您对商品价格S也进行了累加，这有什么意义呢？
3、Do While ture 这个怎么循环呢？我看不懂！
4、对商品数量i进行累加，是不是应该在通用部分定义？

您看这样行吗？至少能运行！
Dim i%
Private Sub Command1_Click()
Dim a%, s%
a = InputBox("a=")
Select Case a
Case 0 To 1000
s = a * (0.9)
i = i + 1
Case 1000 To 2000
s = a * (0.8)
i = i + 1
Case 2000 To 3000
s = a * (0.7)
i = i + 1
Case Else
s = a
i = i + 1
End Select
Print s; i
End Sub
当然这个程序只是玩一玩，不具有实用性和可用性！