小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”   'Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “   ”
Else
MsgBox “    ”
方框中正确的语句是（ ）

A．①中“验证成功”	B．②中“输出用户名或密码有误”
C．②中“验证成功”	D．③中“输出验证码错误”

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
m = 0
For n =" 1" To 20
If n Mod 3 <> 0 Then m =" m" + n \ 3
Next n 
Text1.text = Str(m)
End Sub
程序运行后，如果单击命令按钮，则文本框Text1中显示的内容是    (    )

A．15

B．18

C．42

D．24

小刘编写了一个求序列所有子序列和的程序。程序能够输 出所有的子序列的和，同时输出最大的子序列和。如序列中有三个元素 a(1)，a(2)，a(3)，其子序列包括“a(1)，a(2)”，“ a(1)，a(2)，a(3)”，“ a(2)，a(3)”。 程序运行界面如图所示。

实现上述功能的VB程序如下（数组每一项的值都为［-100,100］内的随机整数），请将程序代码补充完整。
Private Sub Command1_Click()
Dim  a(1 To 10) As Integer
Dim b(10) As Integer
Dim i As Integer, j As Integer
Dim k As Integer, max As Integer
Randomize
max=-32768
List1.Clear
List2.Clear
b(0)= 0
For i=1 To 10
a(i)=___________    '(1)
b(i)=b(i-1)+a(i)
List1.AddItem  Str(a(i))
Next i
For  I = 1 To 10
For  j=i+1  To  10
s="a("+Str(i)+")"+"至"+"a("+Str(j)+")"+"的和为"
k=_______________     '(2)
If  k>max Then  max=k
List2.AddItem s+Str(k)
Next j
Next i
Label3.Caption="子序列最大和为："+___________ '(3)
End Sub

想设计一个判断某年是否是闰年的VB程序。通过查询资料得知：如果年份能被100整除同时也能被400整除，则该年是闰年；如果年份不能被100整除但能被4整除，则该年也是闰年。“判断某年是否为闰年”的算法流程图如下图所示(k=True表示该年是闰年，k=False表示该年不是闰年)。请回答下列问题：

（1）流程图粗线框部分的内容是
（2）实现流程图虚线框部分的VB语句是

下列程序的功能是在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)