试卷编号：8486
一、填空 共5题 （共计5分） 第1题 （1.0分） 题号:1120 A和B同为正整数或同为负整数的VB表达式为【1】.=======(答案1)======= A=INT(A) AND B=INT(B) AND A*B>0 第2题 （1.0分） 题号:1490 如果将框架的【1】属性设置为False,则表示框架内的对象均被屏蔽.=======(答案1)======= Enabled 第3题 （1.0分） 题号:1363 数学表达式如图的VB算术表达式为【1】.=======(答案1)======= Sin(15*3.14/180) + Sqr(x + Exp(3))/Abs(xLog(3 * x) 第4题 （1.0分） 题号:1374 下面程序运行后输出的结果是【1】.Private Sub Command1_Click() a$=\"*\"::B$=\"$\" For i=1 To 4 If i Mod 2=0 Then x$=String(Len(a$)+i,B$) Else x$=String(Len(a$)+i,a$) End If Print x$ Next i End Sub =======(答案1)======= ** $$$ **** $$$$$ 第5题 （1.0分） 题号:245 声明单精度常量g(重力加速度)代表9.8可写成【1】.=======(答案1)======= const g=9.8 =========或========= const single g=9.8
二、判断 共5题 （共计5分） 第1题 （1.0分） 题号:332
在MsgBox 函数中 prompt 参数是必须的.答案：Y
第2题 （1.0分） 题号:352
在过程中用Dim和Static定义的变量都是局部变量.答案：Y
第3题 （1.0分） 题号:1123
使用Print方法只能在窗体中输出,不能在图片框中输出.答案：N
第4题 （1.0分） 题号:342
在VB中,可以将在Picture控件中绘制的图形以文件的形式保存 在磁盘上.答案：Y
第5题 （1.0分） 题号:270
当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.答案：N
三、单项选择 共5题 （共计5分） 第1题 （1.0分） 题号:3173
当一个窗体被卸载时,最后引发的一个事件是.
A:Deactivate B:QueryUnload C:Unload D:terminate 答案：D
第2题 （1.0分） 题号:3182 记录长度最大可取的值是______字节.A:32767 B:32768 C:65535 D:65536 答案：A
第3题 （1.0分） 题号:869
要清除已经在图片框Picture中打印的字符串而不清除图片框中的 图像,应使用语句().A:A.P1.Cls
B:P1.picture=LoadPicture(\"\") C:P1.Print\"\" D:P1.piture\"\" 答案：A 第4题 （1.0分） 题号:3234 执行下面程序段后,变量a的值为______. For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A:3 B:9 C:14 D:21 答案：C 第5题 （1.0分） 题号:2231 Rnd函数不可能是下列()值.A:0 B:1 C:0.1234 D:0.0005 答案：B
四、多项选择 共5题 （共计5分） 第1题 （1.0分） 题号:276 下列语句哪些是错误的语句（）？ A:Const Imax As Integer=&o155 B:Const _Ga As String=\"abc\" C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD 第2题 （1.0分） 题号:278 下列哪些标识符不符合变量的命名规则（）？A:hyu B:$abc C:4w D:y.u E:ty% F:_n8 答案：BCDEF 第3题 （1.0分） 题号:284 设A=\"abcdefghijklm\"，下列（）的函数值为\"jklm\"。 A:Mid(A,10,4) B:Left(A,4) C:Right(A,4)
D:Mid(A,10,14) 答案：ACD
第4题 （1.0分） 题号:275 下列说法中哪些是正确的（）？ A:逻辑型数据占1个字节 B:长整型数据占4个字节 C:单精度型数据占4个字节
D:一个汉字在Visual Basic中占1个字节 答案：BCD
第5题 （1.0分） 题号:277 下列说法哪些是正确的（）？ A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出 答案：ABD
五、程序填空 共1题 （共计10分） 第1题 （10.0分） 题号:491
\'------- \'【程序填空】
\'------- \'功能：以下程序的功能为，单击窗体后如果输入的数据分别为\"W\"，\"8\"和\"？\"时， \' 窗体上显示的内容分别是：W is Alpha Character、8 is Numeral Character、\' ？is Other Character
\'-------Private Sub Form_Click() Dim strC As String * 1 strC = InputBox(\"请输入数据\") \'**********SPACE********** Select Case 【?】
\'**********SPACE********** Case \"a\" To \"z\" 【?】 Form1.Print strC + \" Is Alpha Character\"
Case \"0\" To \"9\"
Form1.Print strC + \" Is Numeral Character\"
\'**********SPACE********** 【?】 Else
Form1.Print strC + \" Is Other End Sub Character\" End Select End Sub =======(答案1)======= strC =======(答案2)======= , \"A\" To \"Z\" =======(答案3)======= Case
六、程序改错 共1题 （共计10分） 第1题 （10.0分） 题号:455 \'------- \'【程序改错】
\'------- \'题目：猜数游戏：程序启动后Lable1和Lable2滚动显示
\' 属于[1，100]的随机整数，当用户单击\"左大\"或
\' \"右大\"按钮时，滚动停止，如果用户猜对了，
\' 在Lable3中显示\"猜对了\"，否则显示\"猜错了\"。
\'------- Private Sub Command1_Click() Timer1.Enabled = False \'**********FOUND********** If Val(Label1.Caption)
Private Sub Timer1_Timer() Randomize
Label1.Caption = Int(Rnd() * 100 + 1) Label2.Caption = Int(Rnd() * 100 + 1) End Sub 答案：
=======(答案1)======= If Val(Label1.Caption) > Val(Label2.Caption) Then =========或========= If Val(Label2.Caption)
七、程序设计 共1题 （共计20分） 第1题 （20.0分） 题号:156
\'------- \'【程序设计】
\'------- \'题目：(事件)双击窗体。
\' (响应)求3+6+9+12+15+18+„„+300的和，并将结
\' 果输出到窗体上。将结果存入变量 SUM中。
\'-------答案：---------------------- Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum
----------------------
八、VB窗体设计 共2题 （共计40分） 第1题 （20.0分） 题号:36
-------- 【窗体设计】
-------- 题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面。
-------- --------
1、窗体设置
1）名称设置为“Game”。 2）标题内容为“游戏控制器”。 3）边框样式设置为1。 4）隐藏控件菜单栏。
2、在窗体中的最上面添加标签（Label） 1）名称设置为“lblTiShi”。 2）标题内容为“这些设置帮助您配置安装在计算机上的游戏控制器。”。 3）自动调整大小。
3、在标签下面添加框架（Frame） 1）名称设置为“fraKongZhiQi”。 2）标题内容为“安装游戏控制器”。
4、在框架“fraKongZhiQi”内添加如下控件 1）添加列表试图（ListView）
名称设置为“lvwKongZhiQi”；
查看设置为3；
添加2个列首；
列首1文本为“控制器”；
列首2文本为“状态”。 2）添加命令按钮（CommandButton）
名称设置为“cmdTianJia”；
标题内容为“添加(A)...”；
窗体快捷键设置为“ALT + A”。 3）添加命令按钮（CommandButton）
名称设置为“cmdShanChu”；
标题内容为“删除(R)”；
窗体快捷键设置为“ALT + R”。 4）添加命令按钮（CommandButton）
名称设置为“cmdShuXing”；
标题内容为“属性(P)”；
窗体快捷键设置为“ALT + P”。
5、在框架下面添加如下3个命令按钮（CommandButton）
1）名称设置为“cmdGaoJi”；
标题内容为“高级(D)...”；
窗体快捷键设置为“ALT + D”。 2）名称设置为“cmdYiNan”；
标题内容为“疑难解答(T)...”；
窗体快捷键设置为“ALT + T”。 3）名称设置为“cmdQueDing”；
标题内容为“确定”。 第2题 （20.0分） 题号:77
【窗体设计】
--------题目：在窗体上放一文本框，一菜单，各菜单项内容如图
所示，编写菜单程序实现大小写字母转换的功能，
程序运行界面如图2所示 菜单项属性如下表。
菜单项 名称 快捷键 大小写转换 Change
....大写转小写 L_S Ctrl+A ....小写转大写 S_L Ctrl+B 退出 Exit 各控件属性设置如下表：
对象名称 Name属性 Caption属性 text属性
窗体 默认 默认
文本框 text1（MultiLine=True ScrollBars=2） 空
--------
