程序运行后，单击Command1命令按钮，变量x的值为（   ）
Private Sub Command1_Click()
n = 6
x = 1
For i ="1" To n
x =" x" * i
Next
End Sub

A．15

B．24

C．120

D．720

编写VB程序，实现如下功能：单击“计算”按钮，在列表框List1中产生10个1，99随机数，文本框Text1显示相邻两个数字之间相差最大的差值。运行界面如图所示。

（1）窗体上，“计算”按钮的对象名是_____。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private sub cmd1_click( )
Dim b(1 to 10) as integer
Dim I as integer,max as integer ,a as integer, c as integer
Max=0
For i=1 to 10
Randomize
A=int(rnd*99)+1
_______________________
List1.additem  str(a)
Next i
For  i=2 to 10
C=________________
If c>max then __________________
Next I
____________________________
End sub

反转字符串，如输入字符串为“123ABCD"，则输出字符串为“DCBA321"。部分程序如下所示，划线处的正确语句是
s＝Text1.Text：n=Len(s)
’按s中字符顺序从左到右依次存入数组a中，代码略
i＝1
Do While i<n
t＝a(i)
For j=i＋1 To n
    ①    
Next j
a(j－1)=t
    ②    
Loop
For i=1 To Len(s)
Text2.Text=Tcxt2.Text＋a(i)
Next i

A．①a(j＋1)＝a(j) ②n＝n－1	B．①a(j)＝a(j＋1) ②n＝n＋1
C．①a(j－1)＝a(j) ②n＝n－1	D．①a(j－1)＝a(j) ②n＝n＋1

王老师采用星级制对本班学生的平时表现进行评价，每位同学的评分数据储存在数据库中。学生的得分和星级对照如下表：

成绩	1-20	21-40	41-60	61-80	81-100
星级	一星	二星	三星	四星	五星

 
要求依据上表统计出各星级学生人数占总人数的比例。小王编写了一个VB程序实现该功能：程序运行时，每位学生的得分存储到数组a中，并在列表框listl中显示，单击命令按钮后，在列表框list2中显示各星级的人数占总人数的百分比例。程序运行界面如图所示：

(1)观察代码，实现统计功能的按钮对象名为：_______。
(2)当前读取的数据表名为：_________________
(3)实现上述功能的VB代码如下，划线①、②处请填空。
Const n = 50
Dim a(1 To n) As Integer
Dim b(0 To 4) As Integer
Private Sub Form_Load( )
Dim adocn  As New ADODB. Connection
Dim adors As New AD0DB. Recordset
Dim strl，str2 As String
adocn. ConnectionString =”provider= microsoft. ace. oledb.12.0；data source=” +
App. Path + ”\school. accdb”
adocn.Open
str2 = ”select * from student”
adors.0pen str2，adocn
’以下将每个学生的得分读入组数a中，并在列表框list1中显示，代码略
End Sub
Private Sub Coml_Click()
Dim dd As String
Dim cou As Single
Dim t as integer
dd=“一星二星三星四星五星”
For i = 1 To n
t=______________________
b(t)=b(t)+1
Next i
For i = 0 To 4
cou = Int(b(i)/n * 100 + 0.5)
1ist2. AddItem，_______________+ Str(cou) + “%”
Next i
End Sub

   （加试题）创建VB程序，统计英语短文中字母出现的次数，并输出出现次数最多的字母和未出现的字母。要求字母不区分大小写，均表示为大写字母。程序运程界面如图所示。

算法如下：

（1）获取输入的英语短文，存入变量s

（2）统计字母出现次数

    依次取出s中的每个字符

    如果是大写字母，计算其在字母表中的位置n，并计数

    如果是小写字母，计算其在字母表中的位置n，并计数

（用数组a存放26个字母出现的次数，a(1)存放“A”出现的次数，a(2)存储“B”出现的次数，……,a(26)存储“Z”出现的次数。）

  （3）找出最大出现次数   

  （4）找出出现次数最多和未出现过的字母并输出   

VB程序如下，在其中①②③划线处填定相应代码，完善程序。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, max As Integer
Dim a(1 To 26) As Integer '数组a存放26个字母出现的次数。
Dim s As String, c As String '变量s存放输入的短文
Dim s1 As String, s2 As String   '变量s1、s2分别存放出现次数最高和未出现的字母组成的字符串
s = Text1.Text
'统计字母出现次数
For i = 1 To Len(s)  
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
n = Asc(c) - Asc("A") + 1
a(n) =（1）____________
ElseIf c >= "a" And c <= "z" Then
n = Asc(c) - 32 - Asc("A") + 1
a(n) = a(n) + 1
End If
Next i
'找出最大出现次数
max = a(1)   
For i = 1 To 26
If（2）____________ Then
max = a(i)
End If
Next i
'找出出现次数最多和未出现过的字母
For i = 1 To 26
If （3）__________ Then
s1 = s1 + " " + Chr(Asc("A") + i - 1)
ElseIf a(i) = 0 Then
s2 = s2 + " " + Chr(Asc("A") + i - 1)
End If
Next i
Label2.Caption = "出现次数最多的字母是：" & s1 & "  出现次数为：" & Str(max)
Label3.Caption = "未出现的字母是：" & s2
End Sub