在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。

（1） Cmd对象属于______类。
（单选，填字母：

A．Form /

B．Label /

C．TextBox /

D．CommandButton ）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmd_Click（）
Dim i As Integer，j As Integer，k As Integer
Dim x1 As Single，y1 As Single，x2 As Single，y2 As Single
Dim d As Single，Totald As Single，v As Single，s As String
s =______①
x1 =" 0：" y1 = 0'出发点为坐标原点
k =" 1" ： j =" 1" ： Totald = 0
For i =" 1" To Len（s）
If Mid（s，i，1） ="，"Then
v =" Val（Mid（s，j，i" - j））'提取坐标值，保存在变量v中
j =" i" + 1
If ② Then
x2 = v
Else
y2 = v
d =" Sqr（（x2" — x1）^2 + （y2 — y1）^ 2）
Totald =" Totald" + d
x1 =" x2" ： y1 = y2
End If
k =" k" + 1
End If Next i
Label1. Caption = Str（Totald）
End Sub
（3） 运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k的值为______。

下列正确的Visual Basic注释语句是(   )

A．Dim a(10) As Integer定义一个数组

B．Dim a(10) As Integer“定义一个数组

C．Dim a(10) As Integer‘定义一个数组

D．Dim a(10) As Integer“定义一个数组”

求0,100之间所有偶数之和s的算法流程图如图所示。

为了实现此算法，图中判断框①和处理框②处可填入的是（  ）

A．① x ≤ 100？ ② x←x+2	B．① x ≤ 100？ ② x←x+1
C．① x ≥ 100？ ② x←x+2	D．① x ≥ 100？ ② x←x+1

如第20题图所示的流程图片段：该流程图执行过后，a、b、c的值分别为：（   ）

A．a=21,b=9,c=13	B．a=5,b=8,c=13
C．a="5,b=9,c=14"	D．a=21,b=9,c=14

小明编写一个模拟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．③中“输出验证码错误”