将A变量定义成长度为5的定长字符串变量所用的语句是___________________

（加试题）用一个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

下列能作为Visual Basic变量名的是（    ）

A．b+7

B．Mod

C．3x

D．T_1

学习完数组这个知识点后，小林设计了一个程序，该程序的主要功能是，先给数组中每个元素赋值，再找出数组中最大的数，具体程序如下。

（1）数组a中共有_____________个变量。
（2）数组a中所有变量的类型____________（相同或不相同）。
（3）将程序中①的代码补充完整______________。
（4）将程序中②的代码补充完整_______________。

（加试题）幸运数。一组1幵始的奇数数列为：
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数删除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51，……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列，依次存储在数组a中，代码略
top = 2: bott = 500
Do While top < bott

  ①

For i = 1 To bott

  If i Mod a(top) < > 0 Then

b(k) = a(i)

___________________ ②

End If

Next i

③

top = top + 1

For i = 1 To bott

A(1) = b(1)

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(

A．对象名

B．属性名

C．事件名）

(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________ 
②_____________________________
③_____________________________