试卷编号：8474
一、填空 共5题 （共计5分） 第1题 （1.0分） 题号:237
如果:I=11:J=3:I=int(-8.6)+I\\J+13/3 MOD 5,则I值是【1】. =======(答案1)======= -2
第2题 （1.0分） 题号:264
当程序运行时,要求窗体中的文本框呈现空白,\菜单编辑器\中至少要填\名称\和\标题\这两个框,才
能真确完成菜单栏的设计. 答案：Y
第5题 （1.0分） 题号:254 move方法的一般形式是:对象名.move A,B[,C,D],其中A指Left ,C 指width. 答案：N
则在设计时,把此文本框的【1】属性设置成空白.
=======(答案1)======= Text
第3题 （1.0分） 题号:279
设置计时器对象触发事件的时间间隔用【1】属性.
=======(答案1)======= interval
第4题 （1.0分） 题号:226
表达式 32\\7 MOD 3^2 的值是【1】. =======(答案1)======= 4
第5题 （1.0分） 题号:1389 如果要每隔15秒产生一个计时器事件,则Interval属性应设置为【1】. =======(答案1)======= 15000
二、判断 共5题 （共计5分） 第1题 （1.0分） 题号:1210
一个目标程序所需的所有文件的集合称为工程 答案：Y
第2题 （1.0分） 题号:364
组合框兼有文本框和列表框两者的功能,用户可以通过键入文
本或选择列表中的项目来进行选择. 答案：Y
第3题 （1.0分） 题号:308
事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是
事件过程由控件属性决定,而Sub过程是由户自定义. 答案：Y
第4题 （1.0分） 题号:245
三、单项选择 共5题 （共计5分） 第1题 （1.0分） 题号:3262
控件Adodc1已与一个数据表正确关联,目前数据表处于第10条记录,下面能
将数据表第二条记录设定为当前记录的是: A:Adodc1.Recordset.MoveFirest
Adodc1.Recordset.MoveRecordset.MovePrevious
B:Adodc1.Recordset.MoveFirest
Adodc1.Recordset.MoveRecordset.MoveNext C:Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveRecordset.MovePrevious
D:Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveRecordset.MoveNext 答案：B
第2题 （1.0分） 题号:3639
当用户改变滚动条的value 属性时将激发滚动条的()事件. A:change B:scroll
C:change 和scroll D:gotfocus 答案：A
第3题 （1.0分） 题号:3338 声明符号常量应该用关键字(). A:Static B:Const C:Private D:V26/ariant 答案：B
第4题 （1.0分） 题号:3193 下列程序段的运行结果.
Private Sub Form_Click() Dim Msg
Hide
Msg=\选择'确定'按钮\ MsgBox Msg Show End Sub
A:隐藏窗体,按'确定'按钮使窗体重现 B:隐藏窗体
C:显示窗体,按'确定'按钮使窗体隐藏 D:显示窗体 答案：A
第5题 （1.0分） 题号:3451
数学表达式如图对应的VB不正确的表达式是 A:a*b/(3*c*d) B:a/3*b/c/d C:a*b/3/c/d D:a*b/3*c*d 答案：D
四、多项选择 共5题 （共计5分） 第1题 （1.0分） 题号:276 下列语句哪些是错误的语句（）？ A:Const Imax As Integer=&o155 B:Const _Ga As String=\
C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD
第2题 （1.0分） 题号:279
下面有关数组的说法那些是错误的（）？ A:数组存放的是具有相同数据类型的多个数据
B:数组的下标允许是常数、表达式或变量 C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小 答案：BCD
第3题 （1.0分） 题号:277 下列说法哪些是正确的（）？ A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出 答案：ABD
第4题 （1.0分） 题号:284
设A=\，下列（）的函数值为\。 A:Mid(A,10,4) B:Left(A,4) C:Right(A,4) D:Mid(A,10,14) 答案：ACD
第5题 （1.0分） 题号:280 请把下面说法中正确的选出来（）。 A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串 B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参” D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串 答案：BCD
五、程序填空 共1题 （共计10分） 第1题 （10.0分） 题号:522
'-------------------------------------- '【程序填空】
'-------------------------------------- '功能：以下程序的功能是：生成 20 个 200 到 300 之间
' 的随机整数，输出其中能被 5 整除的数并求出它们的和
'-------------------------------------- Private Sub Command1_Click() Dim s As Integer
Dim x As Integer, i As Integer '**********SPACE********** s = 【?】 For i = 1 To 20 Randomize
'**********SPACE********** X = Int(【?】 * 100 + 200) '**********SPACE********** If X 【?】 5 = 0 Then
Print X s = s + X End If Next i
Print \＝\End Sub 答案：
=======(答案1)======= 0
=======(答案2)======= Rnd
=========或========= Rnd(1)
=========或========= Rnd()
=======(答案3)======= Mod
六、程序改错 共1题 （共计10分） 第1题 （10.0分） 题号:477
'-------------------------------------- '【程序改错】
'-------------------------------------- '题目:用输入对话框输入x,根据公式（图1）计算对应的y,
' 并在窗体上输出y的值。
'-------------------------------------- Option Explicit
Private Sub Command1_Click() Dim x As Single, y As Single x = Val(InputBox(\\输入X的值\ If x = 10 Then y = 0
'**********FOUND********** Else x > 10 Then
'**********FOUND********** y = Str(x) + Sin(x) Else
'**********FOUND********** y = 2 * x ~ 3 + 6 End If Print y End Sub
=======(答案1)=======
ElseIf x > 10 Then =========或========= ElseIf 10 < x Then =======(答案2)======= y = Sqr(x) + Sin(x) =========或========= y = Sqr(x) + Sin(x) =======(答案3)======= y = 2 * x ^ 3 + 6 =========或========= y = 2 * x ^ 3 + 6
七、程序设计 共1题 （共计20分） 第1题 （20.0分） 题号:149
'-------------------------------------- '【程序设计】
'-------------------------------------- '题目：(事件)单击窗体。
' (响应)求1!+2!+3!+??+10!的值，并在窗体上输出。
' 结果存入变量L中。
'-------------------------------------- 答案：---------------------- Dim i As Integer Dim s As Long Dim j As Integer s = 1
For i = 1 To 10 s = s * i l = l + s Next
Print Str(l) ----------------------
八、VB窗体设计 共2题 （共计40分） 第1题 （20.0分） 题号:44
--------------------------------------- 【窗体设计】
--------------------------------------- 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。
--------------------------------------- 提示：题中所提到的控件可以在“部件”中添加以下两项
“Microsoft Tabbed Dialog Control
6.0”，
“Microsoft Windows Common Controls 6.0”。 1、窗体设置
1）名称设置为“Sound”。 2）标题内容为“声音属性”。 3）边框样式设置为1。
4）窗口启动后显示到屏幕中间。 2、在窗体中添加一个选项卡（SSTab） 1）名称设置为“tabYinLiang”。 2）样式设置为1。 3）选项卡数设置为1。 4）选项卡1；
标题内容为“音量”。
3、在选项卡“tabYinLiang”中的最上面添加标签（Label）
1）名称设置为“lblBiaoTi”。 2）标题内容为“SoundMAX Digital Audio”。
3）自动调整大小。
4、在选项卡“tabYinLiang”中，并在标签
“lblBiaoTi”的
下面分别添加如下2个框架（Frame） 1）名称设置为“fraSheBei”； 标题内容为“设备音量”。 2）名称设置为“fraYangShengQi”； 标题内容为“扬声器设置”。 5、在框架“fraSheBei”中的分别添加如下控件
1）在框架的最上面添加滑动条（Slider） 名称设置为“sdrYinLiang”； 最大值设置为50； 微调设置为5； 值为30。
2）在滑动条“sdrYinLiang”的左下放添加标签（Label）
名称设置为“lblDi”； 标题内容为“低”； 自动调整大小。
3）在滑动条“sdrYinLiang”的右下放添加标签（Label）
名称设置为“lblGao”； 标题内容为“高”；
自动调整大小。
4）在标签“lblDi”的下面添加复选框（CheckBox）
名称设置为“chkJingYin”； 标题内容为“静音”。
5）在复选框“chkJingYin”的下面添加复选框（CheckBox）
名称设置为“chkTuBiao”； 标题内容为“将音量图标放入任务栏”；
值为选中。
6）在复选框“chkTuBiao”的下面添加命令按钮（CommandButton）
名称设置为“cmdGaoJi”； 标题内容为“高级(V)...”； 窗体快捷键设置为“ALT + V”。 6、在框架“fraYangShengQi”中的分别添加如下控件
1）在框架的最上面添加标签（Label） 名称设置为“lblTiShi”； 标题内容为“用下列设置更改每个扬声器音量和其他设置”。
2）在标签“lblTiShi”的下面添加命令按钮（CommandButton）
名称设置为“cmdYangShengQi”； 标题内容为“扬声器音量(S)...”； 窗体快捷键设置为“ALT + S”。 3）在命令按钮“cmdYangShengQi”的右侧添加命令按钮（CommandButton） 名称设置为“cmdYSQGaoJi”； 标题内容为“高级(D)...”； 窗体快捷键设置为“ALT + D”。 4、在窗体最下面分别添加如下3个命令按钮（CommandButton）
3个命令按钮的高度都为315 1）名称设置为“cmdQueDing”； 标题内容为“确定”。 2）名称设置为“cmdQuXiao”； 标题内容为“取消”。 3）名称设置为“cmdYingYong”； 标题内容为“应用(A)”； 窗体快捷键设置为“ALT + A”； 按钮不可用。 第2题 （20.0分） 题号:66
--------------------------------------- 【窗体设计】
--------------------------------------- 题目：建立如图所示的窗体，单击窗体时，窗体上显示
“新朋友，欢迎你”，双击窗体时，清除窗体上
显示的信息，本题窗体各属性默认。
相关推荐：
loading