编写一个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步之内回到初始数______。（选填：能/否）

有如下Visual Basic程序：
Private Sub Command1_Click()
Dim sum As  Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序计算了一个表达式的值，这个表达式是

A．1/2+2/3+3/4+4/5	B．1+1/2+2/3+3/4
C．1+1/2+2/3+3/4+4/5	D．1+1/2+1/3+1/4+1/5

在数组d中存放了10个不同的整数。下面流程图描述的算法功能是在数组d中查找元素值88，若找到输出该数组元素的下标，若没找到，输出0。流程图①处应填入( )。

A．输出m

B．输出dm

C．输出m-1

D．输出dm-1

某算法的部分流程图如图所示。执行这部分流程后，变量a的值为（    ）

A．1	B．2
C．3	D．4

若输入2、-3、5、-1、7则输出结果为_______

A．14

B．11

C．13

D．10