VB解析算法及程序实现

3.1解析算法及程序实现 1.计算长方体体积的算法描述如下：(h) (z)、宽(w)、高①输入长方体的长 v = z * w * h ②计算长方形体积③输出结果④结束（）上述算法属于

A. 枚举算法

B. 排序算法

C. 解析算法

D. 递归算法

2.下列问题适合用解析算法求解的是（）

A.将十三张纸牌按从小到大进行排列

B.统计100内偶数的各位数字之和恰好为10的个数

C.计算一辆车行驶100公里的油耗

D.寻找本年级身高最高的同学

3.有如下问题：

12求出此圆锥体的体积。 V=πr ①已知圆锥的半径和高度h，使用公式hr3②已知班级每位同学的其中成绩总分s，按照s的值从大到小进行成绩排名。

③已知圆的周长s，利用公式r=s/(2*3.14)求出圆的半径。

④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。

用计算机解决上述问题时，适合用解析算法的是（）

A.①②

B.①③

C.③④

D.②④

4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：

流程图加框处部分的算法属于：（）

A.解析算法

B.排序算法

C.枚举算法

D.递归算法

程序实现如下功能：分别现要求编写VB5.中输入Text3、和Text1、Text2在文本框Command1单击三条线段的长度，“判断”按钮中显示判断结果。程序后，在标签Label1 运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click()

Dim a As Single ,b As Single

Dim c As Single ,st As String

a=Val(Text1.Text)

b=Val(Text2.Text)

c=Val(Text3.Text)

If Not (a + b > c And b + c > a And c + a > b) Then

st = “这三条线不能构成一个三角形” ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then

“可以构成一个直角三角形” st =

Then

① ElseIf

“可以构成一个等边三角形” st =

Else

st = “可以构成一个不等边的斜三角形”

End If

Label1.Caption = ②

End Sub

划线处应填写正确的语句是：

（1）划线处①

（2）划线处②

6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。请将下面划线处代码补充完整。

Private Sub Command1_Click()

Dim i As Integer

Dim s As Double

s=1

For i=2 To 100

s=

Next i

Text1.Text=Str(s)

End Sub

程序划线处应填入的内容是

VB程序代码如下：7.用解析算法求物体重力的Private Sub Command1_Click()

Dim g As Single

Dim m As Single

m=Val(Text1.Text)

g=m*9.8

label1.Caption=Str(g)

End Sub

程序界面如上图所示：中显示的后，标签Label1在文本框输入15，单击“计算”按钮Command1 内容是

8.根据臀围计算裤子尺寸的换算有以下公式：

①尺=厘米*0.03

②码=厘米*0.3+7

如臀围为90厘米，那么在购买时需要选2.7尺（90*0.03）也即34码（90*0.3+7）的裤子，下面VB程序可用于解决此实际问题，程序运行界面如下图所示：

运行程序，在文本框Text1中输入臀围，单击计算“计算”按钮Command1，在标签Label2中显示裤子购买的参考尺寸，程序代码如下：

Private Sub Command1_Click()

Dim n As Single

Dim c As Single

Dim m As Integer

n=Int(Val(Text1.Text))

c=n*0.03

m=

Label2.Caption=“你需要购买”+Str（c）+“尺（”+Str（m）+“）码是裤子”

End Sub

程序划线处应填入的内容是

元；借书超过一天的，9.某书店出租图书的费用标准如下：借书一天内，收费2程序算法结构与最后费用按四舍五入这算成整数。0.8元收取。超过部分按每天运行界面如下图所示。

程序用于解决此问题：下面VBPrivate Sub Command1_Click()

Dim n As Integer

Dim s As Single ①'

n=Val(Text1.Text)

If n<1 Then

MsgBox “输入错误”

ElseIf n=1 Then

s=2

Else

s=2+n*0.8 '②

End If

Text2.Text=Str(s)

End Sub

程序加框处代码有误，请修改以实现该程序的功能。

（1）加框①处应改为

（2）加框②处应改为

中分别输和Text2VB下列程序实现如下功能：程序运行时，在文本框Text110.的值，并在文本计算的值，单击命令按钮Command1后，调用函数fs入x和

n n23xxx??s?x???框Text3中显示计算结果。其中。!3n!!2Private Sub

Command1_Click()

Dim x As Single ,n As Single ,s As Single

x=Val(Text1.Text)

n=Val(Text2.Text)

s=f(x ,n)

Text3.Text= ①

End Sub

Function f(x As Single ,n As Single)As Single

Dim sum As Single ,i As Integer ,t As Single

sum=0

t=1

For i=1 To n

t=t*x/i

sum= ②

Next i

③

End Function

请在划线处填入合适的代码以实现该程序的功能。

（1）划线处①

（2）划线处②

（3）划线处③