下列程序的功能是在text1中输入的自然数，分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20，那么在列表框中会显示如右图所示结果。其中，上述界面中“开始处理”按钮的名称是“Command1”，程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为true，否则返回false。

请在下列程序代码的基础上按照要求设计该程序,完善程序中的划线部分。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Function f(x) As Boolean
f = True
For i =" 2" To Sqr(x)
If x Mod i =" 0" Then ___________
Next i
End Function
Private Sub Command1_Click()
n = ________________
For a1 =" 2" To n
For a2 =" a1" To n
For a3 =" a2" To n
If _________________ And f(a1) And f(a2) And f(a3) Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub

要求编写VB程序，使其具有下列功能：在文本框Text1中输入身高数据，在文本框Text2中输入体重数据，在复选框Check1据实勾选“性别”，单击“判断”按钮Command1，按“世界卫生组织体重计算标准”进行判断，并在Label3中显示判断结果。界面设计如图1所示。世界卫生组织关于成年人体重标准的计算方法如图2所示。


（1）应用程序界面设计时，为添加文本框Text1和Text2，应使用图3所示的“控件工具箱”中的___________（填写相应编号），并在属性窗口中将两个文本框的________属性设置为空。

（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim cm,kg,sc As Integer
Dim i as Single
cm = Val(Text1.Text)
kg = val(Text2.Text)
sc = 0
i = 0
If Check1 =" 0" Then
sc =" (cm" - 80) * 0.7
Else
_________①__________
End If
i =" (kg" - sc) / kg 
If i >=" -0.1" And i <=" 0.1" Then
Label3.Caption = "正重体重"
ElseIf i > 0.1 And i <=" 0.2" Then
Label3.Caption = "体重超重"
ElseIf i > 0.2 Then
_____________②____________
ElseIf i <=" -0.1" And i >=" -0.2" Then
Label3.Caption = "体重过轻"
Else
Label3.Caption = "体重严重不足"
End If
End Sub

执行如下Visual Basic程序段时，出现了如下图所示的错误：

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a =" 5:" b = 8
b =" a" + b
label1.Caption = Str(b)
End Sub
引发此错误的语句可能为（ ）

A．Dim a As Integer, b As Integer	B．a =" 5:" b = 8
C．b =" a" + b	D．label1.Caption = Str(b)

用对分查找法从数列3，6，7，10，12，16，25，30，75中找到数据10的最少查找次数是（  ）

A．2

B．4

C．3

D．7

某算法流程图如图所示, 执行该算法，当i的值为3时，下列说法正确的是（ ）

A．输出s的值

B．程序出错

C．执行语句s=s+s*i和i=i+1

D．语句s=s+s*i已经执行了1次

国内特快专递每200克为一个计费单位，200克以内22元，200克以上每续重200克（不足200克以200克计算）8元，现在要编写一个程序输入包裹重量自动计算出价格。解决上述问题，最合适的算法是（ ）

A．解析算法

B．枚举算法

C．排序算法

D．递归算法

下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是______，文本框Text2中显示的内容是_______。
Private Sub Command1_click( )
Dim a(1 to 3) as integer,k as integer,t as integer,s as integer
a(1)="15:" a(2)="36:" a(3)=7
s=0
For k="2" to 3
if a(k)>a(1) then
t=a(1):a(1)=a(k):a(k)=t
s=s+1
End if
Next k
text1.text=str(a(1))
text2.text=str(s)
End sub

下列VB程序模块可以计算正整数n阶乘的值。
Function f(n As Integer) As Integer
If n < =" 1" Then
f = 1
Else
f =" n" * f(n - 1)
End If
End Function
该模块采用的算法是（   ）

A．枚举

B．查找

C．排序

D．递归

已知t=55.8，s=64，m=-81，则下列Visual Basic表达式的值为False的是（ ）

A．t < abs（m）and int（t）+8 >= s	B．int（m）> s or t < abs（m）
C．sqr（s）+ t < abs（m）	D．t > s + m

小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；
②最后两位数字相同；
③能被12和38整除。
程序界面如1图所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

（1）应用程序界面设计时，为添加“可能的密码有：”对象，应使用2图所示的“控件工具箱”中的______________（填写相应编号），并在3图所示的“属性窗口”中，将____________属性值设置为“可能的密码有：”。

（2）解决此问题的相应程序如下，请根据题意将程序补充完整。
Private Sub  Command1_click ( )
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ____________  Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub