Private Sub Command1_Click() Dim a, b, c, max, min As Integer
a = Val(InputBox(\请输入第一个数： \ b = Val(InputBox(\请输入第二个数： \ c = Val(InputBox(\请输入第三个数： \ '**********SPACE********** max = a min = a
'**********SPACE********** If b > max Then max = b If b < min Then min = b '**********SPACE********** If c > max Then max = c If c < min Then min = c Print \最大数为：\ Print \最小数为：\End Sub
答案： max ； max = b ； c > max 或 max < c 第8题 （1.0分）
'功能：要求输入若干学生的成绩，计算平均分和高于平均分的 ' 人数，并将这两个数据放入数组的最后。 Dim mark() As Integer, i%, n%, aver n = InputBox(\输入学生的人数\ ReDim mark(1 To n) aver = 0 For i = 1 To n
mark(i) = Int(Rnd * 101) aver = aver + mark(i) Next i
'**********SPACE**********
ReDim preserve mark(1 To n + 2) '增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保留
mark(n + 1) = aver / n mark(n + 2) = 0 For i = 1 To n
'**********SPACE**********
If mark(i) > mark(n+1) Then mark(n + 2) = mark(n + 2) + 1 Next i For i = 1 To n
Print \ Next i
Print \平均分=\高于平均分人数=\End Sub
答案 ：preserve ； (n+1)
第9题 （1.0分）
'功能：求A,B,C三个数的最大值。 A = Val(Text1.Text)
'**********SPACE********** B = Val(Text2.Text) C = Val(Text3.Text) If A > B And A > C Then MAXDATE = A '**********SPACE********** ElseIf B>C Then MAXDATE = B Else
'**********SPACE********** MAXDATE = C End If
Label1.Caption = MAXDATE & \是最大值\End Sub
答案 ： B = Val(Text2.Text) ； B>C ； MAXDATE = C
第10题 （1.0分）
'功能：该程序通过For循环计算一个表达式的值，这个表达式是 ' 1/2+2/3+3/4+4/5 Private Sub Command1_Click() '**********SPACE********** Dim sum As Double, x As Double Dim n As Long Dim i As Integer
'**********SPACE********** sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1
'**********SPACE********** sum = sum+x Next
Form1.Print sum End Sub
答案 ：sum ； 0 ； sum+x 第11题 （1.0分）
'功能： 用户单击命令按钮后，程序将文本框Text1中的文本反转显示， ' 同时在文本框Text2中显示文本框Text1中字符串的个数。 Private Sub Command1_Click() If Text1.Text = \
Exit Sub Text2.Text = 0 Else
'**********SPACE********** Text1.Text = MyFun (Text1.Text) End If End Sub
Private Sub Form_Load() Text1.Text = \ Text2.Text = 0 End Sub
Private Function MyFun(s1 As String) As String Dim Pos As Integer Dim Str1 As String Dim intC As Integer Const Sp As String = \ '**********SPACE********** Pos = Len( s1 ) For intC = Pos To 1 Step -1 Str1 = Str1 & Mid(s1, intC, 1) Next intC
'**********SPACE********** MyFun = Str1 Text2.Text = Pos End Function
答案：MyFun ；s1 ；Str1 第12题 （1.0分）
'功能：单击“插入数据”按钮后，输入一个整型数据，
'该数据会被插入到一个有序的数组a(1 to 10)中,插入该数据后数组还是有序的。 Option Base 1
Private Sub Command1_Click() Dim a%(1 To 10), i%, k%, m% Print \原数列是\ For i = 1 To 9 a(i) = (i - 1) * 3 + 1 Print a(i); Next i Print
m = Val(InputBox(\输入要插入的数据\ For k = 1 To 9
'**********SPACE********** If ((m < a(k)) Then Exit For Next k
For i = 9 To k Step -1
'**********SPACE**********
a(i + 1) = a(i) Next i
'**********SPACE********** a(k)= m
Print \插入\后的数列是：\ For i = 1 To 10 Print a(i); Next i Print Ed Sub
答案： ((m < a(k) ； a(i) ； k 第13题 （1.0分）
'题目：文件检验中，经常要统计一段文字中某些字出现的频率。 ' 如图所示，编一程序，统计文本框输入的一段文字中\我\' \的\计\照\是\几个字出现的频率，并将结果显示在图 ' 片框中。 Option Base 1
Private Sub Command1_Click() Picture1.Cls
word = Array(\我\的\计\照\是\Dim num(5) As Integer le = Text1.Text
'**********SPACE********** lenth =【?】
For j = 1 To UBound(word) For i = 1 To lenth
'**********SPACE********** c = 【?】
If c = word(j) Then num(j) = num(j) + 1 Next i
Picture1.Print \字出现\次\Next j End Sub
Private Sub Command2_Click() End End Sub
第14题 （1.0分） '题目：
'在窗体上有一个名称为Text1的文本框，一个名称为C1，标题 '为\校验\的命令按钮。其中文本框用来输入口令（如图1所示）， '要求在文本框中输入的内容都必须以\显示（请考生自己通
'过属性窗口设置）。要求程序运行后，输入口令，单击命令按 '钮后，对口令进行校验。 如果输入的内容是\这3个大写
'字母，则用MsgBox信息框输出\正确\，否则输出\错误\（如图1所示）。 Option Explicit
Private Sub C1_Click()
'**********SPACE********** If Text1.Text = \ ABC \ '**********SPACE********** MsgBox \正确\ Else
MsgBox \错误\ End If End Sub
答案： ABC ；正确 第15题 （1.0分）
'功能：以下程序段实现的功能是：查找一数列中是否存在某数字x， '若数列中存在该数字，则输出其出现的次数，否则输出不存在信息。 Private Function Search(a() As Integer, ByVal key, n%) As Boolean Dim i% Search = False
'**********SPACE********** For i = LBound(a) To ubound(a) If key = a(i) Then Search = True
'**********SPACE********** 【?】 End If Next i End Function
Private Sub Form_Click()
Dim x As Integer, k As Integer, num As Integer Dim b() As Integer num = Int(Rnd * 10) + 1 ReDim b(num) For i = 0 To num
b(i) = Int(Rnd * 70) + 20 Print b(i); Next i Print
x = Val(InputBox(\输入待查找数据\ '**********SPACE********** If Search(b(i), x, k) Then