《浙江省杭州市西湖高级中学2018_2019学年高二信息技术4月月考试题》由会员分享，可在线阅读，更多相关《浙江省杭州市西湖高级中学2018_2019学年高二信息技术4月月考试题（20页珍藏版）》请在金锄头文库上搜索。
1、- 1 - 浙江省杭州市西湖高级中学浙江省杭州市西湖高级中学 2018-20192018-2019 学年高二信息技术学年高二信息技术 4 4 月月考试月月考试 题题 第一部分 信息技术（50 分） 一、选择题：一、选择题：本大题本大题 1313 小题，小题，第小题第小题 2 2 分，分，共共 2626 分。在每小题给出的四个选项中，只有一分。在每小题给出的四个选项中，只有一 个是符合题目要求的。个是符合题目要求的。 1.下列可作为 VB 变量名的是： （A） ab （B）False （C） cos （D）sum1 2.在 VB 语句 dim s(9) as integer 中，数组 s 的变量
2、个数和类型是： （A）9 整型 （B）10 整型 （C）9 单精度型 （D）10 单精度型 3.将数学表达式写成 VB 表达式，正确的是： zyx 2 （A） zyxsqr)( （B） zyx 2 （C）x2 b Then a = b Else b = a 则程序运行后的 a 和 b 的值分别是： （A）3 4 （B）3 5 （C）4 5 （D）3 3 8.某 VB 程序段代码如下： Private Sub Command1_Click() - 2 - a = Text1 For i = 1 To Len(a) b = Mid(a, i, 1) c = Chr(Asc(b) ) d = d +
3、 c Next i Text2 = d End Sub 如果在文本框 text1 中输入字符316100，则文本框 text2 中显示的值是： （A）316100 （B）6131 （C）001613 （D）3161 9.下面有关属性的说法正确的是： （A）对象的属性只能在程序运行前设置 （B）name 属性可以在程序执行时改变 （C）文本框控件的 text 属性可以省略 （D）label1.caption=1和 label1=1作用不一样 10.下面程序段是利用 For 语句给数组 a 赋值： For i= 1 To 6 a(i)=i+1 Next i 该程序段运行后数组元素 a(3)的值是：
4、 （A）2 （B）3 （C）4 （D）5 11.第 10 题程序运行后，变量 i 的值是： （A）7 （B）6 （C）1 （D）0 12.有一组数，依次为 3、2、8、5、9，若采用选择排序算法对其进行从大到小排序，其中排 序方向为从前向后，则第二趟的排序结果是: 原始数据 3 2 8 5 9 第一趟 9 2 8 5 3 第二趟 第三趟 9 8 5 2 3 - 3 - （A）9 2 8 5 3 （B）9 5 8 2 3 （C）9 8 2 5 3 （D）9 2 8 3 5 13.某 VB 程序段代码如下： Private Sub Command1_Click() Dim data(1 To 10
5、0) As Integer For i = 1 To 100 data(i) = Int(Rnd * 1000) Next num = Val(Text1.Text) For i = 1 To 100 If data(i) = num Then Exit For Next If i = 100 Then MsgBox 找到该数，是第 & i & 个数 Else MsgBox 该数不在数组中 End If End Sub 方框中的程序算法是： （A）二分查找 （B）冒泡排序 （C）递归算法 （D）顺序查找 二、综合题：二、综合题：本大题本大题 6 6 小题，小题，其中第其中第 1414 题题 2
6、 2 分，分，第第 1515 题题 4 4 分，分，第第 1616 题题 4 4 分分, ,第第 1717 题题 4 4 分分， 第第 1818 题题 5 5 分，分，第第 1919 题题 4 4 分共分共 1919 分。分。 14.下列 VB 程序运行时，在文本框 Text1 中输入 2，单击命令按钮 Command1 后，文本框 Text2 的内容是 。 第四趟 9 8 5 3 2 - 4 - Private Sub Command1_Click() Dim t As Single, h1 As Single, h2 As Single Const g = 9.8 t = Val(Text
7、1.Text) h1 = (g * t 2) / 2 h2 = Int(h1) Text2.Text = Str(h2) End Sub 15.“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是 347 千米，比近近 地点高度高 147 千米。求近地点的高度。程序设计界面和部分代码如下所示。 图 1 图 2 Private Sub Dim i, j As Integer A i = 347 B - 5 - j = i 147 C Text1.Text = Str(j) D End Sub （1）该程序开始运行时，直接得出近地点的高度，则在处应填 （2）程序运行时，出现图 1 所示错
8、误，对照图 2，修改一处程序以使此程序正确运行。 则修改 语句（选填：A/B/C/D）,修改后的语句为 16.下列程序的功能是：当用户点击窗体下方的“石头” （command1） 、 “剪子” （command2） 、 “布” （command3）任意一个按钮的时候，电脑也会在 Label1 上随机显示出一个石头、剪刀、 布（显示在 label1 上） ，程序判断出胜负（平局算负）将结果显示到 label3 上。 Private Sub Command1_Click() Label1.Caption = sj 计算机随机产生一个值 Label2.Caption = Command1.Capti
9、on If cp(Label1.Caption, Label2.Caption) Then 判断胜负 = 乙方负 Else Label3.Caption = 乙方胜 End If End Sub Function sj() As String 随机生成石头、剪刀、布 i = 随机生成 13 任一整数 If i = 1 Then sj = 石头 If i = 2 Then sj = 剪刀 If i = 3 Then sj = 布 - 6 - End Function _ 17.下列 VB 程序的功能是 ： 程序运行时， 单击按钮 Command1 随机产生 20 个范围在 11000（包 括 1
10、 和 100）的整数，并在列表框 List1 中显示，然后单击按钮 Command2，计算随机产生的 20 个整数中的最大值、最小值和平均值，并分别在 Text1、Text2 和 Text3 中显示，程序的运行 界面如图所示。请在划线上填入合适的代码: Const n = 20 Dim a(1 To n) As Integer Private Sub Command1_Click() Dim i As Integer Randomize For i = 1 To n a(i) = Int(Rnd * 1000) + 1 List1.AddItem Str(a(i) Next i End Sub
11、 Private Sub Command2_Click() Dim i As Integer, max As Integer Dim min As Integer, sum As Single max = a(1): min = a(1) sum = 0 For i = 2 To n If Then max = a(i) If a(i) min Then min = a(i) sum = sum + a(i) Next i Text1.Text = Str(max) Text2.Text = Str(min) Text3.Text = Str(sum) - 7 - End Sub 18.下列程
12、序的功能是对某校 2011 年 3 月份技术高考成绩进行排名分析，数组 a 中保存学生 技术考试的成绩，数组 b 中保存学生的姓名，第 i 个学生的技术成绩保存在 a(i)中，对应的 学生姓名保存在 b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表 框 List1 中显示的是所有学生到的原始数据，单击排序按钮（Command1）后，在右边的列 表框 List2 中显示排序完成后的结果（按成绩从高到低排列） 。 （1）虚线内程序段所采用的排序算法名称是 。 （2）程序加框处代码有错，请改正。 Dim a(1 To n) As Single 设共有 n 名学生 Dim b(1
13、 To n) As String Private Sub Form_Load() End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer Dim tmp As String , st As String For i = 1 To n For j = n To i + 1 Step -1 If a(j) a(j-1) Then tmp = a(j - 1) a(j - 1) = a(j) a(j) = tmp st = b(j - 1) b(j) = b(j - 1) b(j) = st End If Next j
14、Next i For i = 1 To n st = Str(a(i) + + b(i) List2.AddItem st - 8 - Next i End Sub 19数组a中存储的是左右交替上升的n个正整数，如下表所示： a(1) a(2) a(3) a(n - 2) a(n - 1) a(n) 3 25 38 55 31 12 依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但 加框处代码有错，请改正。 Private Sub Command1_Click() Const n = 6 Dim a(1 To n)As Integer, flag As Boolean Dim i As Integer, j As Integer, m As Integer, key As Integer 读取一组正整数,按上述规则存入数组a中,代码略。 key = Val(Text1.Text) i = 1 j = (n + 1) 2 flag = False Do While i j And Not flag (1) m = (i + j) 2 If key = a(m) Then flag = Tr
