End Sub
程序运行后，单击窗体，输出结果为 C 。 A．25 B．26 C．27 D．28
（26）在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5
a(i) = Chr(Asc(\ Next i
For Each b In a Print b; Next End Sub
程序运行后，单击命令按钮，输出结果是 A 。 A．ABCDE B．1 2 3 4 5 C．abcde D．出错信息
（27）以下关于函数过程的叙述中，正确的是 D 。 A．如果不指明函数过程参数的类型，则该参数没有数据类型 B．函数过程的返回值可以有多个
C．当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递 D．函数过程形参的类型与函数返回值的类型没有关系
（28）函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是 B 。 A．Function F1(b As Integer)
If b Mod 2 = 0 Then Return 0 Else
Return 1 End If End Function
B．Function F1(b As Integer)
If b Mod 2 = 0 Then F1 = 0 Else
F1 = 1 End If End Function
C．Function F1(b As Integer)
If b Mod 2 = 0 Then F1 = 1 Else
F1 = 0
6
End If End Function
D．Function F1(b As Integer)
If b Mod 2 <> 0 Then Return 0 Else
Return 1 End If End Function
（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是 A 。 A．KeyAscii参数是所按键的ASCII码 B．KeyAscii参数的数据类型为字符串 C．KeyAscii参数可以省略 D．KeyAscii参数是所按键上标注的字符
（30）设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show
Text1.Text = \ Text1.SetFocus End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print \程序设计\ End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print \ End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是 C 。
A．Visual Basic B．程序设计 C．Visual Basic程序设计 D．a程序设计
（31）假定有下表所列的菜单结构：
━━━━━━━━━━━━━━━━━━━━
名称 层次
────────────────────
appear 1（主菜单） bigicon 2（子菜单） smallicon 2（子菜单）
━━━━━━━━━━━━━━━━━━━━ 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是 C 。 A．Private Sub bigicon_Click() bigicon.Checked = False End Sub
B．Private Sub bigicon_Click()
Me. appear.bigicon.Checked = True End Sub
C．Private Sub bigicon_Click() bigicon.Checked = True End Sub
D．Private Sub bigicon_Click()
appear.bigicon.Checked = True End Sub
（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是 C 。 A．Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowPrinter End Sub
B．Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowFont End Sub
C．Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowOpen End Sub
D．Private Sub Command1_Click()
CommonDialog1.DialogTitle = \ CommonDialog1.ShowColor End Sub
（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 D 。 A．任何时刻最多只有一个窗体是活动窗体 B．不能把标准模块设置为启动模块
C．用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D．如果工程中含有Sub Main过程，则程序一定首先执行该过程
（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books
Name As String * 10 TelNum As String * 20 End Type
要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 A 。 A．Private Sub Command1_Click() Dim B As Books
Open \
8
B.Name = InputBox(\输入姓名\
B.TelNum = InputBox(\输入电话号码\ Write #1, B.Name, B.TelNum Close #1 End Sub
B．Private Sub Command1_Click() Dim B As Books
Open \ B.Name = InputBox(\输入姓名\
B.TelNum = InputBox(\输入电话号码\ Print #1, B.Name, B.TelNum Close #1 End Sub
C．Private Sub Command1_Click() Dim B As Books
Open \ Name = InputBox(\输入姓名\
TelNum = InputBox(\输入电话号码\ Write #1, B Close #1 End Sub
D．Private Sub Command1_Click() Dim B As Book
Open \ Name = InputBox(\输入姓名\
TelNum = InputBox(\输入电话号码\ Print #1, B.Name, B.TelNum Close #1
End Sub
（35）目录列表框的Path属性的作用是 B 。 A．显示当前驱动器或指定驱动器上的某目录下的文件名 B．显示当前驱动器或指定驱动器上的目录结构 C．显示根目录下的文件名 D．显示指定路径下的文件
2分，共30分）
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。
（2）算法复杂度主要包括时间复杂度和 【2】 复杂度。
（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。
（4）一棵二叉树第六层（根结点为第一层）的结点数最多为 【4】 个。
（5）数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。
（6）设有以下函数过程：
Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0
For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function
若在程序中用语句 s = fun(10) 调用此函数，则s的值为 【6】 。
（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click( )
Dim str As String, s As String, c As String str = UCase(Text1) s = \ c = \
While c >= \
If InStr(str, c) = 0 Then
s = 【7】 End If
c = Chr$(Asc(c) 【8】 ) Wend
If s <> \ Text1 = s End If End Sub
（8） 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用
公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程
10
相关推荐：
loading