15.某店鋪銷售運動類商品,根據銷售單售賣商品,然后更新庫存和統計銷售額。小商同學根據上述算法設計VB程序,讀入銷售清單數據(銷售清單存在數組sale,其中奇數位是商品名,偶數位是購買數量),單擊“計算”按鈕command1,若庫存充足則銷售成功,否則該單號作廢,最后在列表框list1降序輸出各商品剩余庫存和總銷售額。程序界面和代碼如下,回答下列問題: Dim goods(1 To 11)As String‘商品名,共11種 Dim num(1 To 11)As Integer‘庫存數 Dim prize(1 To 11)As Integer‘商品單價 Dim sale(1 To 160)As String‘共80個銷售單號 Private Sub Command1_Click ( ) Dim i As Integer,j As Integer,t2 As Integer Dim total As Integer,s as string,t1 As String total=0 For i=1 To 80 For j=1 To 11 If Then Exit For Next j If
Then num(j)=num(j)-Val(sale(i*2)) total=total+Val(sale(i*2))*prize(j) For k=1 To 10 If
Then t1=goods(k):goods(k)=goods(k+1):goods(k+1)=t1 t2=num(k):num(k)=num(k+1):num(k+1)=t2 t2=prize(k):prize(k)=prize(k+1):prize(k+1)=t2 End If Next k Else List1.AddItem Str(i)+“號單庫存不足“ End If Next i ‘在列表框list1輸出各商品剩余庫存,代碼略 List1.AddItem“總銷售額“+
16.有60個人要組建一個聚會,每人的喜好是一個數值,為提升聚會效果,會務組要把參會人員進行分組,分組原則是: (1)每組不超過8人 (2)組內新增人員的喜好值必須與現有組內人員的平均喜好值相差在5以內 (3)若新增人員無法加入現有小組,則被分入新組建小組 小V同學根據上述算法設計編寫了VB程序,界面如圖所示,單擊“分組”按鈕后,在列表框list1輸出分組結果,每組一行,回答下列問題: Dim a(1 To 60)As Integer'各人的喜好值 Private Sub Command1_Click ( ) Dim i As Integer,j As Integer,c As Integer,s as String Dim b(1 To 480)As Integer'分組后喜好值 Dim ave(1 To 60)As Integer,num(1 To 60)As Integer For i=1 To 60‘預設60個分組 num(i)=1 ave(i)=0 Next i c=1:ave(1)=a(1):b(1)=a(1) For i=2 To 60 For j=1 To c If Abs(a(i)-ave(j))<=5 And num(j)<8 Then ave(j)=
num(j)=num(j)+1 b(j*8-8+num(j))=a(i) Exit For End If Next j If
Then b(c*8+1)=a(i) ave(j)=a(i) c=c+1 End If Next i s=““ For i=1 To c For j=1 To
s=s+Str(b((i-1)*8+j)) Next j List1.AddItem s s=““ Next i End Sub Private Sub Form_Load
‘生成60個原始數據,存入數組a,數組b各元素初始化為0,代碼略 End Sub (1)如圖所示,當前數據已被分組,若再新增一個數“64”,會被分在第