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

某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a, b, h As Single
Dim v As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c= Val(Text3.Text)
v = a * b * h
label1.Caption = "长方体体积为：" + Val(v)
End Sub
运行程序，单击命令按钮command1后弹出如图所示的出错提示，引起该错误的语句是：

A．Dim a, b, h As Single	B．a = Val(Text1.Text)
C．v = a * b * h	D．label1.Caption = "长方体体积为：" + Val(v)

调试如下VB程序段，出现如图所示的错误信息。

For i = 1 To 10
If d(i) >= 0 Then
t=t+1
List1.AddItem Str(d(i))
Else
t=t-1
List2.AddItem Str(d(i))
Next
则该程序段出错的原因是缺少了（    ）

A．Next

B．i

C．For

D．End If

字符串中任意个连续的字符组成的子序列称为该字符串的子串，如字符串“123” 的子串有“1”、“2”、“3”、“12”、“23”、“123”。输出字符串s所有子串的VB程序段如下：
s = Text1.Text
List1.Clear
len1 = Len(s) ‘①
For i = 1 To len1 ‘②   
For j = 1 To len1- i   ‘③   
List1.AddItem Mid(s, j, i)  ‘④
Next j
Next i
运行时发现未输出所有子串,则修改（   ）

A．①处所在行的语句为len1= Len(Text1.text)

B．②处所在行的语句为For i= 1 To len1+ 1

C．③处所在行的语句为For j= 1 To len1+ 1    - i

D．④处所在行的语句为List1.AddItem Mid(s, i, j)

调试运行计算机程序的目的是

A．编写程序	B．设计算法
C．分析问题	D．检查程序的可行性

某算法的部分流程图如图所示。执行这部分流程，分别输入35、50、60，则输出值依次为

A．10，3

B．10，4

C．7，10，4

D．10，12，3

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As String, b As String
a = "up "
b ="look "+"  "+a
Label1.Caption = b
End Sub
运行程序，单击命令按钮Command1后弹出如下图所示的出错信息提示，此时程序正执行的语句是（  ）

A．Dim a As String, b A s String	B．a = "up "
C．b =  "look "+"  "+a	D．Label1.Caption = b

奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a =" n" Mod 2
n =" n" \ 2
t=____________①
s =" Str(a)" + s
Loop
v =" t" Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +____________②
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是____________。

VB程序的某对象属性窗口如图所示，下列说法不正确的是（）

A．该对象的类型为命令按钮

B．BackColor为属性名

C．该对象的名称为Command1

D．要改变当前对象标题显示的文字，应修改其Caption属性的值

数组a中存储的是左右交替上升的n个正整数，如下表所示：

a（1）	a（2）	a（3）	……	a（n —2）	a（n—1）	a（n）
3	25	38	……	55	31	12

 
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While i<j And Not flag '（1）
m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub