发布时间 : 星期一 文章2000年（秋）考试试卷更新完毕开始阅读893278e27c1cfad6195fa7ea
则运行该程序显示窗体时， 29 会首先获得焦点。
A．窗体 B．CommandButton C．Label1 D．TextBox 30．在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有 30 个。 ①Public A(5) As Integer ②Public N As Integer ③Public St As String ④Private b() As Integer
A．2 B．3 C．4 D．1
31．单选按钮（OptionButton）用于用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的 31 中安排适当的单选按钮，即可实现。
A．框架控件（Frame）或图象控件(Image) B．组合框（ComboBox）或图象控件(Image)
C．组合框（ComboBox）或图片框（PictureBox） D．框架控件（Frame）或图片框（PictureBox）
32．下面的语句或方法，错误的有个 32 （其中m和n都为Integer型变量）。 ①dim Arry(m,n) As Integer ②n = 32764 + 5 ③Print A = A + B;A+B ④ChDrive ”C:”
A．1 B．2 C．3 D．4 33．下列说法不正确的是 33 。
A． VB允许将一个数字字符赋值给一个数值型的变量 B． VB允许使用未经说明的变量，其类型都是Variant类型 C． Cls方法只清除运行时在窗体或图形框中显示的文本货类型 D． 事件过程既可建在窗体模块中，也可以建在标准模块中 34．运行程序产生死循环时，按 34 键可以终止程序的运行。 A．Ctrl+C B．Ctrl +Z
C．Ctrl+Break D．单击停止运行按钮 35．执行下面的程序，单击窗体后在窗体上显示的结果是 35 。
Private Sub Form_Click()
Dim Strl As String, Str2 As String,I As Integer Str1=”ab”
For I=Len(Str1)To 1 Step-1
Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I) Next I Print Str1 End Sub
A．abce B．abcd C．abdb D．abfd
二、填空题
1．根据下图写出InputBox函数中的参数。
InputBox( 1 , 2 , 3 )
2.执行下面程序，第一行输出的结果是 ，第二行输出的结果是 。 Option Explicit
Private Sub Form_Click() Dim i As Integer, j As Integer j = 10
For i = 1 To j i = i + 1 j = j + 1 Next i Print i Print j End Sub
3.执行下面程序，第一行输出的结果是 ，第三行输出的结果是 。 Option Explicit
Private Sub Form_Click() Dim A As Integer, i As Integer A = 2
For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub
Private Sub sub1(x As Integer, y As Integer) Static n As Integer Dim i As Integer For i = 3 To 1 Step -1 n = n + x x = x + 1 Next i y = y + n End Sub
4.执行下面程序后，A（1，3） 8 的值是 ，A（2，2） 9 的值是，A（3，1）的值是 10 。 Option Explicit
Private Sub Form_Click()
Dim a(3, 3) As Integer, i As Integer
Dim j As Integer, k As Integer, n As Integer For k = 1 To 5 If k <= 3 Then For i = 1 To k n = n + 1
a(i, k - i + 1) = n Next i Else
For i = 1 To 6 - k n = n + 1
a(k - 3 + i, 4 - i) = n Next i End If Next k
For k = 1 To 3 For i = 1 To 3 Print a(k, i) Next i Print Next k End Sub
5.执行下面程序，第一行输出的结果是 11 ，第二行输出的结果是 12 。 Option Explicit
Private Sub Form_Click() Dim i As Integer, j As Integer i = 1: j = 2 Call Test(i, j) Print i, j
Call Test(i, j) Print i, j End Sub
Private Sub Test(m As Integer, n As Integer) Static Sta As Integer m = m + n
n = n + m + Sta Sta = Sta + m End Sub
6.下面程序的功能是统计当前盘当前文件夹中的顺序文件data.txt中共有多少个英文单词，约定连续出现的英文字母定义为一个单词。 Option Explicit
Private Sub Form_Click()
Dim Char() As Integer, St As String, Tem As String Dim Idx As Integer, js As Long, Flen As Long Dim F As Boolean, W As String * 1
____13____ Flen = LOF(10)
St = Input(Flen, #10) js = 1
Do While js <= Flen W = Mid(St, js, 1) If ___14____ Then Tem = Tem + W F = True
ElseIf F = True Then Idx = Idx + 1
ReDim Preserve Char(Idx) Char(Idx) = Tem Tem =___15___ F = False End If ___16____ Loop
Print \共有\个单词\For js = 1 To Idx Print Char(js) Next js End Sub
7．下面的程序的功能是当循环次数一定时，统计生成互不相同的1~100之间的随机整数的个数。
Option Explicit Option Base 1
Private Sub Form_Click()
Dim Data() As Integer, i As Integer, Idx As Integer Dim n As Integer, temp As Integer, flg As Boolean n = InputBox(\输入循环次数\ReDim Data(1) Idx = 1
Data(1) = Int(100 * Rnd(1)) + 1 For i = 1 To n
temp = Int(100 * Rnd(1)) + 1 ___17___
Call compare(Data, temp, flg) If flg = True Then Idx = Idx + 1 ___18___
Data(Idx) = temp End If Next i