小李父母開了一家農家樂,顧客可以到桔園自摘桔子,收費標準是門票每人20元,采摘的桔子每斤10元,付費時若能完成小游戲則有優(yōu)惠。
用VB軟件設計的自摘收費程序,功能如下:在文本框Textl中輸入自摘的人數n,在文本框Text2中輸入摘得桔子重量w。界面右上方是小游戲部分,程序在文本框Text3顯示隨機產生的桔子層數m,根據圖中所示的堆桔子方法(第1層1個;第2層4個;第3層9個……),請顧客計算出m層桔子總數s,輸入到文本框Text4中,單擊“是否優(yōu)惠計算”按鈕Command1,就會在標簽Label4中輸出最后的費用f,并在標簽Label7中給出提示是否“優(yōu)惠后的費用”。運行效果如第17題圖所示:
(1)自摘收費程序所用的算法是
解析算法
解析算法
(填:解析算法/枚舉算法)。
(2)為實現上述功能,請在劃線①和②處填入合適的代碼。
Dim m As Integer
Private Sub Command1_Click ( ?。?br />Dim n As Integer,s As Integer
Dim w As Single,f As Single
n=Val(Text1.Text)'輸入大人人數n
w=Val(Text2.Text)'輸入重量w
f=20*n+10*w'計算無優(yōu)惠的費用f
s=0
For i=1 To m'計算桔子總數
s=s+i*i
Next i
If s=
①
①
Then'判斷是否拿到優(yōu)惠計算費用
f=f*0.5+s*0.3'計算優(yōu)惠后的費用
Label7.Caption=“恭喜你,這是優(yōu)惠后的費用!“
Else
Label7.Caption=“很遺憾,你沒有算對哦!“
End If
Label4.Caption=Str(f)'輸出最后的費用f
End Sub
Private Sub Form_Load ( ?。?br />Randomize
m=
②
②
'隨機產生15層及以內的桔子層數不含0
Text3.Text=Str(m)
End Sub
(3)若3位顧客摘得5斤桔子,游戲中需要計算出3層桔子的總個數,但是他們沒有算對桔子個數,在text4中輸入了16,那么這3位顧客需付總費用
110
110
元。