发布时间 : 星期日 文章浙江省金华第一中学2017-2018学年高二上学期第二次段考信息技术试题更新完毕开始阅读81235d192f3f5727a5e9856a561252d380eb203b
金华一中2017—2018学年第一学期第二次段考试卷
高二 技术
一、选择题（本大题共有10题，每题2分，共20分。选出各题中一个符合题意的正确选项，不选、
漏选、多选、错选均不给分）
1. 若要在列表框lst_MC中显示文本“金华一中”，下列语句正确的是（ ）
A. list1.additem = “金华一中” C. lst_MC.additem = “金华一中”
B. list1.additem(“金华一中”) D. lst_MC.additem “金华一中”
2. 能正确判断三个整数型变量a、b、c值相等的VB表达式是（ ）
A. a = b = c
B. a = b And a = c D. a – b - c = 0
C. a = c Or b = c Or a = b
3. 下列Visual Basic表达式中，能产生80到100之间（包括80和100）随机整数的是（ ）
A．Rnd() * 100
B．Rnd() * 100 - 20 D．Int(Rnd()*21)+80
C．Int(Rnd() * 20) + 80
4. VB程序中表达式 33 mod 17\\3*2的值为（ ）
A.10 B.1 C.2 D.3 5. 某算法的部分流程如图所示，执行这部分流程，结束时n的值为（ ）
A. 1
B. 2
C. 3
D. 4
6. 有如下VB程序段：
Dim a(l To 5) As Integer, i As Integer, c As Integer a(1) = 2 : a(2) = 4 : a(3) = 6 : a(4)=36 : a(5) = 72
s=0
For i = 2 To 5
If a(i - 1) ^2 = a(i) Then s = s + a(i) Next i
Text1.Text = Str(s)
该程序段运行后，文本框Text1中显示的内容是( ) A.4
B. 6
C. 8
D. 40
7. 有如下程序段： For i = 5 To 4 step -1 For j = 1 To i-1 If a(j) > a(i) Then
t = a(j): a(j) = a(i): a(i) = t End If Next j Next i
数组元素a(1)到a(5)的值依次为“3，1，4, 2 ,5”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( )
A. 1,2,3,4,5
B. 2,1,3,4,5 C. 3,1,2,4,5 D. 1,3,2,4,5
8. 某VB程序使用了递归函数，代码如下： Private Sub Command1_Click() N= val(Text1.Text)
Text2.Text = f(n) End Sub
Function f(x As Integer) As String
Dim t as integer
If x = 1 Then t = 1 Else t = val(f(x - 1)) + 2 f=str(t) End Function
在文本框Text1中输入3，运行程序并点击按钮Command1后，文本框Text2中显示的内容是（ ） A．1 B．5
C．135
D． 531
9. 有如下程序段：
tail = 6：i = 1：r = Val(Text1.Text) Do While i < r
For j = tail To i + 1 Step -1 If a(j) > a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t End If Next j i = i + 1
For j = i To tail - 1 If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j
tail = tail - 1 Loop
数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”，若在文本框Text1中输入“2”，则经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为 A. 73,61,56,92,44,28 C. 92,73,61,56,28,44
B. 92,73,56,61,44,28 D. 92,73,61,56,44,28
10. 有序（非降序）数组A有n个元素，用对分查找算法在数组A中查找key值所在的位置，如果有重
复的元素，则显示最早出现该key值的位置。相应的VB程序段如下： key = Val(Text1.Text) i = 1: j = n Do While i <= j m = (i + j) \\ 2 If a(m) > key Then j = m - 1
ElseIf a(m) < key Then i = m + 1 Else
If ① Then j = m - 1 Else
Label2.Caption = Str(key) + \的起始位置是\ Exit Do End If End If Loop
If i > j Then
Label2.Caption = \找不到\End If
要使程序实现上述算法思想，则方框中的语句是 A．a(m - 1) = key
C．m - 1 >= 0 And a(m - 1) = key
二、 综合题（本大题共有5题，共30分。）
11. 某同学编写一个“查找子串出现位置”的程序。功能如下：在文本框Text1中输入字符串s1，在文本框Text2中输入字符串s2，点击按钮Command1后在标签Label3上显示查找的结果。运行界面所示。
B．a(m) = key
D．m - 1 >= 0 And a(m) = key
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。 （2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click() Dim s1 As String, s2 As String Dim i as integer , j as integer s1 = Text1.Text s2 = Text2.Text
For i = 1 To Len(s1) - Len(s2) + 1