内容发布更新时间 : 2024/5/12 15:59:07星期一 下面是文章的全部内容请认真阅读。
...
第一套试题
一、选择题（每题 2 分，共 30 分） 1. 在VB环境中，工程文件的扩展名是 ( C ) （A）.frm （A）变量 （A）\\
（B）.bas （B）事件 （B）/
（C）.vbp （C）属性 （C）Mod
（D）.frx （D）方法 （D）*
2. 下面 4 项中不属于面向对象系统三要素的是 ( A )
、/ 、Mod、*这 4 个算述运算符中，优先级别最低的是 ( C )
4. 要使 Print 方法在 Form_Load事件中起作用， 要对窗体的 ( C ) 属性进行设置 （A）BackColor （C）AutoRedraw （A）Text （C）ForeColor
（B）ForeColor （D）Caption （B）Name （D）Caption
5. 不论何控件，共同具有的属性是 ( B )
6. 要使 Form1窗体的标题栏显示“欢迎使用 VB”，以下语句正确的是 ( D ) （A）Form1.Caption= “欢迎使用 VB” （B）Form1.Caption= ˊ欢迎使用 VBˊ （C）Form1.Caption= 欢迎使用 VB （A）递归结构，选择结构，循环结构 结构
（C）过程结构，输入、输出结构，转向结构 结构
8. 给变量赋值 a=123+MID(“123456”,3,2) ，a 变量中的值是 ( D ) （A）“12334”
（B）123
（C）12334
（D）157
9. 下面 If 语句统计满足性别为男、 职称为副教授以上、 年龄小于 40 岁条件的人 数，不正确的语句是 ( D )
（A）If sex= “男”And age＜40 And InStr(duty,
“教授”) ＞0 Then n=n+1 （D）选择结构，循环结构，顺序 （D）Form1.Caption= 〞欢迎使用 VB〞
（B）选择结构，过程结构，顺序
7.VB 提供了结构化程序设计的 3 种基本结构，这 3种基本结构是 ( D )
（B）If sex= “男”And age＜40 And (duty= “教授”Or duty= “副教授” ) Then n=n+1
（C）If sex= “男”And age＜40 And Right(duty,2)=
“教授” Then n=n+1
（D）If sex=“男”And age＜40 And duty= “教授”And duty= “副教授” Then
n=n+1
10. 若要清除列表框的所有内容，可用来实现的方法是
( C )
...
...
（A）RemoveItem （C）Clear
（B）Cls
（D）以上均不可以
3. 要使时钟控件 Timer1 的Timer 事件不起作用，以下正确的语句是 ( B ) （A）Timer1.Visible=False （A） Timer1.Interval=1000
（B）Timer1.Enabled=False （D）Timer1.Index=0
4. 引用列表框 (List1) 最后一个数据项应使用的语 ( B ) (A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1) (C)List1.List(ListCount)
(D)List1.List(ListCount-1)
5. 如下数组声明语句，正确的是 ( B ) （A）Dim a[3,4]As Integer （C）Dim a(n,n) As Integer
（B）Dim a(3,4)As Integer （D）Dim a(3,4)As Integer
6. 下面子过程语句说明合法的是 (A、D ) （A）Sub f1(ByVal n%) （C）Function f1%(f1%)
（B）Sub f1(n%)As Integer （D）Function f1(ByVal n%)
7. 假定有如下的命令按钮 ( 名称为 Command1事) 件过程： Private Sub Command1_Click()
x=InputBox(\输入：\，\输入整数 \
MsgBox\输入的数据是：”，，”输入数据： \End Sub
8. 程序运行后，单击命令按钮，如果从键盘上输入整数 的是( A )
（A）x 的值是数值 10 据是：”
（B）输入对话框的标题是“输入整数”
（D）信息框中显示的是“输入的数
（C）信息框的标题是“输入数据： 10”
10，则以下叙述中错误
二、填空题（每题 2 分，共 20 分）
1、当进入 VB集成环境后，发现没有显示“工具箱”窗口，应选择 菜单 的 工具箱
选项，使“工具箱”窗口显示。
对象
的程序设计语言，采用了
视图
2、VB是一种面向 编程机制。
事件驱动
...
...
3、Int(-5.5)
、 -5
、Int(5.5) 、Fix(-5.5) 、Round(-5.5) 的值分别是 -6
、 -6
。
。
、 5
4、表达式 Ucase(Mid( “abcdefgh ”,3,4)) 的值是 CDEF
5、将文本框的 ScrollBar 的属性设置为 2(有垂直滚动条 ) ，但没有垂直滚动条 显示，原因是没有将 multline 6、VB的注释语句采用 间 用
：
字符分隔。
0
开始的。
属性是数组。
属性应设置为 15000
‘
属性设置为 True。
字符开头，若一行上书写多个语句，则各语句
7、列表框中项目的序号是从 8、列表框中的 list
和 selected
9、如果要每隔 15 秒产生一个计时器事件，则 Interval
。
10、在 VB中，事件过程名由 sub 三、请完成下列的程序（共 15 分）
和 function
构成。
1、以下程序的功能是：生成 20 个200 到 300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和。请填空。
Private Sub Commandl_C1ick()
Fori ＝1To 20
x ＝Int(_ rnd*101+200 __) If_ x mod 5=0 __ Then Print x S＝S十 x End If Next i
Print \＝\：S End Sub
(5
分)
2、某次大奖赛，有 7 个评委打分，如下程序对一名参赛者，输入 7 个评委的打 分分数，去掉一个最高分和一个最低分后， 求出平均分为该参赛者的得分。 请在 下划线处填入相应的内容。
Private Sub Command1_Click() Dim mark!,aver!I%,max1!min1! aver=0
For i=1 To 7
Mark=InputBox( “输入第” &i&“位评委的打分” )
...