（加试题）有如下程序段，若有如下数据：64, 57, 22, 96, 71，分别存储在a(1)至a(5)中，经过以下程序段处理后的数据依次为
Dim  a(1 To 6)  As Integer
s = 0
For  i = 1 To 5
If  a(i) Mod 2 = 1  Then  s = s + 1
Next  i
For  i = 1 To 4
If  a(i) Mod 2 = 0  Then
For  j = 5 To i + 1 Step -1
If  a(j) Mod 2 = 1  Then
a(6) = a(i): a(i) = a(j): a(j) = a(6): Exit For
End If
Next  j
End If
Next  i
For  i = s + 2 To 5
k = i - 1
For  j = i To 5
If  a(k) > a(j)  Then  k = j
Next  j
If k <> i - 1 Then
a(6) = a(i - 1): a(i - 1) = a(k): a(k) = a(6)
End If
Next  i

A．22, 57, 64, 71, 96	B．71, 57, 22, 96, 64
C．71, 57, 22, 64, 96	D．57, 71, 22, 64, 96

趣味填空题：给出用等号连接的两个整数，如“222＝24”，让你在左边的整数中间某个位置插入一个加号，看有没有可能让等式成立。以上面的式子为例，可以写成2+22=24和22+2=24。现设计一个程序，实现该算法，程序运行界面如图所示。

（1）标题要显示“趣味数学”，需修改窗体的_________属性。
（2）实现上述功能的VB程序如下，请在程序划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, s1 As String, s2 As String
Dim c As Integer, k As Integer, i As Integer, flag As Boolean
flag = False
s = Text1.Text
For c = 1 To Len(s)
If ______________①  Then Exit For   'Exit for退出循环
Next c
s1 = Mid(s, 1, c - 1)
s2 = Mid(s, c + 1,len(s)-c)
k = _________②
For i = 1 To k - 1
If Val(Mid(s1, 1, i)) + Val(Mid(s1, i + 1,c-i-1)) = Val(s2) Then
List1.AddItem Mid(s, 1, i) + "+" + Mid(s, i + 1,len(s)-i)
________③
End If
Next i
If Not flag Then List1.AddItem "等式始终无法成立!"
End Sub

有算法流程图如图所示：该算法输出S的值(    )

A．3

B．5

C．8

D．-2

把一个数分成若干个自然数之和，如果要使这些自然数的乘积最大，那么这些自然数应全是2或3，且2最多不超过2个。在文本框Text1中输入一个自然数，单击“分解”按钮，在列表框List1中输出他们的乘积表达式。程序运行的界面如图所示：

Private Sub Command1_Click()
　Dim n As Integer，cj As Integer，s As String
　n＝Val(Text1.Text)
　cj＝____①____
　s＝”s＝”
　Do While ____②____
If n<>4 Then
　n＝n－3
　cj＝cj*3
　s＝s＋”3×”
Else
　n＝n－2
　cj＝cj*2
　s＝s＋”2×”
End If
　Loop
　cj＝____③____
　If n＝3 Then s＝s＋”3” Else s＝s＋”2”
　Text2.Text＝s
　Text3.Text＝cj
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
　Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer
　Dim jy As Integer
　s＝Text1.Text
　t＝0：sum＝0
　For i＝1 To Len(s)
s1＝Mid(s，i，1)
If s1>＝”0” And s1<＝”9” Then
　′①
　If t<10 Then
sum＝sum＋Val(s1)*(11－t)
　ElseIf t＝10 Then
　　　　′②
　 End If
End If
　Next i
　sum＝11－sum Mod 11
　If  Then′③
Text2.Text＝”该校验码中数字不是10位数！”
　Else
　If　jy＝“X”　and sum＝10 Then
Text2.Text＝”校验通过”
　ElseIf　val(jy)＝sum then
Text2.Text＝”校验通过”
　Else
Text2.Text＝”校验不通过”
　End If
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________

某算法的流程图如图所示：

输入x的值为7，执行这部分流程，输出n的值为(　　)

A．2

B．6

C．7

D．8

若已知当前的人均GDP水平和GDP年增长率，可以计算达到某个GDP水平所需年份。在文本框Text1、Text2、Text3中分别输入人均GDP、年增长率和达到的GDP水平，单击计算按钮Command1，在文本框Text4中输出所需年数。程序运行界面如下：

(1)在设计程序界面时，使应使用图b所示“控件工具箱”中的________(填写相应编号)添加“计算”按钮。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim gdp As Single，ddgdp As Single，zc As Single，y As Integer
gdp＝Val(Text1.Text)
zc＝Val(Text2.Text)
ddgdp＝Val(Text3.Text)
y＝0
Do While ____①____
　　  ____②____
gdp＝gdp*(1＋zc)
Loop
Text4.Text＝Str(y)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________

阅读下列程序段并回答问题。
a=3
b=6
b=a
c=b
a=c
上述程序执行后，变量a的值是_________，变量b的值是_________。

程序的三种基本结构为（   ）。

A．顺序结构、树形结构和选择结构

B．网状结构、顺序结构和选择结构

C．顺序结构、选择结构和循环结构

D．网状结构、循环结构和树形结构

以下VB 程序段执行后，输出的结果是（   ）。
m=1
n=2
if true then print m else print n

A．1	B．2
C．1 2	D．2 1