诸暨中学2019学年高二期中考试技术试卷
第一部分 信息技术(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
1
5.下列表达式的运算结果与其他选项不同的是 A. 9 mod 18 \\ 8 B. Abs(Int(-6.8))
C. Asc(Mid(\D. Val(\
6.下列表达式能正确判断变量a中保存的是数字字符的是 A.not(a<=”0” or a>=”9”) B.Val(a)>=0 and val (a)<=9 C.a>=0 and a<=9 D.a>=”0”and a<=”9”
7.有50位同学排成一列,从第一位同学开始按1至9循环报数,则能正确表示第n位同学所报数字的VB表达式是
A.n B. n mod 9 C. (n-1) mod 9 +1 D. 9-(n-1) mod 9 8.某 VB 程序段如下:
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 = 2 To 6
If a(i) > key And a(i) < pmin then pmin = a(i) Next i
数组元素a(1)到a(6)的值依次为\,1,7,3,8,4\,执行程序后,变量pmin的值为
A. 1 B. 4 C. 7 D. 9
10.一组同学的英语听力成绩分别为24、27、16、15、24、18,下列采用排序算法及第二遍的排序结果分别为: 原始数据 第一遍 第二遍 第三遍 第四遍 第五遍 24 27 27 27 27 27 24 24 24 24 16 16 24 24 24 15 15 15 18 18 24 24 16 16 16 18 18 18 15 15 A. 冒泡排序,27 24 16 15 24 18
B. 冒泡排序,27 24 18 16 15 24
2
C. 选择排序,27 24 16 15 24 18 D. 选择排序,27 24 18 16 15 24
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
3