题型：综合题 题类：模拟题 难易度：困难
浙江省普通高校招生信息技术选考模拟卷（二）
Const n = 10
Dim d(1 To n) As Integer, pm(1 To n) As Integer
Private Sub Form_Load()
'代码略，本过程功能：产生10个随机整数存数组d中，并在列表框list1 中显示。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer
i = 1
Do While i <= n - 1
k = i
For j = i + 1 To n
If 
Then k = j ‘①
Next j
If i <> k Then t = d(i): d(i) = d(k): d(k) = t
i = i + 1
Loop
pm(1) = 1
For i = 2 To n
If 
Then ‘②
pm(i) = i
Else
pm(i) = pm(i - 1)
End If
Next i
For i = 1 To n
List2.AddItem Str(i) +" " +Str(d(i)) + " " + "第" + Str(pm(i)) + "名"
Next I
End Sub
① ②
原始数据：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
2 |
3 |
4 |
方法一：
①向右旋转1步：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
4 |
1 |
2 |
3 |
②向右旋转2步：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
3 |
4 |
1 |
2 |
③向右旋转3步：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
2 |
3 |
4 |
1 |
方法二：
①将a(1)值放至旋转3个位置后位置a(4)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
2 |
3 |
1 |
②将原a(4)值放至旋转3个位置后位置a(3)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
2 |
4 |
1 |
③将原a(3)值放至旋转3个位置后位置a(2)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
1 |
3 |
4 |
1 |
④将原a(2)值放至旋转3个位置后位置a(1)：
|
a(1) |
a(2) |
a(3) |
a(4) |
|
2 |
3 |
4 |
1 |
有n个数存储在数组a中，给定一个整数p(1≤p≤n)，将数组a的前p个数与后n-p个数分别向右旋转k次。例如数组a的各个数值分别是1,2,3,4,5,6,7，当p=4，k=1时，旋转后的结果为4,1,2,3,7,5,6。小明为此编写了VB程序，功能如下：在文本框Text2、Text3中依次输入p和k的值，单击“旋转数组”按钮Command1后，数组旋转后结果显示在Text4中。程序运行界面如图1所示，请回答下列问题：
图1
例如，有如下年龄存在数组a中：
a(1) | a(2) | a(3) | a(4) | a(5) | a(6) | a(7) | a(8) | a(9) | a(10) |
20 | 19 | 18 | 19 | 15 | 12 | 15 | 20 | 17 | 19 |
利用一个数组b(b(10 To 20))记录每个数出现的次数：
b(10) | b(11) | b(12) | b(13) | b(14) | b(15) | b(16) | b(17) | b(18) | b(19) | b(20) |
0 | 0 | 1 | 0 | 0 | 2 | 0 | 1 | 1 | 3 | 2 |
根据数组b对数组a进行排序：
a(1) | a(2) | a(3) | a(4) | a(5) | a(6) | a(7) | a(8) | a(9) | a(10) |
12 | 15 | 15 | 17 | 18 | 19 | 19 | 19 | 20 | 20 |
Dim a(10000) As Integer ‘存放读入的年龄数据
Dim b(100) As Integer ‘存放各个年龄出现的个数
Private Sub Command1_Click()
‘从数据库读入年龄数据放入数组a中
End Sub
Private Sub Command2_Click()
For i = 1 To 100
b(i) = 0
Next i
For i = 1 To 10000 ‘统计每个年龄数据的个数
①
Next i
End Sub
Private Sub Command3_Click()
j = 0
For i = 1 To 100
If b(i) <> 0 Then
Do While b(i) <> 0
②
a(j) = i
‘③
Loop
End If
Next i
For i = 1 To 10000
List2.AddItem Str(a(i))
Next i
End Sub
试题篮
Then '①
Step 2 '②
Then ‘⑴
‘⑵