- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 过程和自定义函数
- 枚举算法及程序实现
- 解析算法及程序实现
- 递归算法及程序实现
- + 排序算法及程序实现
- 查找算法及程序实现
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
已知数组a(1)到a(6)的原始数据为“118”，“36”，“98”，“15”，“88”，“2”，对该数组进行排序操作，某同学编写了以下VB程序：
For i=1 To 3
For j=6 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
Next i
则程序运行之后，数组a(1)到a(6)的值依次为（ ）
For i=1 To 3
For j=6 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
Next i
则程序运行之后，数组a(1)到a(6)的值依次为（ ）
| A．“118”，“15”，“2”，“36”，“88”，“98” |
| B．“118”，“15”，“36”，“88”，“98”，“2” |
| C．“2”，“15”，“36”，“118”，“88”，“98” |
| D．“2”，“15”，“36”，“88”，“98”，“118” |
暑期旅游旺季，各地旅行社纷纷给出了国外游的各种行程报价。小宇为了同学们方便选择出行路线及价格，设计了一个程序。在文本框Text1中输入“国外”或“国内”，在文本框Text2中输入出游的天数，单击“线路及报价查询”按钮Command1，将在列表框中输出按价格从高到低排序的线路名称及报价信息。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim g(100) As String, day(100) As Integer, xl(100) As String, pri(100)
As Integer
Const n=100
Private Sub Form_Load()
'从数据库中读取数据并存储在相关变量中。g()数组存储国内/国外，day()数组存储出游天数，xl()数组存储旅游线路名称，pri()数组存储行程报价。
'代码略
End sub
Private Sub Command1 Click()
Dim i As Integer，j As Integer
For i=I To n\2
t=pri(j):pri(j)=pri(j+1):pri(j+1)=t
End if
'①
If pri(j)<pri(j-1) Then
t=pri(j):pri(j) pri(j-1):pri(j-1)=t
End If
List1.Clear
i=1
Do While i<=n And g(i)=Text1.Text And day(i)=Val(Text2,Text)
（1）程序中①处加框代码应改为________________________________________。
（2）程序中②处加框代码应改为________________________________________。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim g(100) As String, day(100) As Integer, xl(100) As String, pri(100)
As Integer
Const n=100
Private Sub Form_Load()
'从数据库中读取数据并存储在相关变量中。g()数组存储国内/国外，day()数组存储出游天数，xl()数组存储旅游线路名称，pri()数组存储行程报价。
'代码略
End sub
Private Sub Command1 Click()
Dim i As Integer，j As Integer
For i=I To n\2
For j=I To n-i
If pri(j)>pri(j+1) Thent=pri(j):pri(j)=pri(j+1):pri(j+1)=t
End if
Next j
'①If pri(j)<pri(j-1) Then
t=pri(j):pri(j) pri(j-1):pri(j-1)=t
End If
Next j
Next iList1.Clear
i=1
Do While i<=n And g(i)=Text1.Text And day(i)=Val(Text2,Text)
'②
i=i+1
Loop（1）程序中①处加框代码应改为________________________________________。
（2）程序中②处加框代码应改为________________________________________。
a(1)=17:a(2)=16:a(3)=12:a(4)=18:a(5)=15:a(6)=13:a(7)=17:a(8)=20
i=2
Do While i <=8
If i mod 2=0 and a(i)>a(i-1)then
t=a(i):a(i)=a(i-1):a(i-1)=t
Else If a(i-1) mod 2=1 then
a(i-1)=a(i-1)+1
End If
i=i+1
Loop
执行程序后，a数组各元素是（ ）
i=2
Do While i <=8
If i mod 2=0 and a(i)>a(i-1)then
t=a(i):a(i)=a(i-1):a(i-1)=t
Else If a(i-1) mod 2=1 then
a(i-1)=a(i-1)+1
End If
i=i+1
Loop
执行程序后，a数组各元素是（ ）
| A．17，16，18，12，16，14，20，18 |
| B．18，16，18，12，16，14，20，17 |
| C．16，17，18，12，13，16，20，17 |
| D．18，16，18，12，14，15，17，20 |
数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理，具体界面如图所示：
实现该功能的VB程序如下，请回答下列问题：
（1）要使程序运行时，窗体Form1标题显示“数组分段排序”，可在Form_Load事件过程中添加语句_______________(单选，填字母：
（2）程序代码中的加框处有错误,请改正。
__________________________
（3）请在划线处填入合适的程序代码。
①________________________
②________________________
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
For i = 1 To high
Randomize
a(i) = Int(Rnd ∗ 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer,m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①
c = ""
For j = 1 To m
p=j '改错
q = i ∗ m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = c + Str(a(p))
Next j
Text3.Text = Text3.Text + "" + c
Next i
End Sub
Function sort (f As Integer, g As Integer)As Integer
s = f
For i = f To g
If a(i) > a(s) Then
②
End If
Next i
sort = s
End Function
实现该功能的VB程序如下，请回答下列问题：
（1）要使程序运行时，窗体Form1标题显示“数组分段排序”，可在Form_Load事件过程中添加语句_______________(单选，填字母：
| A．Form1. Caption=“数组分段排序”/ | B．Form1. Text=“数组分段排序”/ | C．Text1. Text=“数组分段排序”)。 |
__________________________
（3）请在划线处填入合适的程序代码。
①________________________
②________________________
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
For i = 1 To high
Randomize
a(i) = Int(Rnd ∗ 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer,m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①
c = ""
For j = 1 To m
p=j '改错
q = i ∗ m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = c + Str(a(p))
Next j
Text3.Text = Text3.Text + "" + c
Next i
End Sub
Function sort (f As Integer, g As Integer)As Integer
s = f
For i = f To g
If a(i) > a(s) Then
②
End If
Next i
sort = s
End Function
某排序算法的VB程序段如下：
k=1
For i=1 To 2
For j=1 To 6-2*i
If k* a(j)<k*a(j+2)Then
t=a(j): a(j)=a(j+2): a(j+2)=t
Next i
数组元素a(1)到a(6)的初始值依次为“15，11，58，38，26，9”，该程序段执行后，数组a元素的值分别为（ ）
k=1
For i=1 To 2
For j=1 To 6-2*i
If k* a(j)<k*a(j+2)Then
t=a(j): a(j)=a(j+2): a(j+2)=t
End if
k=-k
Next jNext i
数组元素a(1)到a(6)的初始值依次为“15，11，58，38，26，9”，该程序段执行后，数组a元素的值分别为（ ）
| A．58，9，26，11，15，38 |
| B．58，38，26，11，15，9 |
| C．15，38，26，11，58，9 |
| D．58，38，26，15，11，9 |
数组a中存储了n个学生的学号和成绩数据，其中奇数位置存储学号信息，偶数位置存储成绩信息，数组存储结构如下表所示：
小迪同学使用选择排序思想对上述n个同学按成绩进行降序排序（成绩相同的按学号升序排列），并依据成绩插入各位同学的名次信息，处理结束的数组a存储结构如下表所示：
小迪同学使用VB编写了成绩处理程序，程序运行界面如下图所示：
实现上述功能的VB程序如下，请回答下列问题。
Const n=20
Dim a(1 To 3* n)As Integer
Private Sub Command1_ Click()
Private Sub Command2_ Click()
＇①改错
k=i
For j=l To i-l
If a(2*j)<a(2*k)Or ② Then
k=j
End if
A(3*i-1)=a(2*k-1)
③
A(2*k-1)=a(2*i-1)
Next i
List2. AddItem"第1名：学号+CStr(a(2))+"，分数"+str(a(3))
A(1)=1
mc=1
For j=2 To n
（1）已知窗体名称为Form1，要使程序加载时，窗体标题自动显示为“第15题程序”，则可在_____________（单选，填字母）事件过程中添加代码： Form1. Caption=“第15题程序”。
（2）程序加框处的For循环语句有错，请改正。
（3）请将程序②③④划线处代码补充完整。
| 1 | 2 | 3 | 4 | 5 | 6 | …… | 2n-1 | 2n |
| 学号 | 成绩 | 学号 | 成绩 | 学号 | 成绩 | …… | 学号 | 成绩 |
| 第1个学生信息 | 第2个学生信息 | 第3个学生信息 | …… | 第n个学生信息 | ||||
小迪同学使用选择排序思想对上述n个同学按成绩进行降序排序（成绩相同的按学号升序排列），并依据成绩插入各位同学的名次信息，处理结束的数组a存储结构如下表所示：
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | …… | 3n-2 | 3n-1 | 3n |
| 名次 | 学号 | 成绩 | 名次 | 学号 | 成绩 | 名次 | 学号 | 成绩 | …… | 名次 | 学号 | 成绩 |
| 第1个学生信息 | 第2个学生信息 | 第3个学生信息 | …… | 第n个学生信息 | ||||||||
小迪同学使用VB编写了成绩处理程序，程序运行界面如下图所示：
实现上述功能的VB程序如下，请回答下列问题。
Const n=20
Dim a(1 To 3* n)As Integer
Private Sub Command1_ Click()
＇读取数据，存储在数组a中，并显示于列表框List1中
＇代码略
End SubPrivate Sub Command2_ Click()
＇①改错k=i
For j=l To i-l
If a(2*j)<a(2*k)Or ② Then
k=j
End if
Next j
A(3*i=a(2*k)A(3*i-1)=a(2*k-1)
③
A(2*k-1)=a(2*i-1)
Next i
List2. AddItem"第1名：学号+CStr(a(2))+"，分数"+str(a(3))
A(1)=1
mc=1
For j=2 To n
If ④ Then mc=i
List2. AddItem"第"+Str(mc)+"名：学号"+CStr(a(3*i-1))+"，分数"十Str(a(3*i))a(3*i-2)=mc
Next i
End sub（1）已知窗体名称为Form1，要使程序加载时，窗体标题自动显示为“第15题程序”，则可在_____________（单选，填字母）事件过程中添加代码： Form1. Caption=“第15题程序”。
| A．Form_ Click() | B．Form_ Load() | C．Form1_ Click() | D．Forml_ Load() |
（3）请将程序②③④划线处代码补充完整。
有如下VB 程序段：
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3
t=d(j):d(j)=d(j-1):d(j-1)=t
End If
Next i
End Sub .
执行该程序段后，文本框 Textl输出的内容是（ ）
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3
For j=i＋1 To 6
If d(j)<d(j-1) Thent=d(j):d(j)=d(j-1):d(j-1)=t
End If
Next j
Textl.Text=Str(d(i))+Text1.TextNext i
End Sub .
执行该程序段后，文本框 Textl输出的内容是（ ）
| A．47 63 85 | B．35 5 18 | C．85 63 47 | D．18 5 35 |
小李编写一个统计学生选考科目的 VB 程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科占有效人数的百分率求出各科排名｡程序运行时，单击“显示”按钮 Command1，学生选课数据显示在列表框 List1 中，各科编号及对应科目名称显示在列表框 List2 中，单击“统计”按钮 Command2，选课结果按各科百分率由高到低显示在列表框 List3 中，程序运行结果如图所示｡
现上述功能的 VB 程序如下，请回答下列问题：
（1）学生选课的编码数据存储在数据表中，其字段名为__________________｡
（2）请在划线处填入合适的代码｡
Dim ach(1 To 500) As String '存储各学生选课编码
Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer '存储各科目被选次数
Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB. Connection, rs As New
ADODB. Recordset, sql As String
cn. Open "provider=Microsoft. Jet. oledb. 4. 0;Data Source =" + App. Path + " \students. mdb"
rs. Open "select ∗ from choose", cn
Do While Not rs. EOF
n = n + 1 : ach(n) = rs. Fields("subject") : rs. MoveNext
Loop
rs. Close: cn. Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i: bname(i) = Mid(km, (i - 1) ∗2 + 1, 2)
List2. AddItem Str (bno (i)) + " - - -" +bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) =True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) = ①_________
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7 '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) > bnum(i) Then ②__________
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If ③_________Then
per = Int(bnum(j) ∗ 100 / num ∗ 100)/ 100
List3. AddItem Str(bno(j)) + "---" +bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
'代码略，若学生选科代码有效，函数返回 True，否则返回 False
End Function
现上述功能的 VB 程序如下，请回答下列问题：
（1）学生选课的编码数据存储在数据表中，其字段名为__________________｡
（2）请在划线处填入合适的代码｡
Dim ach(1 To 500) As String '存储各学生选课编码
Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer '存储各科目被选次数
Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB. Connection, rs As New
ADODB. Recordset, sql As String
cn. Open "provider=Microsoft. Jet. oledb. 4. 0;Data Source =" + App. Path + " \students. mdb"
rs. Open "select ∗ from choose", cn
Do While Not rs. EOF
n = n + 1 : ach(n) = rs. Fields("subject") : rs. MoveNext
Loop
rs. Close: cn. Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i: bname(i) = Mid(km, (i - 1) ∗2 + 1, 2)
List2. AddItem Str (bno (i)) + " - - -" +bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) =True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) = ①_________
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7 '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) > bnum(i) Then ②__________
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If ③_________Then
per = Int(bnum(j) ∗ 100 / num ∗ 100)/ 100
List3. AddItem Str(bno(j)) + "---" +bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
'代码略，若学生选科代码有效，函数返回 True，否则返回 False
End Function
小王基于选择排序算法编写了一个VB程序，功能如下：在文本框 Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。
请回答下列问题
（1）要使程序运行后，命令按钮 Command1的 Caption属性值自动变为“排序”，可在_____（单选，填字母：
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Form Load ()
‘数组初始化,生成1~20之间的随机整数并赋值给数组a
Randomize '随机数初始化
For i=1 To n
a(i) =①_______
Next i
End Sub
Private Sub Command1 _Click()
Dim 1 As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom = n
For i=1 To bottom -1
For j = bottom To i + 1 Step -1
If ②_______ Then
t = a(j):a(j) = a(i):a(i) = t
ElseIf a(j) = a(i) Then
③_______
bottom = bottom -1
End if
Next j
Next i
Text2. text = ""
For i=1 to bottom
Text2. Text = Text2. Text + str(a(i))
Next i
End sub
请回答下列问题
（1）要使程序运行后，命令按钮 Command1的 Caption属性值自动变为“排序”，可在_____（单选，填字母：
| A．Text1 Cick()/ | B．Fom_Load()/ | C．Command1_Cick()）事件过程中添加语句：Command1 Caption=“排序”。 |
Const n = 10
Dim a(1 To n) As Integer
Private Sub Form Load ()
‘数组初始化,生成1~20之间的随机整数并赋值给数组a
Randomize '随机数初始化
For i=1 To n
a(i) =①_______
Next i
End Sub
Private Sub Command1 _Click()
Dim 1 As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom = n
For i=1 To bottom -1
For j = bottom To i + 1 Step -1
If ②_______ Then
t = a(j):a(j) = a(i):a(i) = t
ElseIf a(j) = a(i) Then
③_______
bottom = bottom -1
End if
Next j
Next i
Text2. text = ""
For i=1 to bottom
Text2. Text = Text2. Text + str(a(i))
Next i
End sub