有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3……n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。

实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50)  As Integer
n = Val(Text1．Text)
m = Val(Text2．Text)
For i =" 1" To n
'（1）
Next i
s =" 0:j" = 0
Do While s < n
t = 0
Do While t < m
    '（2）   
t =" t" + a(j)
Loop
a(j) = 0
s =" s" + 1
List1．AddItem "第" + Str(s) + "次：" + Str(j)
Loop
End Sub

在VB中，用于定义单精度型数据类型的关键字是（   ）

A．Integer

B．Double

C．Single

D．Long

编写VB程序，实现如下功能：程序运行时，在文本框Text1中输入任意字符串，单击按钮Command1，删除字符串中的非字母后，新字符串显示在Text2中，并找出ASCII码最小的字母，将其ASCII码显示在Text3中。程序运行界面如下图所示。

(1)将命令按钮Command1中显示的文本“Command1”修改为“查找”，可在其属性窗口中将___________属性的属性值改为“查找”。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String
Dim n As Integer, i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①___________
If n >= 65 And n <= 90 Or n >= 97 And n <= 122 Then
②________
End If
Next i
Text2.Text = result
j = 2
c = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) < c Then c = Mid(result, j, 1)
③________
Loop
Text3.Text = ④______
（3）如图所示，在文本框Text3中的ASCII码是Text2中第____个字符的ASCII码。

在VB中，x=10，则执行下列语句的结果是print  "a=";a

A．a=10

B．a=a

C．10

D．10=10

（    ）不是程序设计中的高级语言。

A．word

B．VB

C．C++

D．Pascal