小明设计了一个 VB 程序，实现功能如下：在文本框 Text1 中输入一个学生成绩，单击“判定成绩等级” 按钮，在 Label3 中输出该成绩的等级。运行界面如图所示：

(1)若将 Text1 的名称改为“Txt”，则应修改文本框的属性：________________ 。
(2)为实现上述功能，请在下划线处填入合适的代码。
Private Sub Command1_Click() Dim x As Integer
x ＝ ①________
If x >＝ 90 Then
Label3.Caption ＝ "A" ElseIf x >＝ 80 Then
Label3.Caption ＝ "B" ElseIf x >＝ 60 Then
Label3.Caption ＝ "C" ElseIf x >＝ 55 Then
Label3.Caption ＝ "D"
②____________
Label3.Caption ＝ "E" End If
End Sub

已知出租车计费方法如下：路程在3公里以内（包含3公里）收起步价10元，路程超过3公里不超过10公里（包含10公里）部分按每公里2元计费，超出10公里部分按每公里3元计费。现要设计一个VB出租车计费系统程序，在路程文本框中中输入路程数，单击计算按钮可以计算出应付金额并显示到金额文本框中，请回答以下问题：

图一

在设计该程序界面时，要从图二界面到图一界面，需要进行哪些设置？
________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后，并在其中添加程序代码，代码如下：
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then  ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then    ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码，在①，②处填入正确的语句
①________________________________
②________________________________
完善程序代码后，若输入路程数为10，则应付金额为________元
实现该程序所用的算法结构属于______________（选择结构/循环结构）

有如下VB程序段：
s = Text1.Text
t = 0: Sum = 0
For i = 1 To len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = t * 10 + Val(c)
ElseIf c >= "a" And c <= "z" Then
Sum = Sum + t
Else
t = 0
End If
Next i
Text2.Text = Str(Sum)
在文本框Text1中输入“123aBc456”，执行程序段，文本框Text2中显示的内容是（   ）

A．456

B．654

C．579

D．123

将1、1、2、3、5、8、13、21、……数列的前20项存入a数组的正确程序段是_______。

A．	B．
C．	D．

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
　Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer
　Dim jy As Integer
　s＝Text1.Text
　t＝0：sum＝0
　For i＝1 To Len(s)
s1＝Mid(s，i，1)
If s1>＝”0” And s1<＝”9” Then
　′①
　If t<10 Then
sum＝sum＋Val(s1)*(11－t)
　ElseIf t＝10 Then
　　　　′②
　 End If
End If
　Next i
　sum＝11－sum Mod 11
　If  Then′③
Text2.Text＝”该校验码中数字不是10位数！”
　Else
　If　jy＝“X”　and sum＝10 Then
Text2.Text＝”校验通过”
　ElseIf　val(jy)＝sum then
Text2.Text＝”校验通过”
　Else
Text2.Text＝”校验不通过”
　End If
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________