- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
年第二学期高中信息技术选修模块《算法与程序设计》.doc
本溪市2011年第二学期高中信息技术选修模块
《算法与程序设计》期末试卷
考试时间:60分钟 满分:100分
一、单项选择题(本大题10小题,每小题2分,共20分)
1、小林同学想通过程序设计解决“韩信点兵”的问题,他制定的如下步骤,正确的是( )
A、设计算法,编写程序,提出问题,运行程序,得到答案 B、分析问题,编写程序,设计算法,调试程序,得到答案 C、分析问题,设计算法,编写程序,调试程序,得到答案 D、设计算法,提出问题,编写程序,运行程序,得到答案
2、以下关于算法的描述,正确的是( )
A、一个算法不允许有零个输入 B、一个算法只允许有一个输出
C、一个算法可以执行无穷个步骤 D、一个算法的每个步骤必须要确切地定义
3、下列各种基本数据类型说明符中表示整数型的是( )
A. Integer B. Boolean C. Single D. String
4、Visual?Basic工程文件的扩展名是??? A、.for B、.frm C、.vbp D、.bat
5、 在VB中,要想单击“结束”按钮时结束程序,可在该按钮的事件过程中输入代码EndA、Change B、KeyPress C、DblClick D、Click
6、下列常量说明中,符合语法的是( )
A、CONST color As red B、CONST const=10*5
C、CONST PI As Single=3.14 D、CONST color=abcd
7、下列选项中函数Mid(yesterday, 7, 3)的返回值是( )
A、yes B、ter C、day D、ds
8、下列VB的学习)返回值的是( )
A、7 B、5 C、9 D、11
9、字符串 ABCD 和字符串 DCBA 进行比较,如果让比较的结果为真,应选用关系运算符( )
A、 B、 C、= D、=
10、以下程序中的循环体执行的次数是(?)
Private Sub Command1_Click()
?? For A=1 To 100 Step 2
????? S=S+A
?? Next A
?? Print S
End Sub
?? A、48B、49C、50D、51 括起来的一串字符( )
3、MsgBox函数返回值的类型为数值( )
4、控件是应用程序的基本元素,与窗体共同构成应用程序的界面( )
5、在VB程序中,若有下面的程序其中print的作用是输出一个空行……
Print
……
6、在面向对象的程序设计中,对象是有着特殊数据(属性)与操作(行为)的实体( )
7、若a=10,b=20,执行a=b : b=a?后,a=20,b=10()( )
三、看图填空:下图是VB的标准工具箱,请在横线上写出对应的控件名称(每空2.5分,共10分)
四、完善程序(每个空5分,共20分)
1、计算1+1/2+……+1/50的值。
Private Sub Command1_Click()
Dim I As Double
s = 0
For i = 1 To
s =
Next i
Print S=; s
End Sub
2、程序界面如右图所示,在文本框Text1中输入一个十进制正整数,单击“转换”按钮command1后,对应的二进制数在标签label1中显示出来;之后命令按钮变为“再来一次”,又可再次进行转换。
Private Sub command1_click()
Dim nk As String
Dim n As Integer
Dim k As Integer
If Command1.Caption = 转换 Then
n = Val(Text1.Text)
Do While n 0
k = n Mod 2
nk = CStr(k) nk
Loop
Label1.Caption =
Command1.Caption = 再来一次
Else
Label1.Caption =
Text1.Text =
Text1.SetFocus
Command1.Ca
您可能关注的文档
最近下载
- 无人机驾驶员技能考核内容结构表二级.pdf VIP
- 中国康养产业消费趋势报告(2025).pdf VIP
- 小区消防设施维修方案.docx VIP
- 无人机驾驶员技能考核内容结构表一级.pdf VIP
- 第三单元 珍爱我们的生命 测试卷(含答案)道德与法治七年级上册(2024).doc VIP
- TSIOT 803-2020 虚拟现实用户界面设计规范.pdf VIP
- 医院保洁员感控培训课件.pptx VIP
- 【完整正版高清】T_CFLP 0016-2023《国有企业采购操作规范》【2023修订版】.doc VIP
- 2025年一级建造师之一建民航机场工程实务考试题库【历年真题】.docx VIP
- Reading explorer-F级教学精品课件-U3A.pptx VIP
文档评论(0)