图3
Option Explicit
Private Sub Command1_Click()
Dim a(0 To 9) As Integer, i As Long, flg As Boolean Dim j As Integer, sum As Integer For i = 10 To 1000 Erase a
Call sub1((i * i), a, flg) If （18） Then For j = 0 To 9
sum = sum + a(j) Next j
If （19） Then
List1.AddItem CStr(i) & \ End If End If sum = 0 Next i End Sub
Private Sub sub1(x As Long, a() As Integer, bl As Boolean) Dim n As Integer, idx As Integer, i As Integer bl = （20） n = Len(CStr(x)) For i = 1 To n / 2
If Mid(CStr(x), i, 1) <> Mid(CStr(x), n - i + 1, 1) Then Exit Sub End If Next i bl = True For i = 1 To n
idx = x Mod 10 a(idx) = 1 x = (x \\ 10) Next i End Sub
12．下列的程序的功能是，将密码转换成字符串，其中密码的规则为：数码后面的字符表示数码的个数，例如A表示1个，B表示2个，C表示3个，……。转换顺序是密码→(每7位)二进制→ASCII码→原代码，程序运行后的结果如图4所示。给定的程序不完整，将程序补充完整。
图4
Dim w As String
Private Sub Command1_Click() w = Text1(0).Text
For i = 1 To Len(w) （21） s1 = Mid(w, i, 1)
For j = 1 To Asc(Mid(w, i + 1, 1)) - 64 t = t + s1 Next j Next i
Text1(1).Text = （22） s2 = \
For i = 0 To Len(t) / 7 - 1 s1 = Mid(t, i * 7 + 1, 7) （23）
For j = 6 To 0 Step -1
Sum = Sum + Val(Mid(s1, 7 - j, 1)) * 2 ^ j Next j
Text1(2).Text = Text1(2).Text + Str(Sum) s2 = s2 + Chr(Sum) Next i
Text1(3).Text = （24） End Sub
13．下列程序是统计字母和数字字符在文本中出现的次数。程序运行后的结果如图5所示。给定的程序不完整，将程序补充完整。
图5
Option Explicit
Private Sub Command1_Click()
Dim str1 As String, n1 As Integer Dim A(62) As Integer
Dim I As Integer, line1 As Integer Dim s1 As String * 1, len1 As Integer （25） = Text1.Text len1 = Len(str1) For I = 1 To len1 s1 = （26）
If s1 >= \ n1 = Asc(s1) - Asc(\ A(n1) = A(n1) + 1
ElseIf s1 >= \ n1 = Asc(s1) - Asc(\ （27）
ElseIf s1 >= \ n1 = Asc(s1) - Asc(\ A(n1) = A(n1) + 1 End If Next I
For I = 0 To 62
If A(I) > 0 Then
Select Case （28） Case 0 To 25
Text2 = Text2 & Chr(I + Asc(\：\ Case 26 To 51
Text2 = Text2 & Chr(I - 26 + Asc(\：\ Case Else
Text2 = Text2 & （29） End Select （30）
If line1 Mod 6 = 0 Then Text2 = Text2 & vbCrLf End If Next I End Sub
二级Visual Basic全真模拟试卷四参考答案 一、选择题： 1．D 2．A 3．D 4．D 5．B 6．A 7．D 8．A 9．C 10．C 11．B 12．D 13．A 14．C 15．C 16．B 17．C 18．B 19．C 20．B 21．D 22．C 23．B 24．C 25．B 26．B 27．C 28．A 29．D 30．B
二、填空题： （1）Cbyte （2）Lock语句 （3）Caption （4）Initialize （5）椭圆 （6）46 （7）24 （8）2 4
（9）Id=0
（10）Picture1.Print \（11）A(i,j)=1 （12）i （14）Int(9000*Rnd)+1000 （15）k=k\\10 （16）n(i) （23）Sum=0 （24）s2 （25）str1 （26）Mid(str1,I,1) （27）A(n1)=A(n1)+1 （28）I （29）Chr(I-52+Asc(\（30）line1=line1+1 江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷 二级Visual Basic全真模拟试卷五 （本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟） 说明： 1．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。 2．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一