删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下: 在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCII码值最大的字母，运行界面如图所示。

（1）程序中的Command1_Click()属于____________。（单选，填代码:

A．对象名/

B．事件名/

C．属性名/

D．事件处理过程名）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String, cmax as string
Dim i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①_________
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then
result =②______
End If
Next i
Text2.Text = result
j = 2
cmax = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) > cmax Then cmax = Mid(result, j, 1)
③________
Loop
Text3.Text = cmax
End Sub

【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序。功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中。程序界面如图所示：

实现上述功能的部分VB程序如下，请在三个划线处填入合适代码。
'定义全局数组变量
Dim a(1 To 10) As Long
Dim b(1 To 10) As String
'自动加载条形码信息以及对应的商品信息
Private Sub Form_Load()
Dim i As Integer
a(1) = 503741
For i =" 2" To 10
a(i) =" a(i" - 1) + 1
Next i
b(1) = "可乐 5.00"
b(2) = "薯片 7.50"
b(3) = "牛奶 5.60"
b(4) = "橙汁 7.50"
b(5) = "面包 4.00"
b(6) = "蜂蜜 28.00"
b(7) = "蛋糕 12.00"
b(8) = "绿箭 3.50"
b(9) = "饼干 6.00"
b(10) = "雪碧 5.00"
End Sub
'输入条形码，查找条形码，并显示条形码及其对应的商品信息
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim txm As Long:
Dim i As Integer:
Dim j As Integer
txm = Val(Text1.Text)
If KeyAscii =" 13" Then
If txm >=" 503741" And txm <=" 503750" Then
List1.AddItem txm
Text1.Text = ""
i =" 1:" j = 10
Do While i <= j
    ①
If txm =" a(m)" Then
List2.AddItem b(m)
Exit Do
ElseIf txm > a(m) Then
i =" m" + 1
Else
   ②   
End If
Loop
Else
MsgBox "条形码输入错误，无此商品"
Text1.Text = ""
End If
End If
End Sub
'计算所购商品的总额
Private Sub Command1_Click()
Dim i As Integer, mx As String, jg As String, sum As Single
For i =" 0" To 9
If List2.List(i) <> "" Then
mx = List2.List(i)
sum =" sum" + Mid(mx, 4)
End If
Next i
Text2.Text = ③    
End Sub

VB程序中“dim n  As  Integer”这条语句的说法正确的是(    )

A．定义一个变量n

B．变量n为整型

C．定义一个事件过程

D．n可以赋值为40000

下列程序，当单击窗体时s的值是（ ）。
Private Sub Form_Click()
s = 11 \ 3 + 11 Mod 3
Print s
End Sub

A．3

B．4

C．5

D．6

（加试题）在Excel中可采用双关键字排序，即先按主关键字排序，如主关键字相同再按次要关键字排序。小王学习了冒泡排序后，编写了一个VB程序模拟该排序过程。功能如下：在列表框 list1 中显示排序前数据（存储在数组 a、b 中），单击“排序”按钮 Command1 后，按主关键字数组 a 升序和次要关键字数组 b 升序排序，排序后的数据在列表框 list2 中显示。程序运行界面如图所示。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。

Const n = 10
Dim a(1 To n) As Integer,b(1 To n) As Integer
Private Sub Form_Load()
'各产生 10 个随机整数存数组 a、b，并在列表框 list1 中显示，代码略。
End Sub
Private Sub command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i <= n - 1
   ① 
Do While j >= i + 1
If a(j) < a(j - 1) Then
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
temp = b(j): b(j) = b(j - 1): b(j - 1) = temp
②
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
temp = b(j): b(j) = b(j - 1): b(j - 1) = temp
End If
j = j - 1  
Loop
i = i +1
Loop
For i = 1 To n
List2.AddItem Str(a(i)) + "  " + str(b(i))
Next i
End Sub
处代码改为______________________________________________ 
处代码改为______________________________________________