农农摘桃子。农农家的院子里有一棵桃子树，每到秋天树上都会结出很多桃子（假设桃子距地的高度为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

在VB窗口中建立命令按钮对象，双击该对象，建立的程序名称中的对象名和命令按钮对象名称相同；（   ）

VB中工程文件的扩展名为(   )

A．.vbp

B．.frm

C．.bas

D．.ds

Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "TaizhouShusheng"
c =" Mid(a," Len (a) \ 2 + 1, 8)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

A．“Shusheng ”

B．“Taizhou”

C．Taizhou

D．Shusheng

在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Long, m As Integer
Dim a(0 To 9) As Integer
n = Val(Text1.Text)
List1.Clear
For i = 0 To 9
a(i) = 0
Next i
Do While n > 0
t = n Mod 10
a(t) = a(t) + 1
①_____________
Loop
m = a(0)
For i = 1 To 9
If a(i) > m Then m = a(i): k = i
List1.AddItem Str(i) & "：" & Str(a(i)) & "个"
Nextｉ
Label2.Caption = "出现最多的数字是：" + ②_______________
End Sub