用流程图表达条件“c=0”，要用到以下哪个框？（   ）

A．

B．

C．

D．

把虚框内流程图写代码（4’）

求所有百位数加十位数等于个位数的三位偶数的立方和。（4’，流程图不给分）

请写出VB程序

 

如果要保持上程序的算法（输出结果）不变，下面说法正确的是(    )

A．这行If x < y Then t =" x:" x =" y:" y = t可去掉；

B．这行a =" x:" b = y可去掉，MsgBox (Str(a * b / s))改成MsgBox (Str(x * y / s))就可以了；

C．输出结果是a,b的最大公约数；

D．上面说法都错；

有如下visual basic程序：
private Sub command1_Click()
s=0
If s<="99" then
For j="1to" 10
s=s+j
Next j
Else
print “程序出错！”
Endif
print “最后的s的值是:”；s
End Sub
请问以上程序的控制结构包含了（   ）

A．顺序结构、树型结构

B．顺序、选择结构

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

D．顺序、循环结构

在算法执行流程中，对于循环模式下列说法正确的是（  ）

A．对某个情况进行判断，当结果为真时执行步骤一，否则执行步骤二；

B．对某个情况进行判断，当结果为真时执行步骤一，然后再次判断这个情况，依次类推，直到条件为假时结束；

C．仅用循环模式就可以用来判断某个输入的数是不是整数；

D．循环模式中，可以嵌套选择模式，而选择模式不能嵌套循环模式；

关于上题的程序的控制结构的说法不正确的是（   ）

A．顺序结构包含了选择和循环结构

B．选择结构是由块条件语句构成

C．选择结构包含了循环结构

D．循环结构包含了选择结构

编写VB程序，实现如下功能：窗体装载时随机生成10个1至100的整数，并显示在列表框list1中，单击“分组”按钮command1，将这10个数分为奇数和偶数两组，在list2中显示奇数数字，及其个数，list3中显示偶数数字，及其个数。运行界面如第22题图所示，程序代码如下。

第22题图
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer 
Private Sub     ②  ()   '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) =    ③       '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④    
Else
List3.AddItem Str(a(i))
⑤   
End If
Next i
List2.AddItem  "共有奇数" + Str(ji) + "个"
List3.AddItem  "共有偶数" + Str(ou) + "个"
End Sub
（1）观察运行界面，选项中没有用到的控件是 ①   ( 选项A． B． C．

A．)。

（2）划线②处应填的事件是 ② 。
（3）划线处③的代码应该是：   ③    （填选项号）。

A. Int(Rnd()+100)*1 B. Int(Rnd()+1)* 100 C.Int(Rnd() * 100) + 1

（4）请为④、⑤划线处填入合适的代码，④： ，⑤：  。

在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()
x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

如下图所示，该流程图所表示的算法违背了算法的有穷性特征，下列修改方法中，可以改正该错误的是（）

A．将①处改为 i ← 0	B．将②处改为 s ≥ 0 ?
C．将③处改为 i ← i-2	D．将④处改为 s ← s-i