山东交通学院计算机VB考试上机操作题12
试题十二
━━━━━━━━━━━━━━━
一、填空共10题（共计10分）
━━━━━━━━━━━━━━━
第1题（1.0分）题号:65
Val("123.55ab456")的值是多少【1】.
答案：1). 123.55
第2题（1.0分）题号:58
在控件之中,【1】单独保存在.OCX文件中,在必要时可以加入到工具箱中.
答案：1). ACTIVEX控件
第3题（1.0分）题号:265
定时器控件的Interval属性值是指时间间隔,单位为毫秒;当每隔此间隔的时间,定时器会触发一次【1】事件.
答案：1). Timer
第4题（1.0分）题号:221
把条件1<=X<12写成VB关系表达式为【1】.
答案：1). x>=1 and x<12 或x<12 and x>=1
第5题（1.0分）题号:246
声明单精度常量P1代表3.14159的语句为【1】.
答案：1). Const PI=3.14159 或Const pi As Single = 3.14159
第6题（1.0分）题号:266
对象具有属性和【1】.
答案：1). 方法
第7题（1.0分）题号:250
征兵的条件:男性(sex)年龄(age)在18—20岁之间,身高(size)在1.65米以上;或者女性年龄在16—18岁之间,身高在1.60以上,列出逻辑表达式【1】.
答案：1). ( sex and age>=18 and age<=20 and size>=1.65 ) or ( notsex and age>=16 and age<=18 and size>=1.60 )
第8题（1.0分）题号:283
使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】.
答案：1). Picture1.move 200,100,picture1.width/sqr(2),picture1.height/sqr(2)
第9题（1.0分）题号:48
由Dim a (10) As single定义的数组占用【1】字节的内存空间.
答案：1). 44
第10题（1.0分）题号:51
在VB中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互.
答案：1). 方法
━━━━━━━━━━━━━━━
二、判断共10题（共计10分）
━━━━━━━━━━━━━━━
第1题（1.0分）题号:299
如果一个菜单项的Visible属性为False,则它的子菜单也不会显示. 答案：Y
三种方式的组合框都可以接受DblClick 事件. 答案：Y 第3题（1.0分）题号:331
欲在PictureBox控件上设置其它控件,可以通过把窗体上原已设计好的控件拖动到PictureBox控件上来实现. 答案：N 第4题（1.0分）题号:248
Frame控件是一种容器控件,因此它可有它自己的坐标系. 答案：N 第5题（1.0分）题号:344
在VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用. 答案：Y 第6题（1.0分）题号:278
对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件). 答案：Y 第7题（1.0分）题号:324
用dim语句声明的局部变量能保存上一次过程调用后的值. 答案：N 第8题（1.0分）题号:267
窗体的Enabled属性值为False时,该窗体上的按钮、文本框等控件就不会对用户的操作做出反应. 答案：Y 第9题（1.0分）题号:286
将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法. 答案：Y 第10题（1.0分）题号:342
在VB中,可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上. 答案：Y ━━━━━━━━━━━━━━━━━
三、单项选择共10题（共计10分）
━━━━━━━━━━━━━━━━━
第1题（1.0分）题号:870
要清除组合框Combol中的所有内容,可以使用()语句.
A:Combo1.Cls B:Combo1.Clear
C:Combo1.Delete D:Combo1.Remove
答案：B
第2题（1.0分）题号:816
要在垂直位置上移动控件,应利用控件的()属性.
A:Left B:Width
C:Top D:Height
答案：C
第3题（1.0分）题号:313
控件内的对齐方式()属性决定.
A:Alignment B:WordWrap
C:AtuoSize D:Style
答案：A
第4题（1.0分）题号:290
当用户改变滚动条的value 属性时将激发滚动条的()事件.
A:change B:scroll
C:change 和scroll D:gotfocus
答案：A
改变控件在窗体中的上下位置应修改控件的()属性.
A:Top B:Left
C:Wide D:Height
答案：A
第6题（1.0分）题号:284
常用控件的Style属性值是().
A:字符常量B:逻辑常量
C:数值常量D:日期常量
答案：C
第7题（1.0分）题号:311
可视化编程的最大优点是().
A:具有标准工具箱B:一个工程文件由若干个窗体文件组成C:不需要编写大量代码来描述图形对象D:所见即所得
答案：C
第8题（1.0分）题号:236
VisualBasic集成环境的大部分窗口都可以从主菜单项()的下拉菜
单中找到相应的打开命令.
A:编辑B:视图
C:格式D:调试
答案：B
第9题（1.0分）题号:860
组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由
()属性决定.
A:Style B:BoderStyle
C:FillStyle D:DrawStyle
答案：A
第10题（1.0分）题号:238
变量未赋值时,数值型变量的值为().
A:0 B:空C:1 D:无任何值
答案：A
━━━━━━━━━━━━━━━━
四、多项选择共5题（共计10分）
━━━━━━━━━━━━━━━━
第1题（2.0分）题号:281
窗体也是一个对象，它具有（）的特征。
A:属性B:过程
C:事件D:方法
答案：ACD
第2题（2.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
设A="abcdefghijklm"，下列（）的函数值为"jklm"。
A:Mid(A,10,4) B:Left(A,4)
C:Right(A,4) D:Mid(A,10,14)
答案：ACD
第4题（2.0分）题号:277
下列说法哪些是正确的（）？
A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出答案：ABD
第5题（2.0分）题号:278
下列哪些标识符不符合变量的命名规则（）？
A:hyu B:$abc C:4w
D:y.u E:ty% F:_n8
答案：BCDEF
━━━━━━━━━━━━━━━━
五、程序填空共1题（共计10分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:61
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好
' (75分以上),及格(60分以上),不及格几个等级。
'-------------------------------------------------------
Private Sub Command1_Click()
x = Val(Text1.Text)
If x >= 90 Then
Label1.Caption = "优秀"
'**********SPACE**********
ElseIf 【?】Then
Label1.Caption = "良好"
ElseIf x >= 60 Then
'**********SPACE**********
【?】
'**********SPACE**********
【?】
Label1.Caption = "不及格"
End If
End Sub
答案：
1). x >= 75 或75 <= X
2). Label1.Caption = "及格" 或Label1 = "及格"
3). Else
━━━━━━━━━━━━━━━━
六、程序改错共2题（共计20分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:131
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：下面程序用于将十个数字从小到大排序
'------------------------------------------------
Option Explicit
Option Base 1
Private Sub Form_Click()
Cls
Dim a(10) As Integer
Dim i As Integer, j As Integer, temp As Integer
'**********FOUND**********
For i = 0 To 10
If i Mod 2 = 0 Then a(i) = i Else a(i) = -i
Print a(i);
Next
For i = 1 To 10
For j = 1 To 10 - i
'**********FOUND**********
If a(j) < a(j + 1) Then
temp = a(j): a(j) = a(j + 1): a(j + 1) = temp
End If
'**********FOUND**********
Next i, j
For i = 1 To 10
Print a(i);
Next
End Sub
答案：
1). For i = 1 To 10