资源简介

2020年4月7日高三周考试卷
专题：vb选择题
一、选择题（每道题2分，共26题，52分）
1 2 3 4 5 6

7 8 9 10 11 12

13 14 15 16 17 18

19 20 21 22 23 24

25 26


1.有如下VB程序段:
For i= 1 To 49
　　j=1:a(j)=a(j)+1
　　Do While a(j)=5
　　　　a(j)=0
　　　　j = j + 1
　　　　a(j) = a(j) + 1
　　Loop
Next i
数组a中各元素初始值均为0,该程序执行后,数组a中各元素之和为(　　)　　　　　 　　　　　　 　　　　　　
A.9 B.0 C.3 D.49
2.有如下VB 程序段:
s = 1
For i = 2 To 10 Step 3
　　s = s + i
Next i
则该程序段执行后,变量s 和i 的值分别是(　　)
A.16, 11 B.15, 13 C.55, 11 D.25, 13
3.有如下VB程序段:
c = 0 :i = 1
Do While i <=6
　　k = i
　　For j = i + 1 To 7
　　　　If a(j)<= a(k) Then k = j
　　Next j
　　If a(i) <> a(k)　Then
　　　t = a(i): a(i) = a(k): a(k) = t
　　　c = c + 1
　　End If
　　i = i + 1
Loop
数组元素a(1)到a(7)的值依次为“9,9,8,16,45,9,78”。该程序段执行后,变量c的值是(　　)
A.0 B.3 C.4 D.6
4.有如下VB程序段:
a(1) = 1
For i = 2 To 6
　Randomize
　a(i) = a(i - 1) + Int(Rnd * 5 + 1)
　If a(i) Mod 2 = 1 Then
　　 a(i) = a(i) \ 2 + 1
　Else
　　 a(i) = a(i) / 2
　End If
Next i
执行程序后,a数组各元素可能是(　　)
A.1 3 4 6 7 9 B.1 2 0 3 5 6
C.1 2 3 4 5 4 D.1 3 4 5 1 1
5.数组d(1)~d(100)中存储某班级50位同学的语文和数学成绩,奇数位存储语文成绩,偶数位存储对应该同学的数学成绩。该数组已经按照两科总成绩升序排序。依据对分查找思想,设计一个在数组a中查找总成绩Key的程序,如果查找成功输出语文成绩在数组中的位置。实现该功能的VB程序段如下:
Key = Val(Text1.Text)
i = 1: j = 100
Do While i <= j
　 m = (i + j) \ 2
　 If　(1)　Then m = m - 1
　 Sum = (2)
　 If Key = Sum Then Exit Do　'Exit Do表示退出循环
　 If(3) Then
　　　i = m + 2
　 Else
　　　j = m - 2
　 End If
Loop
If i > j Then Text2.Text = "没有找到!" Else Text2.Text = Str(m)
实现该功能,则上述程序段3个方框处的表达式分别为(　　)
A.(1)m Mod 2 = 1　 (2)d(m) + d(m - 1)　(3)Key < Sum
B.(1)m Mod 2 = 1　 (2)d(m) + d(m + 1)　(3)Key > Sum
C.(1)m Mod 2 = 0　 (2)d(m) + d(m - 1)　(3)Key > Sum
D.(1)m Mod 2 = 0　 (2)d(m) + d(m + 1)　(3)Key > Sum
6.有如下VB程序段:
For i = 1 To 9 Step 2
　b(a(i) Mod 10) = b(a(i) Mod 10) + 1
Next i
s = 0
For i = 0 To 9 Step 3
　s =s + b(i)
Next i
数组b各元素初始值为0, 数组元素a(1)到a(9)的值依次为“29,74,12,38,16,45,21,57,33”,则执行该程序段后,s的值为(　　)
A.5 B.4 C.3 D.2
7.有如下VB程序段:
Dim i As Integer, j As Integer, a(1 To 5) As Integer
For i =1 To 5
　a(i)=Int(Rnd*5+1)
　For j = 1 To i-1
　　　If a(i)=a(j) Then
　　　　i=i-1 : Exit For
　　　End If
　Next j
Next i
执行程序后,数组中的数据可能是(　　)
A.1 4 3 2 5 B.1 1 3 5 4 C.1 4 5 6 3 D.2 3 4 5 5
8.有如下VB程序段:
s = "123456789"
g = ""
For i = 1 To 3
　　n = Len(s)
　　x = Int(Rnd * n) + 1
　　g = g + Mid(s, x, 1)
　　s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)
Next i
在程序执行时,若变量x的值依次为3,3,6,则最终变量g的值为(　　)
A."336" B."346" C."348" D.15
9.有如下 VB 程序段:
For i=1 To 3
　　For j=1 To 5-i
　　　If a(j)>a(j+1) Then
　　　　t=a(j): a(j)=a(j+1): a(j+1)=t
　　　End If
　　Next j
　　Text1.Text = Text1.Text + Str(a(i))
Next i
数组元素 a(1)到 a(5)的值依次为“3,9,6,8,4”。该程序段执行后,文本框 Text1 显示的内容是(　　)
A.3 4 6 B.6 8 9 C.3 6 4 D.3 6 6
10.某VB程序段如下:
Function f(n As Integer) As Long
　If n = 1 Then
　　f =5
　Else
　　f =2 * f(n - 1) - 3
　End If
End Function
Private Sub Command1_click()
　Dim n As Integer
　n = Val(Text1.Text)
　Text2.Text = Str(f(n))
End Sub
该程序段运行后,在文本框Text1中输入5,单击命令按钮Command1后,文本框Text2中显示的是(　　)
A.18 B.35 C.63 D.123
11.某对分查找算法的VB程序段如下:
i = 1: j = 8: s = ""
key =Text1.Text
Do While i <= j
　 m =(i + j) \ 2
　 If key = a(m) Then
　　　s = s + "M"
　　　Exit Do
　 ElseIf key > a(m) Then
　　　j = m - 1: s = s + "L"
　 Else
　　　i = m + 1: s = s + "R"
　 End If
Loop
Text1.Text = s
数组元素a(1)到a(8)的值依次为“4,22,27,32,35,44,56,59”,该程序段执行后,文本框Text1中显示的内容不可能是(　　)
A.M B.LR C.RM D.LM
12.有如下VB程序段:
　For i = 1 To 3
　　k = ""
　　For j = 1 To 2 * i - 1
　　　k = k + " * "
　　Next j
　　List1.AddItem k
　Next i
该程序段运行后,在列表框List1中显示的是(　　)
A.*
***
***** B.*
**
*** C.***
***
*** D.***
**
*

13.下列程序执行后文本框Text1显示的内容是(　　)
s = "Inter(R) Core(TM) i3-4130 CPU @ 3.40GHz"
flag = False:k = 0
For i = 1 To Len(s)
　ch = Mid(s, i, 1)
　If ch >= "A" And ch <= "Z" or ch >= "0" And ch <= "9" Then
　　If Not flag Then
　　　k = k + 1
　　　flag = True
　　End If
　Else
　　flag = False
　End If
Next i
Text1.Text = Str(k)
A.6 B.9 C.10 D.18
14.有如下VB程序段:
Function GCD(m As Long, n As Long) As Long
　Dim temp As Long, r As Long
　If m < n Then temp = m: m = n: n = temp
　d = m - n
　Do While d <> n
　　If d >= n Then
　　　 m = d
　　Else
　　　 m = n
　　　 n = d
　　End If
　　d = m - n
　Loop
　GCD = n
End Function
Private Sub Command1_Click()
　 Text1.Text = Str(GCD(48,36))
End Sub
程序运行完后,单击Command1按钮,文本框Text1中显示的是　(　　)
A.12 B.18 C.36 D.48
15.有如下VB程序段:
Dim a(1 To 5) As Integer, i As Integer
Dim flag As Boolean,j As Integer
a(1) =1 : a(2) = 1 : a(3) = 1 : a(4)= 1 : a(5) = 1
Randomize
For i = 1 To 5
　j = 1: flag = True
　Do While j <= i - 1 And flag = True
　　a(i) = Int(Rnd * 5 + 1)
　　If a(i) = a(j) Then
　　　i = i - 1: flag = False
　　End If
　　j = j + 1
　Loop
Next i
运行程序后,数组中的数据值可能是(　　)
A.1 4 3 1 5 B.1 1 3 5 4
C.1 2 3 5 5 D.1 3 4 5 6
16.如果数组a(下标1到n)满足a(1)≤a(2)≤…≤a(i-1)≤a(i)≥a(i+1)≥…≥a(n),则称数组a是单峰的,并称a(i)是数组a的“峰顶”。下列程序段用于查找数组a中的“峰顶”,并返回该“峰顶”值。
Dim a(1 To 10) As Integer
Function Search(L As Integer, R As Integer) As Integer
　M = (L + R) \ 2
　If a(M) < a(M - 1) And a(M) > a(M + 1) Then
　　　　 (1)　　?
　ElseIf a(M) > a(M - 1) And a(M) > a(M + 1) Then
　　　　 (2)　　?
　ElseIf a(M) > a(M - 1) And a(M) < a(M + 1) Then
　　　　(3)　　?
　End If
End Function
Private Sub Command1_Click()
　Label1.Caption = "“峰顶”值是:" + Str(Search(1, 10))
End Sub
上述程序中划线处可选语句为:
①Search = Search(M + 1 , R)
②Search = Search(L , M - 1)
③Search = a(M)
则(1)(2)(3)处的语句依次是(　　)
A.①②③ B.①③② C.③①② D.②③①
17.有以下VB程序段:
For i = 1 To 4
　For j = 4 To i + 1 Step -1
　　　 s = "*" + s
　　 Next j
　　 List1.AddItem s
　 Next i
　运行上述程序段后,列表框List1中显示的结果是(　　)

18.数组b是一个有重复数据的递增数组,现把前面n个元素整体移动到最后形成如“7,8,9,10,1,2,3,4”的排列形式。下列程序实现如下功能:输入一个数,利用对分查找算法在数组b中查找,返回查找结果在Label2输出,若有多个相同数据,则返回最左侧数据的位置。
Dim b(1 To 20) As Integer
Private Sub Command1_Click()
　Dim i As Integer, j As Integer, m As Integer
　i = 1: j = 20
　Key = Val(Text1.Text)
　Do While 　　(1)　　?
　　m = (i + j + 1) \ 2
　　If b(i) < b(m) Then
　　　If　　(2)　　 Then ?
　　　　j = m - 1
　　　Else
　　　　i = m + 1
　　ElseIf Key = b(m) Then
　　　Exit Do
　　Else
　　　If Key > b(m) And Key <= b(j) Then
　　　　i = m + 1
　　　Else
　　　　j = m - 1
　　End If
　Loop
　If　　(3)　　 Then ?
　　Label2.Caption = "数组中无此数"
　Else
　　Do While m > 0
　　　If Key = b(m) Then m = m - 1 Else Exit Do
　　Loop
　　Label2.Caption = "此数在第" + Str(m + 1) + "个位置"
　End If
End Sub
(1)(2)(3)处可选语句为
①i > j
②i <= j
③Key < b(m) And Key >= b(i)
④Key> b(m) And Key <=b(j)
则(1)(2)(3)处的语句依次是(　　)
A.①③② B.②④① C.②③① D.①④②
19.有如下VB程序段:
a(1) = 1: a(2) = 3: a(3) = 5: a(4) = 7: a(5) = 9
s = "ICT2019reform"
For i = 1 To 5
　 t = a(i)
　 s = Mid(s, 1, t - 1) + Mid(s, t + 1)
Next i
Text1.Text = s
执行该程序段后,Text1显示的是(　　)
A.ICT2019re B.CT01reor
C.C21rform D.CT01reorm
20.有如下VB程序段,已知a数组各元素值为“7,5,6,3,1,8”,b数组各元素的初始值为“0”。则经过以下程序段处理后,b数组各元素分别为(　　)
For i = 1 To 5
　k = i
　For j = i + 1 To 6
　　If a(k) > a(j) Then k = j
　Next j
　t = a(k): a(k) = a(i): a(i) = t
　b((i + 2) Mod 6 + 1) = a(i)
Next i
A.1 3 5 6 7 8 B.7 0 1 3 5 6
C.6 7 8 1 3 5 D.6 7 0 1 3 5

21.某VB程序段如下:
　s = "Hello World"
　s1 = ""
　n = Len(s)
　For i = 1 To n \ 2
　　　If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then
　　　　 s1 = s1 + Mid(s, i, 1)
　　　Else
　　　　 s1 = Mid(s, n - i + 1, 1) + s1
　　　End If
　Next i
　Text1.Text = s1
执行该程序段后,在文本框Text1中显示的是(　　)
A.WlleH B.oorld C.dlroo D.orldo
22某 VB 程序段如下:
s = "491053"
For i = 1 To 3
　　 n = Len(s)
　　 k = 1
　　 For j = 2 To n
　　　　If Mid(s, k, 1) >= Mid(s, j, 1) Then
　　　　　　k = j
　　　　Else
　　　　　　Exit For　　'Exit For表示退出循环
　　　　End If
　　 Next j
　　 s = Mid(s, 1, k - 1) + Mid(s, k + 1, n - k)
Next i
Label1.Caption = s
执行该程序段后,标签Label1中显示的值是(　　)
A.053 B.953 C.913 D.103
23.有VB程序段如下:
s = "2019appreciate": sum = 0
For i = 1 To Len(s)
　　ch = Mid(s, i, 1)
　　If ch >= "a" And ch <= "z" Then
　　　　m = Asc(ch) - Asc("a") + 1
　　　　a(m) = a(m) + 1
　　End If
Next i
For i = 1 To 10
　　If a(i) > 0 Then sum = sum + 1
Next i
数组a各元素的初始值都为0,执行该程序段后,变量sum的值为(　　)
A.10 B.7 C.4 D.3
24.有VB程序段如下:
Randomize
For i = 1 To 6
　a(i) = Int(Rnd * 20) + 1
　If a(i) Mod 2 = i Mod 2 Then
　　 a(i) = a(i) - 1
　Else
　　a(i) = a(i) + 2
　End If
Next i
执行该程序段后,a(1)~a(6)各元素可能的是(　　)
A.13,2,7,12,5,18 B.22,7,0,15,4,19
C.20,9,18,23,4,7 D.6,0,4,21,18,17
25.有如下VB程序段:
Dim i As Integer, sum As Integer
Dim a(1 To 6) As Integer, b(1 To 6) As Integer
sum = 0
a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16
For i = 4 To 1 Step -1
　a(i) = a(i + 2) - a(i + 1)
　b(i) = b(i + 2) - a(i)
　If b(i) Mod 3 = 0 Then sum = sum + b(i)
Next i
Text1.Text = Str(sum)
该程序段运行后,文本框Text1中显示的内容是(　　)
A.39 B.30 C.-9 D.12
26.某VB程序段如下:
Dim a (1 To 6) As Integer
Randomize
a(1) = Int (Rnd*2) + 1
For i = 2 To 6
　　a(j) = Int (Rnd*i) *2 + 1
　　If a(i) < a(i-1) Then
　　　　a(i) = a(i) + a(i-1)
　　End If
Next i
执行该程序段后,数组元素a(1)到a(6)的值可能是(　　)
A.2,4,6,8,10,12 B.1,1,3,7,12,23
C.2,5,9,11,10,15 D.1,3,15,16,20,23

2020年4月7日高三周考试卷
专题：vb选择题
一、选择题（每道题2分，共26题，52分）
1.有如下VB程序段:
For i= 1 To 49
　　j=1:a(j)=a(j)+1
　　Do While a(j)=5
　　　　a(j)=0
　　　　j = j + 1
　　　　a(j) = a(j) + 1
　　Loop
Next i
数组a中各元素初始值均为0,该程序执行后,数组a中各元素之和为(　　)　　　　　 　　　　　　 　　　　　　
A.9 B.0 C.3 D.49
1.答案　A　本题考查数组运算知识。本题是双重循环,计算比较复杂,每循环1次,a(1)加1,循环5次清0;每循环5次,a(2)加1,循环25次清0;每循环25次,a(3)加1。根据代码进行模拟得到的结果是a(1)=4,a(2)=4,a(3)=1,其他元素全部是0,故选A。
2.有如下VB 程序段:
s = 1
For i = 2 To 10 Step 3
　　s = s + i
Next i
则该程序段执行后,变量s 和i 的值分别是(　　)
A.16, 11 B.15, 13 C.55, 11 D.25, 13
2.答案　A　本题属于VB基础题,注意s的初值为1,步长为3,另外运行结束后i的终值为11,故答案是A。
3.有如下VB程序段:
c = 0 :i = 1
Do While i <=6
　　k = i
　　For j = i + 1 To 7
　　　　If a(j)<= a(k) Then k = j
　　Next j
　　If a(i) <> a(k)　Then
　　　t = a(i): a(i) = a(k): a(k) = t
　　　c = c + 1
　　End If
　　i = i + 1
Loop
数组元素a(1)到a(7)的值依次为“9,9,8,16,45,9,78”。该程序段执行后,变量c的值是(　　)
A.0 B.3 C.4 D.6
3.答案　B　本题主要考查选择排序的理解。排序时对“有重复数据进行排序时不交换”进行了优化,确定交换次数为3次。
4.有如下VB程序段:
a(1) = 1
For i = 2 To 6
　Randomize
　a(i) = a(i - 1) + Int(Rnd * 5 + 1)
　If a(i) Mod 2 = 1 Then
　　 a(i) = a(i) \ 2 + 1
　Else
　　 a(i) = a(i) / 2
　End If
Next i
执行程序后,a数组各元素可能是(　　)
A.1 3 4 6 7 9 B.1 2 0 3 5 6
C.1 2 3 4 5 4 D.1 3 4 5 1 1
4.答案　C　本题中a(2)的范围是1~3,a(3)~a(5)的范围都是1~5,排除A、B,选项D中a(4)=5,可推知a(5)为3~ 5,不可能是1,只有C都符合。
5.数组d(1)~d(100)中存储某班级50位同学的语文和数学成绩,奇数位存储语文成绩,偶数位存储对应该同学的数学成绩。该数组已经按照两科总成绩升序排序。依据对分查找思想,设计一个在数组a中查找总成绩Key的程序,如果查找成功输出语文成绩在数组中的位置。实现该功能的VB程序段如下:
Key = Val(Text1.Text)
i = 1: j = 100
Do While i <= j
　 m = (i + j) \ 2
　 If　(1)　Then m = m - 1
　 Sum = (2)
　 If Key = Sum Then Exit Do　'Exit Do表示退出循环
　 If(3) Then
　　　i = m + 2
　 Else
　　　j = m - 2
　 End If
Loop
If i > j Then Text2.Text = "没有找到!" Else Text2.Text = Str(m)
实现该功能,则上述程序段3个方框处的表达式分别为(　　)
A.(1)m Mod 2 = 1　 (2)d(m) + d(m - 1)　(3)Key < Sum
B.(1)m Mod 2 = 1　 (2)d(m) + d(m + 1)　(3)Key > Sum
C.(1)m Mod 2 = 0　 (2)d(m) + d(m - 1)　(3)Key > Sum
D.(1)m Mod 2 = 0　 (2)d(m) + d(m + 1)　(3)Key > Sum
5.答案　D　本题主要考查对分查找。当查找位置m为偶数时,其前面的数据为该同学的语文成绩,确定(1)空为m Mod 2 = 0;语文成绩的对应位置为m,则该同学的总成绩为d(m) + d(m+1),确定(2)空为d(m)+d(m+1);由题干中描述“数组已经按照两科总成绩升序排序”,可知当查找成绩大于当前总成绩时,执行“i = m + 2”,确定(3)空为Key > Sum。确定答案为D。
6.有如下VB程序段:
For i = 1 To 9 Step 2
　b(a(i) Mod 10) = b(a(i) Mod 10) + 1
Next i
s = 0
For i = 0 To 9 Step 3
　s =s + b(i)
Next i
数组b各元素初始值为0, 数组元素a(1)到a(9)的值依次为“29,74,12,38,16,45,21,57,33”,则执行该程序段后,s的值为(　　)
A.5 B.4 C.3 D.2
6.答案　C　本题考查数组和统计相关知识。数组元素的个位数按照桶排序进行计数,步长为2,故统计a(1) Mod 10,a(3) Mod 10,a(5) Mod 10,a(7) Mod 10,a(9) Mod 10的结果,因此1、2、3、6、9的值数组加1,而累加时的步长是3,b(3)、b(6)和b(9)的值被累加,故答案是3。选项C正确。
7.有如下VB程序段:
Dim i As Integer, j As Integer, a(1 To 5) As Integer
For i =1 To 5
　a(i)=Int(Rnd*5+1)
　For j = 1 To i-1
　　　If a(i)=a(j) Then
　　　　i=i-1 : Exit For
　　　End If
　Next j
Next i
执行程序后,数组中的数据可能是(　　)
A.1 4 3 2 5 B.1 1 3 5 4 C.1 4 5 6 3 D.2 3 4 5 5
7.答案　A　本题考查生成不重复随机数,代码中产生的是不重复的1~ 5之间的数,故选A。
8.有如下VB程序段:
s = "123456789"
g = ""
For i = 1 To 3
　　n = Len(s)
　　x = Int(Rnd * n) + 1
　　g = g + Mid(s, x, 1)
　　s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)
Next i
在程序执行时,若变量x的值依次为3,3,6,则最终变量g的值为(　　)
A."336" B."346" C."348" D.15
8.答案　C　变量值的变化如下:
i 1 2 3
x 3 3 6
g "3" "34" "348"
s "12456789" "1256789" "125679"


故选C。
9.有如下 VB 程序段:
For i=1 To 3
　　For j=1 To 5-i
　　　If a(j)>a(j+1) Then
　　　　t=a(j): a(j)=a(j+1): a(j+1)=t
　　　End If
　　Next j
　　Text1.Text = Text1.Text + Str(a(i))
Next i
数组元素 a(1)到 a(5)的值依次为“3,9,6,8,4”。该程序段执行后,文本框 Text1 显示的内容是(　　)
A.3 4 6 B.6 8 9 C.3 6 4 D.3 6 6
9.答案　D　本题主要考查冒泡排序的算法知识。对这5个数据,冒泡排序将数值大的数据往后交换。进行前3轮的升序排序,然后分别输出第一轮的第一项,第二轮的第二项,第三轮的第三项。第一轮排序后结果:3,6,8,4,9,输出第一项3;第二轮排序后结果:3,6,4,8,9,输出第二项6;第三轮排序后结果:3,4,6,8,9,输出第三项6,故选D。
10.某VB程序段如下:
Function f(n As Integer) As Long
　If n = 1 Then
　　f =5
　Else
　　f =2 * f(n - 1) - 3
　End If
End Function
Private Sub Command1_click()
　Dim n As Integer
　n = Val(Text1.Text)
　Text2.Text = Str(f(n))
End Sub
该程序段运行后,在文本框Text1中输入5,单击命令按钮Command1后,文本框Text2中显示的是(　　)
A.18 B.35 C.63 D.123
10.答案　B　本题考查递归算法。f(1)=5,f(2)=2*f(1)-3=7,f(3)=2*f(2)-3=11,f(4)=2*f(3)-3=19,f(5)=2*f(4)-3=35,故选B。
11.某对分查找算法的VB程序段如下:
i = 1: j = 8: s = ""
key =Text1.Text
Do While i <= j
　 m =(i + j) \ 2
　 If key = a(m) Then
　　　s = s + "M"
　　　Exit Do
　 ElseIf key > a(m) Then
　　　j = m - 1: s = s + "L"
　 Else
　　　i = m + 1: s = s + "R"
　 End If
Loop
Text1.Text = s
数组元素a(1)到a(8)的值依次为“4,22,27,32,35,44,56,59”,该程序段执行后,文本框Text1中显示的内容不可能是(　　)
A.M B.LR C.RM D.LM
11.答案　B　本题考查对分查找算法。若key值能在a(1)到a(8)中找到,s中最后一个字符一定为“M”。若key值不能在a(1)到a(8)中找到,则需查找4次才能结束,s的字符串长度应为4。
12.有如下VB程序段:
　For i = 1 To 3
　　k = ""
　　For j = 1 To 2 * i - 1
　　　k = k + " * "
　　Next j
　　List1.AddItem k
　Next i
该程序段运行后,在列表框List1中显示的是(　　)
A.*
***
***** B.*
**
*** C.***
***
*** D.***
**
*


12答案　A　本题主要考查字符的输出。变量i表示行,变量j表示列,例如当i=2时,从1到3,表示有三个“*”,因此答案是A。
13.下列程序执行后文本框Text1显示的内容是(　　)
s = "Inter(R) Core(TM) i3-4130 CPU @ 3.40GHz"
flag = False:k = 0
For i = 1 To Len(s)
　ch = Mid(s, i, 1)
　If ch >= "A" And ch <= "Z" or ch >= "0" And ch <= "9" Then
　　If Not flag Then
　　　k = k + 1
　　　flag = True
　　End If
　Else
　　flag = False
　End If
Next i
Text1.Text = Str(k)
A.6 B.9 C.10 D.18
13.答案　B　本题考查VB的循环结构和分支结构。For循环的作用是依次从字符串s中读取每个字符(结合Mid函数),程序的作用为统计字符串s中连续大写字母或数字的字符串个数,If Not flag Then中条件Not flag等价于flag = False,本题还有一个地方要注意,当取字符为“3.40GHz”中的字符“0”后flag = True,取到“G”时不累加k的值。故选B。
14.有如下VB程序段:
Function GCD(m As Long, n As Long) As Long
　Dim temp As Long, r As Long
　If m < n Then temp = m: m = n: n = temp
　d = m - n
　Do While d <> n
　　If d >= n Then
　　　 m = d
　　Else
　　　 m = n
　　　 n = d
　　End If
　　d = m - n
　Loop
　GCD = n
End Function
Private Sub Command1_Click()
　 Text1.Text = Str(GCD(48,36))
End Sub
程序运行完后,单击Command1按钮,文本框Text1中显示的是　(　　)
A.12 B.18 C.36 D.48
14.答案　A　本题考查VB的自定义函数及求两个数最大公约数的“更相减损术”算法。48和36的最大公约数是12。故选A。
15.有如下VB程序段:
Dim a(1 To 5) As Integer, i As Integer
Dim flag As Boolean,j As Integer
a(1) =1 : a(2) = 1 : a(3) = 1 : a(4)= 1 : a(5) = 1
Randomize
For i = 1 To 5
　j = 1: flag = True
　Do While j <= i - 1 And flag = True
　　a(i) = Int(Rnd * 5 + 1)
　　If a(i) = a(j) Then
　　　i = i - 1: flag = False
　　End If
　　j = j + 1
　Loop
Next i
运行程序后,数组中的数据值可能是(　　)
A.1 4 3 1 5 B.1 1 3 5 4
C.1 2 3 5 5 D.1 3 4 5 6
15.答案　A　本题考查VB的循环结构和分支结构以及随机函数。For循环的作用是控制产生a(i)的次数,每次Do循环j的值从1到i-1,每次随机产生一个整数a(i),一方面,a(i)的范围是[1,5],另一方面,每次产生的数与前一个不重复,否则重新产生。因此,排除选项B,C,D。故选A。
16.如果数组a(下标1到n)满足a(1)≤a(2)≤…≤a(i-1)≤a(i)≥a(i+1)≥…≥a(n),则称数组a是单峰的,并称a(i)是数组a的“峰顶”。下列程序段用于查找数组a中的“峰顶”,并返回该“峰顶”值。
Dim a(1 To 10) As Integer
Function Search(L As Integer, R As Integer) As Integer
　M = (L + R) \ 2
　If a(M) < a(M - 1) And a(M) > a(M + 1) Then
　　　　 (1)　　?
　ElseIf a(M) > a(M - 1) And a(M) > a(M + 1) Then
　　　　 (2)　　?
　ElseIf a(M) > a(M - 1) And a(M) < a(M + 1) Then
　　　　(3)　　?
　End If
End Function
Private Sub Command1_Click()
　Label1.Caption = "“峰顶”值是:" + Str(Search(1, 10))
End Sub
上述程序中划线处可选语句为:
①Search = Search(M + 1 , R)
②Search = Search(L , M - 1)
③Search = a(M)
则(1)(2)(3)处的语句依次是(　　)
A.①②③ B.①③② C.③①② D.②③①
16.答案　D　本题考查VB的递归算法及对分查找算法。如果a(M) > a(M - 1) And a(M) > a(M + 1),则此时的M即为“峰顶”,因此(2)处填Search = a(M);当a(M) < a(M - 1) And a(M) > a(M + 1)时,说明“峰顶”在左半区,因此L不变,R=M-1,(1)处应填Search = Search(L , M - 1)。故选D。
17.有以下VB程序段:
For i = 1 To 4
　For j = 4 To i + 1 Step -1
　　　 s = "*" + s
　　 Next j
　　 List1.AddItem s
　 Next i
　运行上述程序段后,列表框List1中显示的结果是(　　)

17.答案　A　i=1时,语句s="*"+s 被执行3次,所以第一行为3个"*";i=2时,语句s="*"+s 被执行2次,所以第二行共有5个"*";i=3时,语句s="*"+s 被执行1次,所以第三行共有6个"*";i=4时,语句s="*"+s 没有被执行,因此第四行仍然打印6个"*"。所以答案为A。
18.数组b是一个有重复数据的递增数组,现把前面n个元素整体移动到最后形成如“7,8,9,10,1,2,3,4”的排列形式。下列程序实现如下功能:输入一个数,利用对分查找算法在数组b中查找,返回查找结果在Label2输出,若有多个相同数据,则返回最左侧数据的位置。
Dim b(1 To 20) As Integer
Private Sub Command1_Click()
　Dim i As Integer, j As Integer, m As Integer
　i = 1: j = 20
　Key = Val(Text1.Text)
　Do While 　　(1)　　?
　　m = (i + j + 1) \ 2
　　If b(i) < b(m) Then
　　　If　　(2)　　 Then ?
　　　　j = m - 1
　　　Else
　　　　i = m + 1
　　ElseIf Key = b(m) Then
　　　Exit Do
　　Else
　　　If Key > b(m) And Key <= b(j) Then
　　　　i = m + 1
　　　Else
　　　　j = m - 1
　　End If
　Loop
　If　　(3)　　 Then ?
　　Label2.Caption = "数组中无此数"
　Else
　　Do While m > 0
　　　If Key = b(m) Then m = m - 1 Else Exit Do
　　Loop
　　Label2.Caption = "此数在第" + Str(m + 1) + "个位置"
　End If
End Sub
(1)(2)(3)处可选语句为
①i > j
②i <= j
③Key < b(m) And Key >= b(i)
④Key> b(m) And Key <=b(j)
则(1)(2)(3)处的语句依次是(　　)
A.①③② B.②④① C.②③① D.①④②
18.答案　C　(1)处是设置查找终止的条件,只要区间还有1个数就要继续找,选i<=j;(2)处判断关键字是否在左侧区间,上一行的If保证左侧区间有序,关键字大于等于i位置,小于中间值,确保在左侧区间,代码选Key < b(m) And Key >= b(i);(3)处判断是否找到,前文在区间为正时退出循环,则肯定已经找到,否则i>j说明找不到。
19.有如下VB程序段:
a(1) = 1: a(2) = 3: a(3) = 5: a(4) = 7: a(5) = 9
s = "ICT2019reform"
For i = 1 To 5
　 t = a(i)
　 s = Mid(s, 1, t - 1) + Mid(s, t + 1)
Next i
Text1.Text = s
执行该程序段后,Text1显示的是(　　)
A.ICT2019re B.CT01reor
C.C21rform D.CT01reorm
19.答案　B　注意字符串s不断缩短,每一轮被删除一个字符。"ICT2019reform"第一轮后变为"CT2019reform",第二轮后变为“CT019reform”,依次类推,选B。
20.有如下VB程序段,已知a数组各元素值为“7,5,6,3,1,8”,b数组各元素的初始值为“0”。则经过以下程序段处理后,b数组各元素分别为(　　)
For i = 1 To 5
　k = i
　For j = i + 1 To 6
　　If a(k) > a(j) Then k = j
　Next j
　t = a(k): a(k) = a(i): a(i) = t
　b((i + 2) Mod 6 + 1) = a(i)
Next i
A.1 3 5 6 7 8 B.7 0 1 3 5 6
C.6 7 8 1 3 5 D.6 7 0 1 3 5
20.答案　D　这段程序首先基本实现了数组的升序排序,但新的位置把排序后的位置循环往右移动了3个位置,如元素“1”本来在第1个位置,但移动到了第4个位置,“6”本来在第4个位置,往右移3个位置,超出后到最左侧,变成在第1个位置,最后数字“8”原位置被占,但新位置没有被赋值,所以第3个位置为“0”。

21.某VB程序段如下:
　s = "Hello World"
　s1 = ""
　n = Len(s)
　For i = 1 To n \ 2
　　　If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then
　　　　 s1 = s1 + Mid(s, i, 1)
　　　Else
　　　　 s1 = Mid(s, n - i + 1, 1) + s1
　　　End If
　Next i
　Text1.Text = s1
执行该程序段后,在文本框Text1中显示的是(　　)
A.WlleH B.oorld C.dlroo D.orldo
21.答案　D　本题考查VB字符串处理知识,程序实现第一个字符和最后一个字符进行比较,若大于则取前面的字符,连接后按顺序赋值给变量s1,反之则取后面的字符,但是要倒序连接并赋值给变量s1,第二个字符和倒数第二个字符进行比较,……,以此类推,答案是D。
22某 VB 程序段如下:
s = "491053"
For i = 1 To 3
　　 n = Len(s)
　　 k = 1
　　 For j = 2 To n
　　　　If Mid(s, k, 1) >= Mid(s, j, 1) Then
　　　　　　k = j
　　　　Else
　　　　　　Exit For　　'Exit For表示退出循环
　　　　End If
　　 Next j
　　 s = Mid(s, 1, k - 1) + Mid(s, k + 1, n - k)
Next i
Label1.Caption = s
执行该程序段后,标签Label1中显示的值是(　　)
A.053 B.953 C.913 D.103
22.答案　B　该程序段的功能是删除3个数,并保持原来的顺序不变,使得剩下的数最大。每次都从左边开始查找,若是升序的数,则删除最前面的数,若是降序的数,则删除最后一个数。故删除的顺序是“4”“0”“1”,故本题答案为B。
23.有VB程序段如下:
s = "2019appreciate": sum = 0
For i = 1 To Len(s)
　　ch = Mid(s, i, 1)
　　If ch >= "a" And ch <= "z" Then
　　　　m = Asc(ch) - Asc("a") + 1
　　　　a(m) = a(m) + 1
　　End If
Next i
For i = 1 To 10
　　If a(i) > 0 Then sum = sum + 1
Next i
数组a各元素的初始值都为0,执行该程序段后,变量sum的值为(　　)
A.10 B.7 C.4 D.3
23.答案　C　本题考查VB的字符串处理知识。代码的作用是统计小写英文字母中前10个字符(a~ j)出现的次数并记录到相应的数组元素a(1)、a(2)、…、a(10)中,并最终统计共有几个字母出现过,根据题意可知,有4个数组元素的值大于0,因此答案是4,故选C。
24.有VB程序段如下:
Randomize
For i = 1 To 6
　a(i) = Int(Rnd * 20) + 1
　If a(i) Mod 2 = i Mod 2 Then
　　 a(i) = a(i) - 1
　Else
　　a(i) = a(i) + 2
　End If
Next i
执行该程序段后,a(1)~a(6)各元素可能的是(　　)
A.13,2,7,12,5,18 B.22,7,0,15,4,19
C.20,9,18,23,4,7 D.6,0,4,21,18,17
24.答案　B　本题考查逻辑关系。代码中“If a(i) Mod 2 = i Mod 2 Then a(i) = a(i) - 1”是核心,表示如果奇数位置是奇数,或者偶数位置是偶数,则该a(i)的值减去1,而a(i)范围为[1,20],这样操作后a(i)的奇偶性发生了互换,也就是奇数位置是偶数,偶数位置是奇数,另外的情况是a(i)的值加2,故范围是[0,22],因此排除选项C,然后考虑位置和奇偶性,只有选项B符合
25.有如下VB程序段:
Dim i As Integer, sum As Integer
Dim a(1 To 6) As Integer, b(1 To 6) As Integer
sum = 0
a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16
For i = 4 To 1 Step -1
　a(i) = a(i + 2) - a(i + 1)
　b(i) = b(i + 2) - a(i)
　If b(i) Mod 3 = 0 Then sum = sum + b(i)
Next i
Text1.Text = Str(sum)
该程序段运行后,文本框Text1中显示的内容是(　　)
A.39 B.30 C.-9 D.12
25答案　B　本题考查递归。 i=4时,a(4)=11,b(4)=3,sum=3;i=3时,a(3)=-4,b(3) =20;i=2时,a(2)=15,b(2)=-12,sum=-9;i=1时,a(1)=-19,b(1)=39,sum=30。所以答案为B。
26.某VB程序段如下:
Dim a (1 To 6) As Integer
Randomize
a(1) = Int (Rnd*2) + 1
For i = 2 To 6
　　a(j) = Int (Rnd*i) *2 + 1
　　If a(i) < a(i-1) Then
　　　　a(i) = a(i) + a(i-1)
　　End If
Next i
执行该程序段后,数组元素a(1)到a(6)的值可能是(　　)
A.2,4,6,8,10,12 B.1,1,3,7,12,23
C.2,5,9,11,10,15 D.1,3,15,16,20,23
26.答案　B　本题考查VB随机数及逻辑判断。最初时,a(1)的范围是1~2,a(2)的范围是1~3,a(3)的范围是1~5,a(4)的范围是1~7,a(5)的范围是1~9,a(6)的范围是1~11。再根据if语句进行调整,当前元素小于前面一个元素时,将这两个值相加后再赋值给当前的元素a(i)。当a(1)=2时,a(2)不可能超过3,因此可以排除AC。另外,当a(2)=3时,a(3)的值绝对不可能是15(最大值只能是5),从而排除选项D。故本题答案是B。

展开更多......

收起↑