某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n  n-1  n-2 … 3  2  1  2  3 … n-2  n-1  n”。例如n=8时，生成的数字序列如图所示。代码如下：

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i =" 1" To 2 * n - 1
If i <=" n" Then  ① Else  ②  
Next i
Label1.Caption = s
End Sub
为实现以上功能，划线①②处应分别填写

A．①s =" s" & Str(n - i + 1)   ②s =" s" & Str(i - n + 1)

B．①s =" Str(n" - i + 1) ②s =" Str(i" - n + 1)

C．①s =" s" & Str(i - n + 1)   ②s =" s" & Str(n - i + 1)

D．①s =" Str(i" - n + 1) ②s =" Str(n" - i + 1)

用物理天平测量物体的质量。待测物体的质量为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

 

一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer
s = 0
For i = 1 To  1000
①
t = 0 ： k = 0
Do While n > 0
If  n mod 2=0  Then t = t + 1 Else k = k + 1
②
Loop
If ③ Then s = s + 1
Next i
Text1.Text = Str(s)
End Sub

编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：
字母表中共有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

   编写VB程序，实现如下功能：在文本框Txt1中输入字符串，如“12321”、“abba”，点击Com1按钮，判断输入的字符串是否对称，即从左读到右与从右读到左完全一样，并在标签lab2上显示判断结果。

(1）   在程序代码中，第一行语句“Private Sub Com1_Click( )”中的Com1_Click( )是_____________(填字母：

A．对象名 /

B．事件名 /

C．事件处理过程名 /

D．方法名）

(2）为实现上述功能，请在划线处填入合适的代码或语句。

Private Sub Com1_Click()
Dim s As String, c1 As String, c2 As String
Dim n As Integer, i As Integer
Dim f As ①____________.
s = Txt1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = Mid(s, i, 1)

②___________.

  If c1 <> c2 Then
③___________.
Exit For     '退出For循环
End If
Next i
If f = True Then
Lab2.Caption = "对称"
Else
Lab2.Caption = "不对称"
End If
End Sub

有如下VB程序段
m=a(1)
For t=2  to  15  step 2
If  a(t) > m  then  m=a(t)
Next t
该程序段执行后，变量t的值是（   ）

A．14

B．15

C．16

D．17

（加试题）有如下VB程序段：
For i = 5 To 4 Step -1
k = i
For j = 6 - i To 1 Step -1
If a(j) < a(k) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
数组元素a(1)到a(5)的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( ）

A．31，41，66，83，70	B．83，70，66，41，31
C．83，66，70，41，31	D．31，41，66，70，83

（加试题）有VB编写的程序如下：
Private Sub Command1_Click()
Dim a(0 To 9) As Integer
Dim t as Long
t = Val(Text1.Text)
Do While t <> 0
a(t Mod 10) = 1
t = t \ 10
Loop
For i = 0 To 9
x = x + a(i)
Next i
End Sub
若在文本框Text1中输入10242048，则程序执行后，变量x的值为（ ）

A．1

B．2

C．5

D．10

（加试题）某字符（限 ASCII 字符）加密算法，对明文中的每个字符进行下列加密处理：
（1）将该字符的 ASCII 码转换成对应的 2 位十六进制数；
（2）将产生的十六进制数互换位置；
（3）步骤（2）产生的二位十六进制数即为该明文字符加密后的密文字符。
小明按照上述方法，设计了一个字符串加密的 VB 程序，功能如下：单击“生成密文”按钮 Command1，程序依次将文本框 Text1 中每个字符按上述规则进行加密处理，连接这些加密字符，最后在文本框 Text2 中输出加密结果。程序运行界面如图所示。

实现上述功能的 VB 程序如下：
Private Sub Command1_Click()
Dim s As String, a As String, ans As String Dim c As Integer, i As Integer
Dim c1 As Integer, c2 As Integer Dim d1 As String, d2 As String
s = Text1.Text ans = ""
For i = 1 To Len(s) a = Mid(s, i, 1) c = Asc(a)
c1 = c \ 16
c2 = ①
d1 = Mid(Str(c1), 2, 1) '使用 Str(c1)将在字符 c1 前增加一个空字符
If c2 >= 10 Then        ②  Else d2 = Mid(Str(c2), 2, 1)
ans = ③
Next i
Text2.Text = ans
End Sub
（1）按照上述加密算法，明文“B”生成的密文是   。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
①_____________________________________
②______________________________________
③______________________________________

编写“英文文章整理”程序，实现如下功能：点击“整理”按钮对任意输入的英文文章进行整理，整理规则为：所有句子开头为大写字母，其他都是小写字母，句子结束符为“.”“?”或“!”；所有标点符号后面都空一格；英文的标点符号都为半角符号。程序运行界面如图所示。

请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Dim Y As String, Z As String, X As String, L As Integer, t As String
Y = ""
X = Text1.Text
L = Len(X)
For i = 1 To L
Z = Mid(X, i, 1)
If Z >= "a" And Z <= "z" Then '第一个是小写，转大写
If i = 1 Then Z = Chr(Asc(Z) - 32)
ElseIf Z = "!" Or Z = "." Or Z = "?" Then '标点后面有一个空格，一个大写
1___________
If t = " " Then i = i + 1
Z = Z & " "  '算空格
If i < L And 2_______________ Then
Z = 3_____________   '后面字母要大写
i = i + 1
End If
ElseIf Z >= "A" And Z <= "Z" Then
Z = Chr(Asc(Z) + 32)
End If
Y = Y & Z
Next i
Text2.Text = Y
End Sub