编写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）请为④、⑤划线处填入合适的代码，④： ，⑤：  。

若输入2、-3、5、-1、7则输出结果为_______

A．14

B．11

C．13

D．10

下列的几个程序段中，能将x和y中的数据互换的是（  ）

A．x=y:y=x

B．m=x:x=y:y=m

C．x=y:m=x:y=m

D．x=x+y:y=y-x:x=x-y

农农摘桃子。农农家的院子里有一棵桃子树，每到秋天树上都会结出很多桃子（假设桃子距地的高度为50—300厘米）。桃子成熟的时候，农农就会跑去摘桃子（假设农农碰到桃子，桃子就会掉下来）。农农有个30厘米高的板凳，当他不能直接用手摘到桃子的时候，就会踩到板凳上再试试。如果今天树上有10个成熟的桃子，请帮农农算一下他能够摘到多少个桃子。
（1）程序运行时界面如图所示，List1中桃子的高度数据由计算机随机产生，Text1中输入农农手伸直的最大高度，Text2中显示农农摘到的桃子数目。

设计如图所示应用程序界面时，应在图中所示的“属性窗口”中，将Form1的__________________属性设置为“农农摘桃子”；为添加列表框List1，应使用图中所示的“控件工具箱”中的______________（填写相应编号）。

（2）“开始摘果”按钮单击事件处理过程的流程图如图所示。请根据流程图将下列程序补充完整。
①___________________    ②___________________

Private Sub Command1_Click()
Dim a(1 To 10) As Integer,
Dim h As Integer, i As Integer, t As Integer
Randomize   '初始化Rnd函数
h = Val(Text1.Text)
t=0
For i =" 1" To 10  
'随机产生桃子的高度(50-300厘米)
a(i) =" Int(Rnd" * 251) +50   
List1.AddItem "桃子"+Str(i)+"高度:"+Str(a(i))
If ①  Then t =" t" + 1
Next i
②
End Sub

如图所示的流程图片断，该流程图执行过后，A、B的值分别为(   )

A．A是20，B是30

B．A 是20，B是20

C．A是30，B是30

D．A是30，B是20