新华书店收银系统程序算法设计

可以用购物车这个概念吧，要买的书先放到购物车这个类表中，客户可以对购物车进行修改，结算的时候对购物车中的所有书统一结算，去超市看看就知道了，用哪个激光扫描q把所有货物扫描进一个表里面，然后在同一计算，最后要打印一个购物清单，合计小计实收找零

其实推荐你用数据库比较好，excel做这种效率低（还是可以做的，但是当商品数量越来越大时就会出现问题，或者当你录入信息时失误就更可怕了），至于数据库你可以直接用Access，其他也可以，只是用Access可以更快捷的把Excel的数据转为数据库。

用Excel代码有点难

Dim xlApp As Excel.Application '定义EXCEL类

Dim xlBook As Excel.Workbook '定义工件簿类

Dim xlsheet As Excel.Worksheet '定义工作表类

Dim UserDataBase(1 To 2000, 1 To 2) As String

Dim UserNum As Integer

Public OpenType As Boolean

Public SumPrice As Single

Private Sub Command1_Click()

UserNum = 1

ExcelFile = App.Path &"\1.xls" '定义Excel文件路径

Dim Price As Single

If Dir(ExcelFile) <>"" Then

Set xlBook = xlApp.Workbooks.Open(ExcelFile) '打开EXCEL工作簿

Do While xlBook.Sheets(1).Range("C" &UserNum) <>""

If Text1.Text = xlBook.Sheets(1).Range("C" &UserNum) Then

Price = CSng(xlBook.Sheets(1).Range("D" &UserNum)) * CSng(Text2.Text)

SumPrice = SumPrice + Price

List1.AddItem "商品名：" &xlBook.Sheets(1).Range("B" &UserNum) &"数量：" &Text2.Text &"价格：" &Price &"元"

Exit Do

End If

UserNum = UserNum + 1

Loop

If xlBook.Sheets(1).Range("C" &UserNum) = "" Then MsgBox "未找到条形码为" &Text1.Text &"的商品"

Else

MsgBox "文件未找到：" &ExcelFile

End If

End Sub

Private Sub Command2_Click()

MsgBox "合计：" &SumPrice &"元"

End Sub

Private Sub Form_Load()

Text2.Text = 1

Command1.Caption = "添加"

Command2.Caption = "合计"

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类

xlApp.DisplayAlerts = False

List1.Clear

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

xlApp.Quit '关闭EXCEL

Set xlApp = Nothing '释放EXCEL对象

End Sub

这段代码可以实现你需要的大部分功能了

两个文本框（1个输入条形码，一个输入数量），两个按钮（一个添加，一个合计），一个列表框（列出商品名，数量，单价。。。）

不想做删除物品的，也不想做重复使用的。

---