在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框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的值为______。

小庄编写了一个统计数组元素a(l)到a(n)中的“升序段”个数s(如图所示的数据序列，其 “升序段”的个数等于3)的VB程序。部分程序如下：

k = 0 ： s = 0
For i =" 2" To n
If a(i) > a(i - 1) Then

Else
If k =" 1" then
s=s+1
k=0
end if
End If
Next i
Textl.Text = Str(s)
方框中的正确语句是(    )

A．k =" k" - 1	B．k =___1___
C．k = -1	D．k =" k" + 1

在程序中用变量存储某个人的身份证号码，以下数据类型合适的是：（   ）

A．Integer

B．Long

C．String

D．Boolean

计算下列表达式的值
(1).156\10 mod 7的值是_________________
(2).12+5^2 MOD 23*3\72/2^3+1值为_________________
(3).如果变量a=2,b=3,c=4,d=5，表达式NOT a>b AND NOT d<>c的值是_________________
(4).如果变量 a=7、b=6、c=4、d=5，则表达式 a<d OR b>c AND c<>d 的值为_________________

在Visual Basic中，下列属于正确变量名的是(    )

A．a1

B．3y

C．x-y

D．then