小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框 List1 中，在文本框 Text1 中输入温度值，单击“统计”按钮 Command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 Text3 中，同时在 Text2 中显示日期区间，运行界面如下图所示。

实现上述功能的 VB 代码如 下，在划线处填入合适代码。
Dim rq(1 To 100) As String ‘ 存放日期
Dim qw(1 To 100) As Integer ‘ 存放最高气温值
Dim n As Integer '总天数
Private Sub Form_Load()
' 读取数据库内容，其中日期数据存放在数组 rq 中，最高气温数据存放在 qw 中，第 i 个日期保存在 rq（i）中，对应的气温保存在 qw（i）中，并显示在列表框 List1 中，代码略
End Sub
Private Sub Command1_Click()
Dim ntempend As Integer ‘ 记录当前结束日期的下标
Dim max As Integer   ‘ 记录最大连续天数
Dim nend As Integer ‘ 记录最大连续天数下的结束日期的下标
Dim ncount As Integer ‘ 统计连续天数
Dim tjqw As Integer   ‘ 存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If  ___________①___________ Then
ncount = ncount + 1
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________
End If
Next
If max <> 0 Then Text2.Text = ___________③___________ & "-" & rq(nend)

日期判断:从文本框Text1输入一个8位数字表示的日期，其中第1到4位表示年（第1位确定不为零），第5到6位表示月，第7到8位表示日。单击“判断”按钮，判断该日期是否合法，将结果依次输出到列表框List1。程序界面如下图所示：
提示：年份值符合下列两种情况之一的是闰年。
1.年份是4的倍数，但不是100的倍数；
2.年份是400的倍数。

（1）观察程序代码，可知“判断”按钮的对象名为 。（单选，填字母：

A．Text1/

B．List1/

C．Command1/

D．Judge/E.判断）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Judge_Click()
Dim riqi As String, st As String
Dim year As Integer, month As Integer, day As Integer
Dim rn As Boolean, hefa As Boolean
riqi = Text1.Text
year =" Val(Mid(riqi," 1, 4))
month =" Val(Mid(riqi," 5, 2))
day =    ①     ‘第①处
st =" Str(year)" + "年" + Str(month) + "月" + Str(day) + "日"
rn = False  ‘用于判断是否为闰年
If ②  Then rn = True  ‘第②处
If year Mod 4 =" 0" And year Mod 100 <> 0 Then rn = True
hefa = True  ‘用于判断是否为合法日期
If month =" 0" Or month > 12 Then hefa = False
If day =" 0" Then hefa = False
If (month =" 1" Or month =" 3" Or month =" 5" Or month =" 7" Or  ’与下一行语句同行
month =" 8" Or month =" 10" Or month =" 12)" And day > 31 Then hefa = False
If (month =" 4" Or month =" 6" Or month =" 9" Or month = 11) ’与下一行语句同行
And day > 30 Then hefa = False
If   ③   Then hefa =" False" ’第③处,判断闰年2月的天数是否合法
If month =" 2" And Rn =" False" And day > 28 Then hefa = False
If hefa =" True" Then st =" st" + " 合法日期" Else st =" st" + " 非法日期"
List1.AddItem st
End Sub

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

仔细分析以下流程图所示算法的功能，并回答问题。
（1）①处所示语句的功能是
（2）写出语句②对应的VB表达式     
（3）程序运行的结果是   

某电信部门规定：拨打市内电话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话时间为整数）。下面是计算通话费用的流程图和程序，请认真分析并回答问题。根据题意，完善流程图，填写空白处。

①  
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim    ② as ③
  ‘定义 x 为整型
x = Val(Text1.Text)
   ④  Then
‘条件语句 
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于    ⑥ 结构程序设计。