VB解析算法及程序实现
- 格式：doc
- 大小：270.50 KB
- 文档页数：9
下载文档原格式
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
3.1解析算法及程序实现
1.计算长方体体积的算法描述如下：
①输入长方体的长(z)、宽(w)、高(h)
②计算长方形体积 v = z * w * h
③输出结果
④结束
上述算法属于（ ）
A. 枚举算法
B. 排序算法
C. 解析算法
D. 递归算法
2.下列问题适合用解析算法求解的是（ ）
A.将十三张纸牌按从小到大进行排列
B.统计100内偶数的各位数字之和恰好为10的个数
C.计算一辆车行驶100公里的油耗
D.寻找本年级身高最高的同学
3.有如下问题：
①已知圆锥的半径r 和高度h ，使用公式V= 3
1πh r 2求出此圆锥体的体积。 ②已知班级每位同学的其中成绩总分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.递归算法
5.现要求编写VB程序实现如下功能：分别在文本框Text1、Text2、和Text3中输入三条线段的长度，单击“判断”按钮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 = “可以构成一个直角三角形”
ElseIf ①Then
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
程序划线处应填入的内容是
7.用解析算法求物体重力的VB程序代
码如下：
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
程序界面如上图所示：
在文本框输入15，单击“计算”按钮Command1后，标签Label1中显示的内容是
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元收取。最后费用
按四舍五入这算成整数。程序算法结构与运行界面如下图所示。
下面VB程序用于解决此问题：
Private 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