某电信部门规定：拨打市内电话时，如果通话时间不超过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
这段程序属于    ⑥ 结构程序设计。

交换LABEL2和LABEL3中的数据
PRIVATE  SUB  FORMCLICK（ ）
LABEL2.CAPTION=90 :  LABEL3.CAPTION=86
C=LABEL2.CAPTION
________
________
END  SUB

下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=（1）
If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”
（2）
End Sub
（1）_____________________
（2）_____________________

下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个1，999范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是 。（填：冒泡排序/选择排序）
（2）在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1 ′产生1，999范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str(  （1）  )
End If
Loop
For i="1" To 9 ′进行排序
For j="10" To i+1    （2）
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i="1" To 10
List2.AddItem Str(a(i))
Next i
End Sub

VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机实数，若要“生成一个大于等于10且小于100的随机整数”的VB表达式是(    )

A．Int(Rnd()*100)

B．Int(Rnd()*99+1)

C．Int(Rnd()*99+10)

D．Int(Rnd()*90)+10