以下关于分支结构的描述中，正确的是（ ）。
| A．单分支结构有一个出口，而双分支结构有两个出口。 |
| B．分支结构中的判定框，有一个入口和两个出口 |
| C．用一个双分支结构实现的算法都可以改写成用二个单分支实现。 |
| D．单分支结构和双分支结构可以相互进行嵌套使用 |
在日常生活中，我们常常会碰到各种各样的问题，以下描述中最适合我们用计算机编程方法来处理的是（ ）。
| A．去新华书店买书 |
| B．计算某个同学期中考试各科成绩总分 |
| C．计算10000以内的奇数平方和 |
| D．在因特网上查找自己喜欢的歌曲 |
编写VB程序,实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数,并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。
（1）观察运行界面，选项中没有用到的控件是 ( 选项
（2）设计该窗体界面时，需要将窗体form1的 属性设置为“最大随机数”。
（3）请完善下列程序代码：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim s As Integer
Dim max As Integer
n = Val(Text1.Text)
i = 1
Do While i <= n
a(i) =" Int(Rnd" * 100)
List1.AddItem Str(a(i))
s =" s" + a(i)
①
Loop
max = a(1)
For i =" 2" To n
If a(i) > max Then ②
Next i
List1.AddItem "和为：" + ③
List1.AddItem "最大值为：" + Str(max)
End Sub
空格处应填写的代码为:① ② ③ 。
（1）观察运行界面，选项中没有用到的控件是 ( 选项
A． | B． | C． | D． )。 |
（3）请完善下列程序代码：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim s As Integer
Dim max As Integer
n = Val(Text1.Text)
i = 1
Do While i <= n
a(i) =" Int(Rnd" * 100)
List1.AddItem Str(a(i))
s =" s" + a(i)
①
Loop
max = a(1)
For i =" 2" To n
If a(i) > max Then ②
Next i
List1.AddItem "和为：" + ③
List1.AddItem "最大值为：" + Str(max)
End Sub
空格处应填写的代码为:① ② ③ 。
如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。
实现上述功能的VB代码如下, 但加框处代码有错，请改正。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k =" 0:" i = 3
Do While i <= 100
If prime(i) Then ‘⑴
k =" k" + 1
a(k) = i
End If
i =" i" + 2
Loop
For i =" 2" To k
If a(i) =" a(i" +1)+2 Then ‘⑵
List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))[:学#科#网Z#X#X#K]
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i =" 2" To Int(Sqr(x))
If x Mod i =" 0" Then
prime = True
Exit For
End If
Next i
End Function
实现上述功能的VB代码如下, 但加框处代码有错，请改正。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k =" 0:" i = 3
Do While i <= 100
If prime(i) Then ‘⑴
k =" k" + 1
a(k) = i
End If
i =" i" + 2
Loop
For i =" 2" To k
If a(i) =" a(i" +1)+2 Then ‘⑵
List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))[:学#科#网Z#X#X#K]
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i =" 2" To Int(Sqr(x))
If x Mod i =" 0" Then
prime = True
Exit For
End If
Next i
End Function
小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i =" 1:" count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s =" Mid(Text1.Text," i, Len(Text2.Text))
If s =" Text2.Text" Then
result =" result" + Text3.Text
count =" count" + 1
pos = pos + Str(count)
i =" i" + Len(Text2.Text)
Else
result =" result" + Text2.Text
i =" i" + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i =" 1:" count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s =" Mid(Text1.Text," i, Len(Text2.Text))
If s =" Text2.Text" Then
result =" result" + Text3.Text
count =" count" + 1
pos = pos + Str(count)
i =" i" + Len(Text2.Text)
Else
result =" result" + Text2.Text
i =" i" + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如第16题图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While
'（1）
flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop
Label3.Caption = "排序过程的加工遍数为" +
'（2）
For i =" 1" To n
List2.AddItem Str(a(i))
Next i
End Sub
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While
'（1） flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop
Label3.Caption = "排序过程的加工遍数为" +
'（2）For i =" 1" To n
List2.AddItem Str(a(i))
Next i
End Sub
下列关于程序设计语言的说法，不正确的是（ ）。
| A．机器语言是最早出现的程序设计语言 |
| B．机器语言是一串由“0”和“1”构成的二进制代码 |
| C．高级语言是一种接近于自然语言的编程语言 |
| D．机器语言是最早出现的高级程序设计语言 |
（加试题）小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s = Mid(Text1.Text, i, Len(Text2.Text))
If s = Text2.Text Then
result = result + Text3.Text
count = count + 1
pos = pos + Str(count)
i = i + Len(Text2.Text)
Else
result = result + Text2.Text
i = i + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s = Mid(Text1.Text, i, Len(Text2.Text))
If s = Text2.Text Then
result = result + Text3.Text
count = count + 1
pos = pos + Str(count)
i = i + Len(Text2.Text)
Else
result = result + Text2.Text
i = i + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
（加试题）某对分查找算法的VB程序段如下：
key = Val(Text1.Text)
i =" 1:" j = 10
Text2.Text = ""
Do While i <= j
m =" Int((i" + j) / 2 + 0.5)
If key =" a(m)" Then Exit Do 'Exit Do表示退出循环
If key < a(m) Then j =" m" - 1 Else i =" m" + 1
Text2.Text =" Text2.Text" + Str(a(m))
Loop
数组元素a(1)到a(10)的值依次为“8,17,24,30,36,40,55,58,61,66”，文本框Text1中输入的值是30，执行该程序段，文本框Text2中显示的是
key = Val(Text1.Text)
i =" 1:" j = 10
Text2.Text = ""
Do While i <= j
m =" Int((i" + j) / 2 + 0.5)
If key =" a(m)" Then Exit Do 'Exit Do表示退出循环
If key < a(m) Then j =" m" - 1 Else i =" m" + 1
Text2.Text =" Text2.Text" + Str(a(m))
Loop
数组元素a(1)到a(10)的值依次为“8,17,24,30,36,40,55,58,61,66”，文本框Text1中输入的值是30，执行该程序段，文本框Text2中显示的是
| A．40 24 | B．40 24 36 | C．36 24 | D．36 17 24 |
（加试题）小赵对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下：
p =" 1:" q = 10
Do While p < q
iMin =" p:" iMax = p
For i =" p" + 1 To q
If a(i) < a(iMin) Then iMin = i
If a(i) > a(iMax) Then iMax = i
Next i
t =" a(iMin):" a(iMin) =" a(p):" a(p) = t
①
①
t =" a(iMax):" a(iMax) =" a(q):" a(q) = t
p =" p" + 1
q =" q" - 1
Loop
要使程序实现上述算法思想，则方框中的语句是
p =" 1:" q = 10
Do While p < q
iMin =" p:" iMax = p
For i =" p" + 1 To q
If a(i) < a(iMin) Then iMin = i
If a(i) > a(iMax) Then iMax = i
Next i
t =" a(iMin):" a(iMin) =" a(p):" a(p) = t
①
①
t =" a(iMax):" a(iMax) =" a(q):" a(q) = t
p =" p" + 1
q =" q" - 1
Loop
要使程序实现上述算法思想，则方框中的语句是
| A．If iMax =" p" Then iMax = iMin | B．If iMin =" p" Then iMin = iMax |
| C．If iMax =" p" Then iMin = iMax | D．If iMin =" p" Then iMax = iMin |