17.會(huì)員積分的計(jì)算.某超市會(huì)根據(jù)會(huì)員顧客的一次性消費(fèi)總額給予一定的積分,會(huì)員可在年終依據(jù)積分換得相應(yīng)的商品.每次消費(fèi)時(shí),計(jì)算機(jī)會(huì)自動(dòng)累加所購商品的總價(jià)并折算成積分. 超市折算積分的規(guī)則:如果總消費(fèi)額不足150元,就給1分積分;如果總消費(fèi)額達(dá)150元及以上,那么每40元消費(fèi)可以獲得0.5積分.如,某人消費(fèi)總額為150元,150/40=3.75,根據(jù)規(guī)則,積分為3*0.5=1.5分. 下列程序(流程圖如圖所示)可根據(jù)各種已購買商品的費(fèi)用(已經(jīng)保存在數(shù)組a中),計(jì)算總消費(fèi)金額(total)并折算成積分(ans),最后輸出總消費(fèi)額(顯示在標(biāo)簽Label2中)以及所獲得的積分總值(顯示在標(biāo)簽Label4中).則程序中橫線處應(yīng)分別填入: ①
②
③
Const n=10 Dim a(n) As Single Dim i As Integer Dim ans As Single,total As Single Private Sub Command1_Click total=0:ans=0 For i=1To n ①____ Next i If total<150Then ②____ Else ans=Fix(total/40)/2 End If Label2.Caption=Str(total) ③____ =Str(ans) End Sub.
. (3)在主程序Private Sub Command1_Click ( )中,主要采用的算法是:
. Dim n As Integer,a1As Integer,a2As Integer,a3As Integer Dim t As Boolean Function f(x) As Boolean End Function Private Sub Command1_Click n=Val(Text1.Text) For a1=2To n For a2=a1+1To n For a3=a2+1To n t=(a1+a2+a3=n) And f(a1)And f(a2)And f(a3) If t Then List1.AddItem (Str(a1)+““+Str(a2)+““+Str(a3)) End If Next a3 Next a2 Next a1 End Sub.