VB程序设计期末复习题
《V i s u a l B a s i c程序设计》期末复习题
一、单项选择题
1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。
A．按过程顺序执行B．从主程序开始执行
C．事件驱动D．按模块顺序执行
2．与传统的设计语言相比，Visual Basic最突出的特点是（）
A．程序开发环境B．结构化程序设计
C．程序调试技术D．事件驱动的编程机制
3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。
A．缺少.frm窗体文件B．该可执行文件有病毒
C．运行的机器上无VB系统D．以上原因都不对
4. Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。
A．设计模式B．编写代码模式
C．执行模式D．中断模式
5．后缀为.bas的文件表示（）。
A．工程文件 B．窗体文件
C．窗体二进制数据文件 D．标准类模块文件
6．工程文件的扩展名是（）。
A．.vbp B．.frm C．.bas D．.frx
7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。
A．时钟控件B．图像框C．框架D．通用对话框
8.以下叙述中错误的是（）。
A．一个工程中可以包含多个窗体文件
B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件
C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用
D．全局变量必须在标准模块中定义
9．要在窗体Form1内显示“欢迎您！”，使用的语句是（）
A．Form.caption="欢迎您!" B．Form1.caption="欢迎您!"
C．Form. print "欢迎您!" D．Form1.print "欢迎您!"
10．决定标签内显示内容的属性是（）
A．Name B．Text C．Caption D．Alignment
11．要设置命令按钮的背景图形，必须设置的两个属性是（）
A．Caption和Picture B．Style和Picture
C．Style和Icon D．Value和Icon
12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．List1.AddItem"China" B．List1.AddItem"1,China"
C．List1.AddItem"China",0 D．List1.AddItem"China",1
13．在VB中，下列各项合法的变量名是（）。
A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（）
A．4EF B．integer C．E-F D．E_F
15．如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。
A．PasswordChar B． Caption C．Text D．Locked
16．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。
A．MaxButton B．BorderSyle
C．Width D．MinButton
17．下列控件中不能响应Click事件的是（）。
A．TextBox B．Timer C．Label D．ListBox
18．有程序代码如下：
Text1.Text = "欢迎学习VB程序设计"
则Text1，Text ，和"欢迎学习VB程序设计"分别代表（）。
A．对象，值，属性 B．对象，属性，值
C．对象，方法，属性 D．属性，对象，值
19．设a=”Visual Basic”，下面使b=”Basic”的语句是（）。
A．b=left(a,8,12) B．b=mid(a,8,5)
C．b=right(a,5,5) D．b=left(a,8,5)
20．确定一个控件在窗体上位置的属性是（）
A ．Top或Left B．Top和Left
C．Width或Height D．Width和Height
21．执行Form1.Scale (0, 10)-(10, -10)语句后，Form1窗体坐标系x轴和y轴的正方向是（）。
A．向右和向上 B．向左和向下
C．向右和向下 D．向左和向上
22．如果希望以模态方式显示窗体Form1，下列正确的语句是（）
A．Form1.Show 0 B．Form1.Show 1
C．Form1.Show D．以下都不正确
23．改变驱动器列表框的Drive属性值，将激活（）事件。
A．KeyDown B．KeyUp C．Scoll D．Change
24．多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。
A．不包含任何控件的窗体 B．命名为Frm1的窗体
C．包含控件最多的窗体 D．设计时的第一个窗体
25．Dim A(1 To 4,0 To 3)定义的数组包含的元素的个数是（）。
A．12 B．16 C．15 D．动态变化
26．如果创建了命令按纽控件数组，则Click事件的参数是（）。
A．Caption B．Index C．Tag D．没有参数
27．如果准备向随机文件中写入数据，正确的语句是（）
A．Write # 1,rec B．Print # 1,rec
C．Get # 1,rec D．Put # 1,rec
28.要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（）
A．Open " Test.doc " For Output As #1
B．Open "D:\ Test.doc " For Input As #1
C．Open "D:\ Test.doc " For Output As #1
D．Open " Test.doc " For Input As #1
29．.以下属性只能用程序代码设置，不能通过属性窗口设置的是（）。
A．Index属性 B．Pattern属性 C．Visible属性 D．Drive属性
30．以下有关Visual Basic语言描述中错误的是（）。
A．语句是一行一句，以回车键结束
B．用“,”分隔一行中的多个语句
C．不区分大小写
D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行
31．不属于VB数据库引擎的是（）
A．ODBC B．Jet引擎C．OLE DB D． BDE
32.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。
A．Open B．Execute C．CommandType D．ActiveConnection
33．用来从数据库表中删除记录的SQL命令是（）。
A．where B．select C．update D．delete
34．VB程序中通常不会产生错误提示的是（）。
A．编译错误B．逻辑错误
C．运行时错误D．实时错误
35．在VB程序中逐语句调试的键是（）。
A．F8键 B．F9键
C．CtrlF8键D．CtrlF9键
36．当Winsock控件处于侦听状态时，其State属性的值是（）
A．0 B．1 C．2 D．3
37．要发送数据，通常使用Winsock控件的（）
A．Listen B．Accept C．SendData D．GetData
38. 下列叙述不正确的是（）。
A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译
B.注释语句不能放在代码中的任何位置
C.注释语句可以放在代码中的任何位置
D.代码中加入注释语句的目的是提高程序的可读性
39．ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（）。
A．Command B．Connection
C．Recordset D．Field
40．ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（）。
https://www.360docs.net/doc/6d8361824.html,mand
B.Connection
C.Recordset
D.Field
二、填空题
1.每个应用程序必须有一个唯一的文件，至少有一个文件。
2．表达式13\2-2^3*5 MOD 6的值是。
3．如果要每隔3s产生一个Timer事件，则Interval属性应设置为。4．VB 中的程序错误类型主要有实时错误、、三种。
5. 控件数组的名字由属性指定，而数组中的每个元素由属性决定。
6．用Dim A(4,4)语句声明二维数组后，数组A的元素共有个。
7．设某个程序中要用到一个二维数组，要求数组名为R，类型为整型，第一维下标从-2到2，第二维下标从0到4，则相应数组声明语句为。
8．某个程序中要用到一个二维数组，要求数组名为C，类型为整型，第一维下标从-1到3，第二维下标从0到4，则相应数组声明语句为。
9．过程级变量是指在声明的变量，窗体级或模块级变量是指窗体或模块的代码声明段用或声明的变量，在全局变量在整个应用程序中有效，一般在标准模块中使用语句声明。
10．在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用For Next循环循环；若要求先判断循环进行的条件，可使用循环。
11．为了在运行时把当前路径下的图形文件flower.jpg装入图片框P1，所使用的语句
为。
12. 将图片框的AutoSize属性设置成时，可使图片框根据图片调整大小。
13．Winsock控件主要用来编制基于TCP/IP或协议的网络应用程序。如果希望得到本地计算机的 IP地址，可以使用Winsock控件的属性。
14．Winsock控件主要用来编制基于或协议的网络应用程序。
15．如果不能事先确定变量的数据类型，则可以把它声明为类型。
16．以写方式打开D盘中的 Text.dat文件，正确的语句是
17．列表框中项目的序号是从开始的。
18．执行赋值语句y = “abc”+”def”后，变量y的值是。
19．全局变量是指那些在中有效的变量，一般在模块代码编辑器的顶部使用声明。
20．VB中参数传递的机制有两种，一种是参数，另一种是
参数。
21．闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是。
22．若窗体的左上角坐标为（-250，250），右下角坐标为（300，0），则X轴的正向向，Y轴的正向向。
23．在VB中，将Access称为，SQL Server称为，Foxpro称为。
24．数据库应用程序属于一种非常典型的前后台软件结构，前后台之间进行通讯的主要机制称为。
25．常用的VB网络编程控件主要有、和
三种。
26．通常可以将文本框控件的属性设置为False，以禁止键盘输入。如果不希望某个控件获得焦点，则可以将它的属性设置为False。
27．VB应用程序可分为单窗体、多窗体和。
28．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向，Y轴的正向向。
29．数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主要机制称为。
30．VB中将数据库分为本地数据库、和三种类型。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = y + 3
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
2．
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后，文件框Text3的结果。
3.
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，窗体Form1上的结果。
4.
Public Sub change1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22:
b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22:
b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
5．
Private Sub Form_Click()
Dim i As Integer, k As Integer
k = 1
For i = 1 To 4
If i > 3 Then
k = k + 4
Exit For
Else
k = k + 3
End If
Next i
Print i, k
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
6.
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 6
i = 2
Do While i < 7
i = i + 4
s = s + i
Loop
Text1.Text = s
End Sub
写出程序运行后，单击Command1按钮，文件框Text1的输出结果是：
7.
Function F(a As Integer)
Static c
b = b + 3
c = c + 3
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 5
For i = 1 To 4
Print F(a)
Next i
End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。
8．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
k = 3
c = 4
For j = 1 To 6
If j > 3 Then
c = c + 6
Exit For
Else
k = k + 2
End If
Next j
Print c, k
End Sub
写出程序运行时单击窗体后，c,k的值分别是：
9. (6分)
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 5
i = 1
Do While i < 8
i = i + 2
s = s + i
Loop
Text1.Text = s
End Sub
文件框Text1的输出结果是
10. (7分)
Sub test(i As Integer)
i = i + 4
End Sub
Private Sub form_Click()
Dim x As Integer
x = 5
Print "x="; x
Call test(x)
Print "x="; x
End Sub
写出程序运行后，单击窗体时程序的运行结果。
四、完善程序题
1．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。
Text1
List1
Comman
Comman
Comman
图 1
程序如下，请补充完整。
Private Sub Form_Load()
List1.AddItem "Visual Basic程序设计"
List1.AddItem "SQL SERVER数据库应用"
List1.AddItem "信息管理系统"
List1.AddItem "ERP原理与应用"
List1.AddItem "网络实用技术基础"
List1.AddItem "系统开发规范与文档编写"
List1.AddItem "信息系统测试"
End Sub
Private Sub Command1_Click()
If Text1.Text <> "" Then
[1] '将文本框中的内容加到列表框中
Text1.Text = ""
[2]
MsgBox "请在文本框中输入信息！"
End If
End Sub
Private Sub Command2_Click()
[3] '删除选定的项目
End Sub
Private Sub Command3_Click()
If Command3.Caption = [4] Then
Text1.Text = [5]
Text1.SetFocus
Command1.Enabled = [6]
Command2.Enabled = False
Command3.Caption = [7]
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text =""
Command3.Caption = [8]
End If
End Sub
2．已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如下图所示。
图1
程序如下，请补充完整。
'声明对象变量ADOcn，用于创建与数据库的连接
Private ADOcn As Connection
Private Sub Form_Load()
'连接SQL Server数据库
Dim strDB As String
strDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = [1] "
If ADOcn Is Nothing Then
Set ADOcn =[2]
[3]
End If
End Sub
Private Sub Command1_Click()
'增加学生记录
Dim strSQL As String
Dim ADOrs As [4]
ADOrs. [5] =ADOcn
ADOrs.Open “Select 学号 From Students Where 学号=”+” ‘ “+Text1+” ‘ “
If Not [6] Then
MsgBox “你输入的学号已存在，不能新增加！”
Else
StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别)
StrSQL=strSQL+Values(”+” ‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+”
‘,’ “+text4+” ‘)”
ADOcn.Execute [7]
MsgBox “添加成功，请继续！”
End If
Private Sub Command2_Click()
Unload Me
End Sub
3．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。
现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。
图1用Access创建的学生基本情况数据表
图2 查询程序运行界面
程序如下，请补充完整。
Private ADOcn As Connection
Private Sub Form_Load()
[1]
[2] "
End Sub
Private Sub Command1_Click()
Dim strSQL As String
Dim ADOrs As [3] Recordset
ADOrs.ActiveConnection = ADOcn
strSQL = "Select * From 学生基本情况 Where 学号=" + " ' " + Text1 + " ' "
[4]
If [5] ADOrs.EOF Then
Text2 = ADOrs.Fields("学号")
Text3 = ADOrs.Fields("姓名")
Text4 = ADOrs.Fields("籍贯")
[6]
MsgBox "要查询的学号不存在，请重新输入!", vbOKOnly, "信息提示"
Text1 = ""
[7]
End If
End Sub
Private Sub Command2_Click()
[8]
End
五、编写程序题
1．编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若小于800元大于600元，则增加工资15%；若小于600元则增加工资10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。
图2
2．请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框
和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图2所示。
图2
3．请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：
（1）收入在1200元以内，扣税3%；
（2）收入在1200-4000元内，1000元以上部分扣税15%，
（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，（4）当收入达到5000元以上，扣税25%。
程序运行界面如图3所示。
图3
答案：
一、单项选择题（每小题2分，共30分）
1.C
2.D
3.C
4.B
5.D
6.A
7.D
8.C
9.D 10.C
11.B 12.C 13.D 14.D 15.A
16.B 17.B 18.B 19.B 20.B
21.A 22.B 23.D 24.D 25.B
26.B 27.D 28.B 29．D 30．B
31.D 32.D 33.D 34.B 35.A
36.C 37.C 38．C 39.B 40.C
二、填空题（每空1分，共15分）
1．Vbp frm
2．2
3．3000
4．逻辑错误编译错误
5．Name Index
6．25
7.Dim R(-2To 2,0 To 4) As Integer
8．Dim C(-1 To 3,0 To 4) As Integer
9．过程内部 Dim Private Public 10．For???Next循环 Do???Loop循环
11．P1. Picture = LoadPicture("flower.jpg") 12．True
13. UDP LocalIP
14.TCP/IP UDP
15．变体型(或Variant)
16. open"D:\text.dat" For Output As # 1
17. 0
18．abcdef
19.整个应用程序 Public
20．引用参数传递（或按址传递）按值传递
21.Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=0 22．右上
23．本地数据库远程数据库外部数据库24．数据引擎
25．Winsock Internet Transfe WebBrowser 26．Locked TabStop
27．MDI窗体
28. 右上
39．数据库引擎
30．外部数据库远程数据库
三、阅读程序题
1． x=2 y=3
x=2 y=6
x=2 y=9
2.
242
3．
25
4．
A1=22 B1=33
A2=33 B2=22
5.
4 14
6．
22
7．
11
14
17
20
8.
10 9
9．
29
10．
x= 5
x= 9
四、完善程序题
1．
[1]List1.AddItem Text1.Text
[2]Else
[3]List1.RemoveItem List1.ListIndex
[4] "修改"
[5] List1.Text
[6] False
[7] "修改确认"
[8] "修改"
2．
[1]学生
[2]New Connection
[3] ADOcn.Open strDB
[4] New Recordset
[5] ActiveConnection
[6] ADOrs.EOF
[7] strSQL
3．
[1] Set ADOcn = New Connection
[2] 学生.MDB
[3] New
[4] ADOrs.Open strSQL
[5] Not
[6] Else
[7]Text1.SetFocus
[8] UnLoad Me
五、编写程序题
1．参考答案：
Private Sub Command1_Click()
Dim x As Integer, y As Single
x = Val(Text1.Text)
Select Case x
Case Is >= 800
y = x * 1.2
Case Is >= 600
y = x * 1.15
Case Else
y = x * 1.1
End Select
Label1.Caption = y
Private Sub Command2_Click()
Unload Me
End Sub
2．参考答案：
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 100 Then
y = x
Else
If x < 200 Then
y = 9.5 * x
Else
If x < 300 Then
y = 0.9 * x
Else
If x < 500 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If
End If
Text2.Text = y
End Sub
3．参考答案：
Private Sub Command1_Click()
Dim x As Integer, tax As Single
x = Val(Text1.Text)
If x < 1200 Then
tax = x * 0.03
Else
If x <= 4000 Then
tax = (x - 1000) * 0.15
Else
If x <= 5000 Then
tax = (x - 1000) * 0.15 + (x - 4000) * 0.05 Else
tax = x * 0.25
End If
End If
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
《VB程序设计》期末考试试卷(A)附答案
******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x （5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为VB的变量名的是＿＿＿。 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 VB复习题 一．选择题 1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE 程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152) 《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100” D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim 《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0) 一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 《VB程序设计》期末试卷 一、判断题（每题１分，共10分） （）１、设置属性的语句格式为：“对象名．属性名＝属性值”。 （）２、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。（）３、ＶＢ的赋值语句只能给变量赋值。 （）４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。 （）５、窗体大小只能通过鼠标拖动窗体边框来设置。 （）６、VB的Double类型数据，可以精确表示其数值范围内的所有实数。 （）７、若用户在键盘上按下一个键，则会产生一个Click事件。 （）８、罗马数制是进位计数制。 （）９、事件过程可以由用户事件触发执行，也可以由其他过程所调用。 （）１０、Do While条件.....Loop和DO Until Not条件.....Loop 两条循环语句，实现循环控制是等效的。 二、单项选择题。（每小题2分，共50分） （）1．设a=“Visual Basic”，下面使b=“Visual”的语句是 A. b=Left(a,6) B. b=Mid(a,1) C. b=Rigth(a,5,5) D. b=Left(a,1,6) （）2．在立即窗口中执行？9>=9，输出结果是 A．0 B．True C．False D. －1 （）3．语句Dim var1 As Boolean作用是:将var1定义为什么类型变量 A.单精度型 B. 整型 C. 布尔型 D.字符型 （）4．Int(—0.618*10)/10的值是 A.—0.7 B.—0.6 C. —1 D. —0.1 （）5．表达式2 + 8 * 6 / 4 Mod 2的值是 A.5 B.2 C.6 D.9 （）6．在VB中快捷键F4打开哪个窗口？ A. 资源管理器窗口 B. 属性窗口 C. 代码窗口 D. 立即窗口 （）7．函数Int( 64 * RND() )的值是在哪个范围内的整数？ A. [0,63] B. [0,64] C. [1,63] D. [1,64] （）8.下列叙述中正确的是 A. 只有窗体才是Visual Basic中的对象 B. 只有控件才是Visual Basic中的对象 C. 窗体和控件都是Visual Basic中的对象 D. 窗体和控件都不是Visual Basic中的对象 （）9.用于Visual Basic程序设计的控件在 A. 工具箱中 B.工具菜单中 C. 工程窗口中 D.工具栏上 （）10．Visual Basic程序中表示续行的字符是 A. ： B. _ C. \ D. ’ （）11．决定按钮显示内容的属性是 A. Text https://www.360docs.net/doc/6d8361824.html, C. Caption D.BackStyle （）12．下列可以把图形文件c:\地鼠1.jpg装入窗体FORM1中的语句为 A. Form1.Picture= LoadPicture("c:\ 地鼠1.jpg") B. Form1.Handle = " c:\ 地鼠1 .jpg" C. Form1 = LoadPicture("c:\ 地鼠1.jpg") D. Form1 = " c:\ 地鼠1.jpg" （）13．设a、b、c为整型变量，执行以下程序后a、b、c的值是 a=1:b=2:c=3 a=b:b=c:c=a A.2 3 1 B.2 3 2 C.3 2 1 D.1 3 2 （）14．将数学表达式2 2* 5 ) ( cos e b a+ +写成Visual Basic的表达式，其正确的形式是 A.Cos (a+b) ^2+5*exp(2) B.Cos^2(a+b)+ 5*exp(2) C.Cos (a+b) ^2+5*ln(2) D.Cos^2(a+b)+ 5*ln(2) （）15．下列描述图片框和图像框区别，那条是错误的 A．图像框中显示图片一般用作背景 B．图片框有拉伸属性 VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y% VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x 第一套试题 一、选择题(每题2分，共30分） 1.在ＶB环境中,工程文件的扩展名是( C ) (A）.frm (B)．baｓ（Ｃ）.vbp （D).ｆrx 2．下面4项中不属于面向对象系统三要素的是( A ) (A)变量（B)事件（C)属性（D）方法 3. \、/、Ｍod、*这4个算述运算符中，优先级别最低的是( Ｃ ) （A)＼ (Ｂ）/ （C）Mod (D）* 4.要使Pｒinｔ方法在Ｆoｒm_Load事件中起作用,要对窗体的( C )属性进行设置 （A）ＢackＣoｌor （B）ForeCoｌor （Ｃ）AｕtｏRｅdraｗ（D）Cａptｉon 5．不论何控件,共同具有的属性是（ B ) （A)Text (B)Naｍe （C）FoｒeColoｒ（Ｄ）Ｃaｐtｉoｎ 6.要使Ｆoｒm1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A)Foｒm1.Capｔｉon=“欢迎使用ＶＢ”（B）Form1.Cａption＝ˊ欢迎使用VBˊ (C）Forｍ１．Caption=欢迎使用VB （D)Forｍ1．Caｐｔioｎ=〞欢迎使用ＶB〞 7.VＢ提供了结构化程序设计的３种基本结构，这3种基本结构是( D ) （Ａ)递归结构,选择结构,循环结构 (B)选择结构，过程结构，顺序结构 （C)过程结构,输入、输出结构，转向结构(Ｄ)选择结构,循环结构，顺序结构 8.给变量赋值a=1２3＋MＩD(“１23456”,３,２),a变量中的值是( D ) (A)“1２334”(B)1２3 (C）12334 （Ｄ）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( Ｄ ) (A）Ｉf sex=“男”And agｅ＜40 And IｎStｒ(duty,“教授”)＞0 Thｅn n=n+１ （B)If sｅx=“男”And age＜40 And (duty=“教授”Or dutｙ=“副教授”) Theｎｎ=n+1 Visual Basic程序设计期末综合练习 2008年11月 一、单项选择题 1．一个VB应用程序可以包含几个vbp文件（A．1个）。 2．启动VB后，就意味着要建立一个新（ C．工程）。 3．后缀为.bas的文件表示（D．标准类模块文件）。 4．当一个工程中含有多个窗体时，其中的启动窗体是（ D．在“工程属性”对话框中指定的窗体）。 5．在文本框控件中将Text的内容全部显示为所定义的字符的属性是（B．PasswordChar ）。 A．Password B．PasswordChar C．需要编程来实现D．以上都不是 6．Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（C．事件驱动）。 A．从主程序开始执行B．按过程顺序执行 C．事件驱动D．按模块顺序执行 7．下列四项中合法的变量名是（B．a_bc ）。 A．a-bc B．a_bc C．4abc D．integer 8．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（C．运行的机器上无VB系统）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 9．无论何种控件，共同具有的属性是（B．Name） A．Text B．Name C．Caption D．ForeColor 10．有程序代码如下： Text1.Text = "Visual Basic程序设计" 则Text1，Text ，和"Visual Basic程序设计"分别代表（C．对象，属性，值）。 A．对象，值，属性B．对象，方法，属性 C．对象，属性，值D．属性，对象，值 11．如果仅需要得到当前系统时间，使用的函数是（B．Time ） A．Now B．Time C．Year D．Date 12．表达式16/4-2^5*8/4MOD5\2（D．4 ）。 A．20 B．14 C．2 D．4 13.以下叙述中错误的是（D、在一个窗体文件中用Private定义的通用过程能被其它窗体调用）。 A、一个工程中可以包含多个窗体文件VB程序设计试题与答案-1资料
VB程序设计期末考试复习题
VB题库—程序设计[1]
VB程序设计期末模拟试卷
《VB程序设计》考试题型练习 答案
vb题库程序设计
VB考试题及答案
vb程序设计试题(含答案)
VB程序设计期末试卷
VB程序设计编程考试~题及答案~
大学VB期末考试试题
[整理]VB程序设计复习题及答案.
VB程序设计试题及答案一
VB程序设计试题及答案(一)
vb程序设计试题(含标准答案)
VB程序设计_期末复习资料2.doc