15.某店鋪銷售運(yùn)動(dòng)類商品,根據(jù)銷售單售賣商品,然后更新庫存和統(tǒng)計(jì)銷售額。小商同學(xué)根據(jù)上述算法設(shè)計(jì)VB程序,讀入銷售清單數(shù)據(jù)(銷售清單存在數(shù)組sale,其中奇數(shù)位是商品名,偶數(shù)位是購買數(shù)量),單擊“計(jì)算”按鈕command1,若庫存充足則銷售成功,否則該單號(hào)作廢,最后在列表框list1降序輸出各商品剩余庫存和總銷售額。程序界面和代碼如下,回答下列問題: Dim goods(1 To 11)As String‘商品名,共11種 Dim num(1 To 11)As Integer‘庫存數(shù) Dim prize(1 To 11)As Integer‘商品單價(jià) Dim sale(1 To 160)As String‘共80個(gè)銷售單號(hào) Private Sub Command1_Click ( ?。?br />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)+“號(hào)單庫存不足“ End If Next i ‘在列表框list1輸出各商品剩余庫存,代碼略 List1.AddItem“總銷售額“+
+“元“ End Sub Private Sub Form_Load
‘讀入數(shù)據(jù),存在各個(gè)數(shù)組,代碼略 End Sub (1)根據(jù)代碼和程序界面,本程序沒有哪類對(duì)象
16.有60個(gè)人要組建一個(gè)聚會(huì),每人的喜好是一個(gè)數(shù)值,為提升聚會(huì)效果,會(huì)務(wù)組要把參會(huì)人員進(jìn)行分組,分組原則是: (1)每組不超過8人 (2)組內(nèi)新增人員的喜好值必須與現(xiàn)有組內(nèi)人員的平均喜好值相差在5以內(nèi) (3)若新增人員無法加入現(xiàn)有小組,則被分入新組建小組 小V同學(xué)根據(jù)上述算法設(shè)計(jì)編寫了VB程序,界面如圖所示,單擊“分組”按鈕后,在列表框list1輸出分組結(jié)果,每組一行,回答下列問題: 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‘預(yù)設(shè)60個(gè)分組 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個(gè)原始數(shù)據(jù),存入數(shù)組a,數(shù)組b各元素初始化為0,代碼略 End Sub (1)如圖所示,當(dāng)前數(shù)據(jù)已被分組,若再新增一個(gè)數(shù)“64”,會(huì)被分在第