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