2019-2020学年高二信息技术上学期期中试题及答案

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