小王模擬超市收銀機(jī)掃描商品條形碼后計(jì)算總價(jià)的過(guò)程制作了一個(gè)VB程序．功能如下：在文本框Text1中輸入商品條形碼，按回車鍵后會(huì)將已經(jīng)輸入的條形碼顯示在列表框List1中，同時(shí)將商品明細(xì)顯示在列表框List2中．點(diǎn)擊按鈕“計(jì)算商品總價(jià)”后，會(huì)將所有商品的總價(jià)顯示在文本框Text2中．程序界面如圖所示：

實(shí)現(xiàn)上述功能的部分VB程序如下，請(qǐng)?jiān)谌齻€(gè)橫線處填入合適代碼．
'定義全局?jǐn)?shù)組變量
Dim a（1To 10）As Long
Dim b（1To 10）As String
'自動(dòng)加載條形碼信息以及對(duì)應(yīng)的商品信息
Private Sub Form_Load
Dim i As Integer
a（1）=503741
For i=2To 10
a（i）=a（i-1）+1
Next i
b（1）=“可樂(lè) 5.00“
b（2）=“薯片 7.50“
b（3）=“牛奶 5.60“
b（4）=“橙汁 7.50“
b（5）=“面包 4.00“
b（6）=“蜂蜜 28.00“
b（7）=“蛋糕 12.00“
b（8）=“綠箭 3.50“
b（9）=“餅干 6.00“
b（10）=“雪碧 5.00“
End Sub
'輸入條形碼，查找條形碼，并顯示條形碼及其對(duì)應(yīng)的商品信息
Private Sub Text1_KeyPress（KeyAscii As Integer）
Dim txm As Long：
Dim i As Integer：
Dim j As Integer
txm=Val（Text1．Text）
If KeyAscii=13Then
If txm＞=503741And txm＜=503750Then
List1．AddItem txm
Text1．Text=““
i=1：j=10
Do While i＜=j
①

m=（i+j）\2

m=（i+j）\2

If txm=a（m） Then
List2．AddItem b（m）
Exit Do
ElseIf txm＞a（m） Then
i=m+1
Else
②

j=m-1

j=m-1

End If
Loop
Else
MsgBox“條形碼輸入錯(cuò)誤，無(wú)此商品“
Text1．Text=““
End If
End If
End Sub
'計(jì)算所購(gòu)商品的總額
Private Sub Command1_Click
Dim i As Integer,mx As String,jg As String,sum As Single
For i=0To 9
If List2．List（i）＜＞““Then
mx=List2．List（i）
sum=sum+Mid（mx,4）
End If
Next i
Text2．Text=③

Str（sum）

Str（sum）

End Sub.