查找 ASCII 码值最小的字符。程序功能如下：在文本框 Text1 中输入一个字符串，单击命令按钮 Command1，在文本框 Text2 中输出该字符串中 ASCII 码值最小的字符，运行界面如下图所示。

Private Sub Command1_Click()
Dim str1 As String  '存储输入的字符串
Dim n As Integer    '存储输入字符串的长度
Dim i As Integer, j As Integer
str1 = Text1.Text
n =     ①   
s =     ②    
For i =" 2" To n   
If Mid(str1, i, 1) < s Then
s =" Mid(str1," i, 1)
Endif
Next i
Text2.Text = s
End Sub
（1）为实现上述功能，请在划线处填入合适的代码。
程序中划线处①应填入 程序中划线处②应填入
（2）如图所示, 在文本框 Text2 中输出的字符“M”是输入字符串中的第 个“M”。

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

若单选按钮被选中,其VALUE属性的值是(  ）

A．0

B．1

C．TRUE

D．FALSE

在Visual Basic的代码窗口中，语句List1.Clear中的Clear是（　　）

A．属性值

B．属性名

C．对象名

D．方法

如图所示，下面程序实现读取数据文件，进行可视化呈现，直观地展示了历年来报考研究生人数变化趋势。阅读程序回答问题：

（1）本程序中引用了第三方库，写出库名称，从代码中找出来。
（2）本程序读取了数据文件，文件名称是什么？
（3）读取数据文件的数据赋值到二维表型数据结构对象中，这个对象的名称是什么？
（4）本程序实现了数据可视化，呈现的图表为柱形图、折线图还是散点图？通过哪行代码来实现？
（5）本程序文件实现的图表的标题是什么？阅读程序，从其中找出来。