图1
图2
以下说法正确的是（ ）
Dim a(5) As Integer
Dim i As Integer, j As Integer, t As Integer
a(1) = 52: a(2) = 15: a(3) = 37: a(4) = 22: a(5) = 35
i = 1
Do While i < 5
t = i: j = i + 1
Do While j <= 5
If a(j) > a(t) Then t = j
j = j + 1
Loop
x = a(t): a(t) = a(i): a(i) = x
i = i + 1
Loop
Text1.Text = Str(a(2))
运行该段代码后，文本框Text1中显示的内容为（ ）
图1
请回答下列问题：
A =SUM(C3:E3) B =$C3+$D3+$E3 C =C3+D3+E3 D =C$3+D$3+E$3）。
（单选，填字母：A 柱形图 / B 面积图 / C 条形图 / D 折线图）。
图2
图3
Private Sub Command1_Click()
Dim r As Integer, k1 As Integer, k2 As Integer
Dim s As String, n As Integer
'从文本框TxtIn中获取字符串
Randomize
r = Int(Rnd() * 10) + 1 '随机生成洗牌次数
n = Len(s)
Do While r >= 1 '洗牌操作
k1 = Int(Rnd() * (n - 2)) + 2
k2 = Int(Rnd() * (n - k1 + 1)) + k1
s = + Mid(s, 1, k1 - 1) + Mid(s, k2 + 1, n - k2)
r = r - 1
Loop
TxtOut.Text = s ' 在文本框TxtOut中输出结果
End Sub
B . 
C . 
D . 
图1
欣欣用Flash软件制作动画，其中“story”场景的界面如图2所示，“story”场景的制作脚本如下:
场景名：story 类别序号：2 | 进入方式： 由“Load”场景单击“Play”按钮进入 |
呈现方式： ①直接出现背景图片，音乐自动播放; ②梁山伯实例从舞台外左侧移动到舞台中间(从小到大，移动速度越来越快)；祝英台实例从舞台外右侧移动到舞台中间(从小到大，移动速度越来越快)； ③舞台下方先后出现文字“小弟姓祝名英台，乃上虞祝家村人氏，敢问仁兄……”“会稽梁山伯”（从无到有）； ④“退出”按钮位于舞台右下角，点击后退出动画的播放。 | 呈现顺序说明： ①一开始就显示背景图片，播放音乐； ②同时，梁山伯和祝英台分别从舞台左侧和右侧移动到舞台中间； ③梁山伯和祝英台会话； ④文字“小弟姓祝名英台，乃上虞祝家村人氏，敢问仁兄……”和“会稽梁山伯”淡入； ⑤最后动画停止播放，并出现“退出”按钮。 |
图2
图3
图4
小敏编写了一个VB程序，用来求一个偶数(6到100之间)可能存在多少这样的素数对（注： A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可。运行界面如图所示，程序代码如下。但加框处代码有错，请改正。
Dim IsPrime(100) As Boolean '用来存储是否素数，True为素数，False为非素数
Private Sub Command1_Click()
Dim x As Integer, y As Integer, i As Integer, num As Integer
Call Init '调用Init函数
x = Val(Text1.Text)
y = x \ 2
num = 0
For i = 3 To y Step 2
'①
num = num + 1
List1.AddItem Str(x) + "=" + Str(i) + "+" + Str(x - i)
End If
Next i
Label2.Caption = "偶数" + Str(x) + "共有" + Str(num) + "个素数对。"
End Sub
Sub Init() '初始化IsPrime数组的值
Dim i As Integer, j As Integer, x As Integer
For i = 3 To 100 Step 2
x = Int(Sqr(i))
'②
If i Mod j = 0 Then Exit For
Next j
If j > x Then IsPrime(i) = True Else IsPrime(i) = False
Next i
End Sub
① ②
做法是比较中点与当前查找范围第1个数大小关系，用对分法使查找范围逼近拐点；当余下数组只有二个元素时，可根据此二元素大小关系得到拐点的位置。
依据上述描述设计了VB程序，界面如图所示。请回答下列问题：
Dim a(1 To 20) As Integer
Private Sub Command1_Click()
Dim Low As Integer, High As Integer
Low = 1
High = 20
Do While High > Low
If ① Then '当只余下两个元素时
If ② Then
Label1.Caption = "拐点元素为" + Str(a(1)) + ",下标为" + Str(1)
Else
Label1.Caption = "拐点元素为" + Str(a(High)) + ",下标为" + Str(High)
End If
Exit Do
End If
If a(m) >= a(Low) Then
Low = m
Else
③
End If
Loop
End Sub
Private Sub Form_Load()
'生成循环递增的数组a，代码略
End Sub
① ② ③
