编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

（1）要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text   
If ____ then 
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)  
ch = ___ 
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
（3）由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为________。

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)

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

显示系统当前日期和时间

编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。

（1）观察上图，该程序中的窗体对象名为________________（单选，填字母：

A．求所有子串/

B．Form1/

C．子串.frm/

D．工程1.vbp）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command3_Click()
Dim s As String, t As Integer, j As Integer
s = Text1.Text
t = Len(s): Sum = 0
For i = 1 To t
For j = i To t
List1.AddItem ①_________________________________
Sum = Sum + 1
Next j
Next i
List1.AddItem "总共有" + ②_______________________________ + "个子串" 
End Sub
（3）如果输入的字符串是“abcdefg”，则输出中有____________个子串