3.1解析算法及程序实现
1. 计算长方体体积的算法描述如下：
①输入长方体的长⑵、宽(w)、高(h)
②计算长方形体积v = z * w *h
③输出结果
④结束
上述算法届丁 ()
A. 枚举算法
B. 排序算法
C. 解析算法
D. 递归算法
2. 下列问题适合用解析算法求解的是( )
A. 将十三张纸牌按从小到大进行排列
B. 统计100内偶数的各位数字之和恰好为10的个数
C. 计算一辆车行驶100公里的油耗
D. 寻找本年级身高最高的同学
3. 有如下问题：
①已知圆锥的半径r和高度h,使用公式V=1兀r2h求出此圆锥体的体积。
3
②已知班级每位同学的其中成绩总分s,按照s的值从大到小进行成绩排名。
③已知圆的周长s,利用公式r=s/(2*3.14)求出圆的半径。
④已知“水仙花数”的定义，找出1〜10000范围内所有的水仙花数。
用计算机解决上述问题时，适合用解析算法的是( )
A.①②
B. ①③
C. ③④
D. ②④
4. 出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。
假定公
里数为x,金额为y.解决此问题的公式和流程图如下图所示：
J［10+2*(x-3X(x>3)
_________
I -- --- --- 1 ---- --- ---
之/ 输曲
I ~『了、
［结虽］
流程图加框处部分的算法届丁：( )
A.解析算法
B. 排序算法
C. 枚举算法
D. 递归算法
5. 现要求编写VB 程序实现如下功能：分别 在文本框 Textl 、Text2、和Text3中输入 三条线段的长度，单击“判断”按钮Comman 后，在标签Labell 中显示判断结果。
程序 运行界面如图：
按此要求编写的程序如下：
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 =
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
程序划线处应填入的内容是 ______________________________
“可以构成一个直角三角形” ① Then
“可以构成一个等边三角形”
“可以构成一个不等边的斜三角形”
7. 用解析算法求物体重力的VB程序代码如下:
Private Sub Command1_Click()
Dim g As Single
Dim m As Single
m=Val(Text1.Text)
g=m*9.8
label1.C aption=Str(g)
End Sub
程序界面如上图所示：
在文本框输入15,单击“计算”按钮Command后，标签Label1中显示的内容是____________
运行程序，在文本框Text1中输入臀围，单击计算“计算”按钮Command 1在标签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元收取。
最后费用按四舍五入这算成整数。
程序算法结构与运行界面如下图所示
下面VB程序用丁解决此问题：
Private Sub Command1_Click()
Dim n As Integer
Dim s As Single ~| ，①
n=Val(Text1.Text)
If n<1 Then
MsgBox "输入错误”
Elself n=1 Then
s=2
Else
s=2+n*0.8 | ，②
End If
Text2.Text=Str(s)
End Sub
程序加框处代码有误，请修改以实现该程序的功能
(1) 加框①处应改为
(2) 加框②处应改为
10. 下列VB 程序实现如下功能：程序运行时，在文本框Textl 和Text2中分别输 入x 和n 的值，单击命令按钮Command 后，调用函数f 计算s 的值，并在文本
2 3 框Text3中显示计算结果。
其中s x — —
2! 3! Private 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
Function f(x As Integer) As Single
' ① If x<=-1 Then f=x+2
ElseIf x>-1 And x<2 Then
f= Abs(x+3) ]
'② Else
f=2*x
End If
End Function
Private Sub Command1_Click()
Dim x As Single ,y As Single
x=Val(Text1.Text)
y=f(x)
Label3.Text=Str(y) |
，③
End Sub
加框处代码有误，请修正。
(1) 加框①处应改为
(2) 加框②处应改为
(3) 加框③处应改为End Function
请在划线处填入合适的代码以实现该程序的功能。
(1) 划线处①
(2) 划线处②
(3) 划线处③
n
---- O n! Command!
11. 按下面公式计算f的值：
x 2 x 1
f (x) x* 1 2 3 1 x 2
2x x 2
现要求编写VB程序(运行界面如图所示)，实现如下功能：在文本框Text1中输入x的值，单击“计算” Command 1在标签Label3中显示f的值。
按此要求编写的程序如下。