有如下程序段：
s = ""
For i = 1 To Len(Text1.Text)
s = s + Mid(Text1.Text, Len(Text1.Text) - i + 1, 1)
Next i
若文本框Textl中输入“a1b2c3”,执行程序后，变量s的值为（   ）

A．3

B．6

C．a1b2c3

D．3c2b1a

某算法的部分流程图如图所示，执行这部分流程后，变量s的值是

A．2

B．10

C．58

D．442

用物理天平测量物体的质量。待测物体的质量为X克（X为小于1000的整数），以下程序功能为计算天平砝码盘中所需的砝码。已知天平可用的砝码为500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个。程序界面如图所示。

Private Sub Command1_Click()

Dim a(1 To 12) As Integer, i As Integer, x As Integer

a(1) = 500: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20

a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1

i = 1

x = Val(Text1.Text)

List1.Clear

Do While  ①   

If x >= a(i) Then

List1.AddItem Str(a(i))

   ②   

End If

i = i + 1

Loop   

End Sub

（1）上述代码中“List1.Clear”中的Clear是对象List1的
（选填： 属性 / 事件 / 方法）。
（2）为实现以上功能，画线①处应填入的代码为   
画线②处应填入的代码为  
（3）程序运行正确后，在文本框内输入708，并单击“计算”按钮。则程序运行结果为
（选字母A/B/C）。

A		B		C

 

有如下图所示的流程图，根据此流程图可知，最后s的值为（  ）

A．10

B．32

C．46

D．94

编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：
字母表中共有26个字母{a，b，…，z}，把符合“长度不超过6”的所有字符组合升序排列，一个单词的编码就对应着它排序后的位置。例如：a→1    b→2    z→26    aa→27    ab→28    az → 52  ba → 53  bb →54…

小何为此编写了VB程序，将该编码理解为26进制数值，求该编码对应的数值。程序运行，从文本框Text1输入要查询的单词，单击按钮Command1，如果输入的单词符合编码条件，则在Label3上显示对应的编码值否则在Label3中显示“不符合编码条件”。

实现上述功能的VB程序和程序运行界面如下所示，请补充完善代码。

Function c(n As Long, r As Long) As Long 
Dim i As Long, cc As Long
cc = 1
For i = 1 To r
cc = cc * n
Next i
①
End Function
Private Sub Command1_Click()
Dim s As String, ch As String
Dim bm As Long, qz As Long
Dim xh As Integer
s = Text1.Text
bm = 0
flag = True
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If  ②    Then     
flag = False
Exit For
End If
xh = Asc(ch) - Asc("a")+1
  ③   
bm = bm + xh * qz
Next i
If flag Then
Text2.Text = s + " 的编码值为：" + ④
Else
Text2.Text = "输入内容不符合编码规则"
End If
End Sub