（加试题）用一个6*5矩阵表示地图，分别用a数组元素表示，第1行从左到右为a(1)到a(6)，依次类推，右下角为a(30)。其中数字0表示不通，数字1I表示畅通。现在要从左上角到右下角寻找一条畅通的路径。线路规则如F：
•路线每个位置只能向右或向下
•任何一个岔口优先向右走，右侧不通再向下走
•一条路线中每个位置只能走一次，不能重复
算法思路：探路过程中，记录每个位置坐标到数组lu；遇到岔路口(向右向下都通)，则记录路口坐标到数组cha；遇到前方无路时，需要返回到上一个路口，标记路口右侧不通；当前方无路，岔路口数组也退回到0，说明整体不通，否则根据规则走到右下角为止，最后输出整体线路坐标。
实现算法的程序如下，运行结果如图所示。
回答下列问题：
(1)根据规则，如图迷宫矩阵正确路线的第6个位置是a数组的第_________个元素(填数字)

(2)在程序划线处填上合适代码，使程序完整。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer，j As Integer，pos As Integer
Dim cha(1 To 10)As Integer'记录一条路线中各个岔路口
Dim lu(1 To 10) As Integer’记录路线经过的位置
pos=1：j=0：lu(1)=1：i=1
Do While i <=9‘第1个和最后1个固定，中间有9个需要路过的路径点

If pos Mod 6<>0 And a(pos+1)=1 Then' 向右畅通

If pos+6 <=30 and a(pos+6)=1 Then‘记录岔路口
j=j+1
_____________
End If
pos=pos+1
i=i+1
1u(i)=pos
Else If pos+6 <=30 And a(pos+6)=1 Then’向下畅通
pos=pos+6
i=i+1
lu(i)=pos
Else’坐标退回到上一个岔路口
If j=0 Then Exit Do
Do While lu(i)<>cha(j)
_____________
Loop
a(cha(j)+1)=0’标记此路口右侧不可用
_____________
j=j-1
End If；

Loop

If j=0 Then

Text1.Text="没有畅通道路"

Else

For i=1 To 10
Text1.Text=Text1.Text+Str(lu(i))
Next i

End If

End Sub
Private Sub Form_Load()

‘生成图形矩阵的数组a各个元素，并在列表框显示，代码略

End Sub

.有如下VB程序段：
x=-3
Do While x<0
x=x+2
Loop
该程序段运行后，变量x的值是：

A．-3

B．-1

C．1

D．3

（加试题）小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数 ，保留一位小数），在文本框Text2中输出路径值。程序界面如图所示。

实现上述功能的VB程序如下，但划线部分代码有错，请改正。
Private Sub Command1_Click()
Dim x(1 To 100) As Single, y(1 To 100) As Single
Dim tmp As Single, length As Single, sum As Single, x1 As Single, y1 As Single
Dim i As Integer, j As Integer, k As Integer
Randomize 
List1.Clear
k = Val(Text1.Text)
For i = 1 To k
x(i) = Int(Rnd * 90) / 10 + 1
y(i) = Int(Rnd * 90) / 10 + 1
List1.AddItem "X:" + Str(x(i)) + "   " + "Y:" + Str(y(i))
Next i
For i = 1 To k - 1
For j = 1 To k - i
If x(j) > x(j + 1) Then
x(i)=x(i) + x(j)
x(j) = x(i) - x(j)
 x(j) = x(i) + x(j)   答：________________
tmp = y(j)
y(j) = y(j + 1)
y(j + 1) = tmp
End If
Next j
Next i
sum = 0: length = 0
For i = 1 To k - 1
 x1 = (x(i) - x(1)) ^ 2     答:______________    
'变量y1计算方法同x1，代码略
length = Sqr(x1 + y1)
sum = sum + length
Next i
Text2.Text = Str(Int(sum * 10) / 10)
End Sub

小徐编写程序计算1+2+3+4+...+100的和。但是发现他的程序不能给出正确答案。请你帮他查找程序中错误的地方，并予以改正。

 

第___句存在错误，
该句应该改为________________（完整书写）

有如下VB程序段：

数组a各元素的初值为0，执行上述程序段后，文本框Text 1中输出的内容为

A．30

B．9

C．8

D．7