编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：
(1)将n乘以3后加1产生一个新的数
(2)对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1
譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示，回答下列问题:

（1）若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的_______属性。
（2）完成上述功能的程序代码如下，请在划线处填入合适的代码
Private Sub Command1_Click()
Dim n As Integer,t as Integer ,m as Integer ,s as String
____________________
t = n * 3 + 1
m = 1
s = ""
Do While _________________
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现！"
End If
End Sub
（3）按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数______。（选填：能/否）

（加试题）小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个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

（加试题）已知一无序数组a中的元素为"90,15,40,72,65,32,81,6"，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为"8,2,6,3,5,4,7,1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：

当文本框Text1中输入的值为32时，程序运行结束后变量c的值为

A．1

B．2

C．3

D．4

（加试题）某密码的破译步骤如下：
（1）找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20),单词与数字对应如下：

（2）将这些数字平方后除以100取余，得到两位数如00,04,21,96。
（3）把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。
（4）步骤(3)找出的最小数即为密码。
小明按照上述方法，设计了一个解密的VB程序，功能如下:单击“解密”按钮Commandl,程序依次将文本框Textl中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。
程序运行效果如图所示，请回答下列问题：

（1）若文章内容为“tom bought two apples and five oranges, which cost ten dollars altogether.”,则破译后的密码应为_____________。
（2）请在划线处填入合适的代码。
Dim a(1 To 20) As String
Private Sub Form_Load()
a(1) = "one": a(2) = "two" 
'……将所有数字单词按顺序存入数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim s As String, tmp As String
Dim c as Integer,i As Integer, j As Integer, k As Integer, t As String, ch As As String,code As Long
Dim b(1 To 100) As String   'b数组存放数字单词处理后得到的两位数
s = Text1.Text
c = 0: i = 1: flag = True:t = ""
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
t = t + ch
flag = False
ElseIf flag = False Then
For j = 1 To 20
If t = a(j) Then
c = c + 1
b(c) =_________________
End If
Next j
t = ""
flag = True
End If
i = i + 1
Loop
’将b数组中的两位数按数值大小进行升序排序，代码略
For i = 1 To c
t = Val(b(i))
_______________________
Next i
Text2.Text = Str(code)
End Sub
Function decode(num As Integer) As String
Dim mo As Integer
mo = num * num Mod 100
If mo = 0 Then
decode = "00"
ElseIf ___________________  Then
decode = "0" + Trim(Str(mo))
Else
decode = Trim(Str(mo))  'Trim为去除字符串两端空格的函数
End If
End Function

（加试题）有如下VB程序段：

执行该段程序后，数组元素f(12)的值为

A．0

B．1

C．2

D．3

能完全正确表示“year是闰年”的逻辑表达式是（   ）

A．year mod 4 = 0

B．year mod 400 = 0

C．(year mod 400 = 0) or (year mod 4 = 0) and (year mod 100 <> 0)

D．(year mod 400 = 0) and (year mod 4 = 0) or (year mod 100 <> 0)

用枚举算法求解“找出所有满足各位数字之和等于5的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是（  ）

A．从0到999	B．从100到999
C．从100到500	D．从104到500

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是(　　)，文本框Text2中显示的内容是（  ）　
Private Sub Command1_Click( )
Dim i As Integer，c As Integer，n As Integer
c＝0:n＝10
For i＝1 To 10
If n Mod i＝0 Then c＝c+1
Next i
Text1.Text＝Str(n)
Text2.Text＝Str(c)
End Sub

A．10　4

B．3　10

C．4　10

D．10　3

如图所示的流程图片断，该流程图执行过后，A、B的值分别为(   )

A．A是20，B是30

B．A 是20，B是20

C．A是30，B是30

D．A是30，B是20

下列问题适合使用枚举算法解决的是（）

A．计算已知半径的圆面积	B．计程车计费
C．校园歌曲大赛的成绩排名	D．找出1000以内的所有素数