VB-解析算法及程序实现.pptVIP

解析算法;解析算法概念引入;1、某书店出租图书的费用标准如下：借书一天，收费2元，借书超过一天的，超过局部按每天0.8元收取，最后按四舍五入折算成整数。写出其程序代码。〔注：借书不到一天的，弹出“输入错误”对话框。〕;PrivateSubCommand1_Click()

DimnAsInteger

DimsAsInteger

n=Val(Text1.Text)

Ifn1Then

MsgBox输入错误

ElseIfn=1Then

s=2

Else

s=2+(n-1)*0.8)

EndIf

Text2.Text=Str(s)

EndSub;2、一张0.1毫米厚的纸张〔假设其足够大，可以一直折叠〕，请问经过次对折后它的厚度可以超过珠穆朗玛峰〔8848米〕？;PrivateSubForm_Click()

DimcAsInteger

DimdAsDouble

c=0

d=0.0001

DoWhiled=8848

d=2*d

c=c+1

Loop

Print对折;c;次后,纸张的高度将超过珠穆朗玛峰

EndSub;3、设计程序计算计程车日间资费

乘客A：车程为16公里，低速时间为4分钟

乘客B：车程为8.5公里，低速时间为6.5分钟

《上海小型出租车日间资费标准》

小型出租车起租价为12元，起租里程3公里，超起租里程单价每公里2.4元。超10公里〔不含10公里〕，超过局部按超起租里程单价加价50%。

计价器车资金额以元为单位显示，元以下尾数小于等于0.50元舍去，大于等于0.51元进“1元”。

出租车采用计时，计程并用的计价方式。当车速低于时速12公里或停车等候时，每5分钟计收1公里超起租价。〔假设在3公里以内没有低速情况〕

请同学们根据上海小型出租车计费标准，编写程序，计算两次出租车资费：

乘客A元

乘客B元;PrivateSubForm_Click()

Dimd,t,payAsInteger

d=Val(InputBox(输入车程(公里)))

t=Val(InputBox(输入低速时间(分钟)))

Ifd=3Then

pay=12

Else

Ifd=10Then

pay=12+(d-3)*2.4+t/5*2.4

Else

pay=12+(10-3)*2.4+(d-10)*(2.4+2.4*0.5)+t/5*2.4

EndIf

EndIf

pay=Int(pay+0.5)

Print您本次的出租车资费为：;pay;元

EndSub;某超市打折促销，规定如下：

①购物未超过500元按原价支付；

②购物超过500元但未超过1000元，超过500元局部按9折优惠计价；

③购物超过1000元但未超过1500元，超过1000元局部按8折优惠计价；

④购物超过1500元但未超过3000元，超过1500元局部按7折优惠计价；

⑤购物超过3000元，超过3000元局部按6折优惠计价。

根据以上规定，假定购物货款为x元，那么实付金额y为：

?;开始;Privatesubcommand1_click()

Dimxassingle,yassingle

x=val(text1.text)‘将输入的购物金额保存在变量x中

Ifx=500then

y=x‘购物金额不超500，不打折

Elseifx=1000then

y=500+(x-500)*0.9‘超出500缺乏1000局部打9折

Elseifx=1500then

y=500+500*0.9+(x-1000)*0.8‘1000到1500局部打8折

Elseifx=3000then

y=500+500*0.9+500*0.8+(x-1500)*0.7‘1500到3000局部打7折

Else

y=500+500*0.9+500*0.8+1500*0.7+(x-3000)*0.6‘超出3000局部打6折

Endif

Text2.text=str(y)

endsub;课堂小结;课堂作业：