试卷编号：8485
一、填空 共5题 （共计5分） 第1题 （1.0分） 题号:262
把\程序设计\添加到列表框lstBooks的语句为【1】. =======(答案1)=======
lstBooks.AddItem \程序设计\
第2题 （1.0分） 题号:1402
控件数组的名字由【1】属性决定,而数组中每个元素由【2】属性指定. =======(答案1)======= Name
=======(答案2)======= Index
第3题 （1.0分） 题号:1395
菜单的热键指使用【1】键和菜单项标题中的一个字符来打开菜单.建热键的方法是,在菜单标题的某个字符前加上一个【2】符号,则菜单中这一字符自动加上【3】,表示该字符是热键字符.
=======(答案1)======= Alt
=======(答案2)======= &
=======(答案3)======= 下划线
第4题 （1.0分） 题号:240 设X$ =\则
\的值是【1】. =======(答案1)======= a3456
第5题 （1.0分） 题号:1456
表达式 Fix(-21.68) + Int(-12.02) 的值为 【1】 .
=======(答案1)======= -56
二、判断 共5题 （共计5分） 第1题 （1.0分） 题号:254 move方法的一般形式是:对象名.move A,B[,C,D],其中A指Left ,C 指width. 答案：N
第2题 （1.0分） 题号:1131
菜单选项\属性与\属性是相同的. 答案：N
第3题 （1.0分） 题号:1221
Visual Basic提供的单选按钮的Value属性True表示选中,False表示未选中 答案：Y
第4题 （1.0分） 题号:310
所有的控件在程序运行以后都是可见的. 答案：N
第5题 （1.0分） 题号:1222
Visual Basic的子函数过程不一定会返回一个函数值 答案：N
三、单项选择 共5题 （共计5分） 第1题 （1.0分） 题号:3726 事件的名称(). A:都要由用户定义
B:有的由用户定义,有的由系统定义 C:都是由系统预先定义 D:是不固定的 答案：C
第2题 （1.0分） 题号:3628
语句PRINT\的输出结果为().
A:SGN(-26)=26 B:SGN(-26)=-26 C:SGN(-26)=+1 D:SGN(-26)=-1 答案：D
第3题 （1.0分） 题号:3173
当一个窗体被卸载时,最后引发的一个事件是.
A:Deactivate B:QueryUnload C:Unload D:terminate 答案：D
第4题 （1.0分） 题号:848
在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). A:List B:Index C:ListIndex
D:TabIndex 答案：C
第5题 （1.0分） 题号:3512
在窗体上添加一个命令按钮，编写如下代码： 必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参” D:DIM语句声明的数组把数值数组中的全部数Option Base 1
Private Sub Command1_Click Dim a
A=Array(1,2,3,4) J=1
For i=4 To1 Step -1 S=s+a(i)*j J=j*10 Next i Print s End Sub
程序运行后，单击命令按钮，输出结果是 A:4321 B:12 C:34 D:1234 答案：D
四、多项选择 共5题 （共计5分） 第1题 （1.0分） 题号:277 下列说法哪些是正确的（）？ A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出 答案：ABD
第2题 （1.0分） 题号:281
窗体也是一个对象，它具有（）的特征。 A:属性 B:过程 C:事件 D:方法 答案：ACD
第3题 （1.0分） 题号:280 请把下面说法中正确的选出来（）。 A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串 B:在调用Sub过程中使用Call语句时，参数
组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串 答案：BCD
第4题 （1.0分） 题号:279
下面有关数组的说法那些是错误的（）？ A:数组存放的是具有相同数据类型的多个数据
B:数组的下标允许是常数、表达式或变量 C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小 答案：BCD
第5题 （1.0分） 题号:283
要选择列表框List1的第6项，可以使用语句（）。
A:List1.Selected(6)=True B:List1.Selected(5)=True C:List1.ListIndex=5 D:List1.Selected=5 答案：BC
五、程序填空 共1题 （共计10分） 第1题 （10.0分） 题号:537
'-------------------------------------- '【程序填空】
'--------------------------------------
'功能：窗体中有Text1-Text7共7个文本框，单击按钮Command1在
' Text7中显示前6个文本框中的数值的最大数
'--------------------------------------Private Sub Command1_Click()
Dim a, b, c, d, e, f, m As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = Val(Text4.Text): e = Val(Text5.Text): f = Val(Text6.Text)
Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) '**********SPACE********** Text7.Text = 【?】 End Sub
'**********SPACE********** Sub max(x, y, z 【?】)
If x > y Then m = x Else m = y End If
'**********SPACE********** If m < 【?】 Then m = z End If End Sub
=======(答案1)======= m
=========或========= Cstr(m)
=========或========= Str(m)
======(答案2)======= ,m
=======(答案3)======= z
六、程序改错 共1题 （共计10分） 第1题 （10.0分） 题号:137
'-------------------------------------- '【程序改错】
'-------------------------------------- '题目：求s=72+102+132+??832的值。 '-------------------------------------- Option Explicit
Private Sub Form_Click() Cls
Dim s As Long Dim i As Integer
'**********FOUND********** s = 1
'**********FOUND**********
For i = 7 To 832 s = s + i
'**********FOUND********** loop 30 Print s End Sub
=======(答案1)======= s =0
=======(答案2)======= For i = 7 To 832 step 30 =======(答案3)======= Next i
=========或========= Next
七、程序设计 共1题 （共计20分） 第1题 （20.0分） 题号:481
'-------------------------------------- '【程序设计】
'-------------------------------------- '题目：编写函数fun其功能是：根据整型形参m，
'计算如下公式的值:
' y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1)
' 例如：若m=9，则应输出：2.133255 '--------------------------------------答案：---------------------- Dim y As Double Dim i As Integer y = 1
For i = 1 To m
y = y + 1 / (2 * i + 1) Next fun = y
----------------------
八、VB窗体设计 共2题 （共计40分） 第1题 （20.0分） 题号:37
---------------------------------------【窗体设计】
--------------------------------------- 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。
--------------------------------------- 提示：题中所提到的控件可以在“部件”中添
加以下项目
“Microsoft Windows Common Control 6.0”。 1、窗体设置
1）名称设置为“MediaPlayer”。 2）标题内容为“媒体播放器”。 3）边框样式设置为1。
4）窗体启动后显示在屏幕中间。 2、在窗体中的最上面添加文本框（TextBox） 窗体快捷键设置为“ALT + A”。 3）添加命令按钮（CommandButton） 名称设置为“cmdShanChu”； 标题内容为“删除(R)”； 窗体快捷键设置为“ALT + R”。 4）添加命令按钮（CommandButton） 名称设置为“cmdShuXing”； 标题内容为“属性(P)”； 窗体快捷键设置为“ALT + P”。 1）名称设置为“lblTitle”。 2）文本内容为“[00:00:00]小城故事”。 3）文本对齐方式为2。 4）锁定文本编辑。
5）前景色“&H00FFFFFF&”。 6）背景色“&H00000000&”。 3、在文本框的下面添加滑动条（Slider） 1）名称设置为“sdrPlaying”。 2）最大值为100。 3）微调为10。 4）滑块样式为3。
3、在滑动条下面添加如下6个按钮（CommandButton）
1）名称设置为“cmdPrev”； 标题内容为“<<”。 2）名称设置为“cmdUp”； 标题内容为“<”。 3）名称设置为“cmdDown”； 标题内容为“>”。 4）名称设置为“cmdNext”； 标题内容为“>>”。 5）名称设置为“cmdStart”； 标题内容为“开始”。 6）名称设置为“cmdStop”； 标题内容为“停止”。
4、在框架“fraKongZhiQi”内添加如下控件 1）添加列表试图（ListView） 名称设置为“lvwKongZhiQi”； 查看设置为3； 添加2个列首；
列首1文本为“控制器”； 列首2文本为“状态”。 2）添加命令按钮（CommandButton） 名称设置为“cmdTianJia”； 标题内容为“添加(A)...”；
5、在框架下面添加如下3个命令按钮（CommandButton）
1）名称设置为“cmdGaoJi”； 标题内容为“高级(D)...”； 窗体快捷键设置为“ALT + D”。 2）名称设置为“cmdYiNan”； 标题内容为“疑难解答(T)...”； 窗体快捷键设置为“ALT + T”。 3）名称设置为“cmdQueDing”； 标题内容为“确定”。 第2题 （20.0分） 题号:73
--------------------------------------- 【窗体设计】
---------------------------------------题目： 启动VB后，新建工程，在窗体上放置四个文本框，
五个标签，两个按钮。各控件属性设置如下表，设
计一个简单计算器，能后实现加、减、乘、除四则
运算。程序运行界面如图所示。 各控件属性设置如下表：
对象名称 Name属性 Caption属性
窗体 默认 加法器程序
命令按钮 commad1 计算
commad2 清除
标签 label1 数1
label2 运算符
label3
数2
label4 =
label5 结果
文本框 text1 text2 text3 text4
---------------------------------------