2019-2020学年高二信息技术上学期期中试题及答案
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
2019-2020学年高二信息技术上学期期中试题及答案第一部分信息技术(50分)
一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分)
1.如右图所示程序界面中共有几类对象
A.3
B.4
C.5
D.6
2.一个Visual Basic工程的部分设计界面如图所示,下列选项中错误的是
A.窗体的Caption属性值是Form1
B.当前选中的对象类型是图像Image
C.当前对象显示的图片可以通过代码修改
D.当前选中对象的名称是Image
3.第一题图中为使窗体运行时显示标题“四则运算”,可在()
事件过程中添加语句:Form1.caption=”四则运算”
A.Form1.load
B.Form1_load
C.Form_load
D.Form.load
4.某算法的部分流程图如下图所示。执行这部分流程后,输出ans的值是
A.64
B.128
C.256
D.512
5.下列表达式的运算结果与其他选项不同的是
A.9mod18\8
B.Abs(Int(-6.8))
C.Asc(Mid("789",1,1))
D.Val("9")-Sqr(4)
6.下列表达式能正确判断变量a中保存的是数字字符的是A.not(a<=”0”or a>=”9”)
B.Val(a)>=0and val(a)<=9
C.a>=0and a<=9
D.a>=”0”and a<=”9”
7.有50位同学排成一列,从第一位同学开始按1至9循环报数,则能正确表示第n位同学所报数字的VB表达式是
A.n
B.n mod9
C.(n-1)mod9+1
D.9-(n-1)mod9
8.某V B程序段如下:
Private Sub Command1_Click()
Dim x As Integer
x=Val(Text1.Text)
x=x\2+1
Text1.Text=Str(x)
End Sub
程序运行时,在文本框Text1输入13时,连续两次单击命令按钮Command1后,文本框Text1中显示的内容是
A.6
B.7
C.4
D.5
9.有如下程序段:
Key=5:pmin=a(1)
For i=2To6
If a(i)>key And a(i) Next i 数组元素a(1)到a(6)的值依次为"9,1,7,3,8,4",执行程序后,变量pmin的值为 A.1 B.4 C.7 D.9 10.一组同学的英语听力成绩分别为24、27、16、15、24、18,下列采用排序算法 A.冒泡排序,272416152418 B.冒泡排序,272418161524 C.选择排序,272416152418 D.选择排序,272418161524 11.有如下程序段: i=1 Do while i<=2 j=1 Do while j<=7-i If a(j)>a(j+1)Then t=a(j):a(j)=a(j+1):a(j+1)=t End If j=j+1 Loop i=i+1 Loop 数组元素a(1)到a(7)的值依次为“44,24,33,67,77,58,12”,经过该程序段“加工”后,数组元素a(1)到a(7)的值依次为 A.24,33,44,58,12,67,77 B.12,24,33,67,77,58,44 C.12,24,44,33,58,67,77 D.44,24,33,58,12,67,77 12.有如下VB程序段: i=1:j=8:n=0 Key=Val(Text1.Text) Do While i<=j m=(i+j)\2 if a(m)=Key then exit do‘exit do表示退出循环 If a(m)>Key Then j=m-1:n=n-1 Else i=m+1:n=n+1 End If Loop 当在文本框Text1中输入不同的值时,程序段执行后,变量n 的值有几种不同的情况 A.5 B.6 C.7 D.8 二、填空题(13题6分,14题6分,15题7分,16题7分) 13.编写VB程序,实现如下功能:在文本框Text1中输 入十六进制数,单击“转换”按钮Command1,在列 表框List1中输出对应的十进制数,运行界面如图所 示,程序代码如下。 (1)为实现上述功能,请在划线处填入合适的代码。Private Sub Command1_Click() Dim s As String,c As String,t As String Dim i As Integer,b As Integer,ans As Long Dim flag As Boolean s= b=Len(s) flag=True ans=0 For i=1To b c=Mid(s,i,1) If c>="0"And c<="9"Then ans=ans*16+val(c) ElseIf c>="A"And c<="F"Then ans= Else '输入有误的情况 Exit For End If Next i If flag Then t=Str(ans)Else t="输入有误!" List1.AddItem s+"-->"+t