- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间: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=π求出此圆锥体的体积。
②已知班级每位同学的其中成绩总分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 Int
您可能关注的文档
最近下载
- 最新电大《小学语文教学研究》机考题库及答案 .pdf
- 第9课 两宋的政治和军事 课件--2024届高考统编版历史一轮复习.pptx
- 车间主任管理知识手册.pdf
- GTS NX在岩土工程中的应用功能介绍-new.pptx
- 易流货运管理软件教程.doc
- 2023年09月广东南华工商职业学院公开招聘编外人员笔试历年高频考点-难、易错点荟萃附答案带详解.pdf
- 2024年招录考试-大学毕业生士兵提干考试历年(2018-2023)真题荟萃附答案.docx
- 洞见社会真相的思考力修炼&少数派思维高手深度思考的秘密.pdf
- 2023年12月全国大学英语CET四级真题和答案解析(全三套).pdf
- 建筑设备工程教学课件电子教案全套课件.pptx
文档评论(0)