下列程序的功能是在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 _____( 1 )_____
Next i
End Function
Private Sub Command1_Click()
n = _______( 2 )_______
For a1 =" 2" To n
For a2 =" a1" To n
For a3 =" a2" To n
If _______( 3 )_______ 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
(1)
(2)
(3)

某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是

A．2，True

B．3，True

C．2，False

D．3，False

有如下VB程序段：
Dim x As String，y As String
Dim ans As Integer
x=“5”：y=“20”：ans = 0
If x>y Then ans = Val(x) Else ans = Val(y)
Ans = ans + Val(x+y) 
Text1.Text = Str(ans)
程序运行完后，文本框Text1中显示的是：（  ）

A．25

B．30

C．540

D．525

（加试题）有如下VB程序段：
a(1)=1
For i=2 To 6
Randomize
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2=1 Then
a(i)=a(i)\2+1
EIse
a(i)=a(i)/2
End If
Next i
执行程序后，a数组各元素可能是

A．1 3 4 6 7 9

B．1 2 0 3 5 6

C．1 2 3 4 5 4

D．1 3 4 5 1 1

编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示，运行界面如2图所示：


(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub