VB期末考试考卷及答案
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB期末考试试卷及答案
一·选择题
1.Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是( B )
A属性、控件和方法 B属性、事件和方法
C窗体、控件和过程 D控件、过程和模块
2. 所有控件都有一个共同的属性,这个属性是( C )
A text
B font
C name
D caption
3. 下列叙述中错误的是( A )
A 工程文件扩展名是.vbg
B 标准模块文件的扩展名是.bas
C 窗体模块的扩展名是.frm
D 类模块的扩展名是.cls
4. 当要编写一个新的Visual Basic程序时,所做的第一件事是( A )
A 新建一个工程
B 编写代码
C 设置属性
D 添加Active X控件
5. 下面控件中,没有caption属性的是( B )
A 框架
B 组合框
C 命令按钮
D 复选按钮
6. 在文件框中输入字符时,若只显示某个字符,如(*),应设置属性是( B )
A MultiLine
B PasswordChar
C Text
D selText
7. 若要将窗体从内存中卸载出去,其实现的方法是( D )
A Show
B Hide
C Load
D UnLoad
8. 下列关于过程叙述不正确的是( D )
A 过程的传值调用是将实参的具体值传值传递给形参
B 过程的传址调用是将实参在内存的地址传递给形参
C 过程的传值调用参数是单向传递的,过程的传址调用参数是双向传递的
D 无论过程传值调用还是传地址调用,参数传递都是双向的
9. 某人创建1个工程,其中的窗体名为Form1,之后又添加了1个名为Form2的窗
体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是( C )
A 在Form1的Load事件过程中加入语句Load Form2
B 在Form2的Load事件过程中加入语句Form2.Show
C 在“过程属性”对话框中把“启动对象”设置为Form2
D 在Form2的TabIndex属性设置为1,把Form1的TabIndex属性设置为2
10. 以下关于文件的叙述中,正确的是( B )
A 以Output方式打开一个不存在的文件时,系统将显示出错信息
B 以Append方式打开的文件,既可以进行读操作,也可以进行写操作
C 在随机文件在,每个记录的长度是固定的
D 无论是顺序文件还是随机文件,其打开的语句和打开的方式都是完全相同的
11. 设a=6,b=8,c=10 则函数IIf(a
A 10
B 6
C 8
D 12
12. 下面程序的执行结果为( B )
I=”1” : j=”2”
I=val(i)+val(j)
J=val(“12”)
If i<>j Then print i-j Else printj-i
A 9
B -9
C 12
D 0
13. 下面程序的执行结果为( A )
Dim S(10) AS Integer
For i=0 to 10
S(I)=2*i
Next i
Print S(S(3))
A 12
B 6
C 0
D 4
二·程序填空题:
1.在窗体上画一个命令按钮(Command1)和一个标签(Label1),为命令按钮编写
以下事件,其功能是求数组中各元素之和,并将结果在标签上显示,请在指定位
置填上正确代码将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a(3,2) AS Integer
S =0
For i= 1 to 3
For j= 1 to 2
a(I,j) = i+j
s= 【1】
Next j
Next i
【2】
End Sub
2.下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中
5的倍数所占比例,请在指定位置填上正确代码将程序补充完整。
Private Sub Command1_Click()
Randomise
Dim a(10) As Integer
For j =1 to 10
a(i)= 【3】
If 【4】 Then k= k+1
Print a(j)
Next j
Print k /10
End Sub
3.以下程序运行后,在Text1中输入任意字符串,单击命令按钮,将Text1中的字
符串转换为大写,再将字符串逆置(如ABCD--DCBA),在Text2中显示逆置后的
字符串。请在指定位置填上正确代码将程序补充完整。
Private Sub Command1_Click()
St = Ucase(Text1.text)
For i= 【5】 To 1 Step -1
S2= s2+Mid(s1, 【6】 , 1)
Text2.text= s2
End Sub
4.Next i设有如下的循环,要求程序运行时执行3次循环,请在指定位置填上正确
代码将程序补充完整。
Dim x As Integer
X = 1
Do