Visual Basic程序设计期末综合练习.docx
《Visual Basic程序设计期末综合练习.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计期末综合练习.docx（30页珍藏版）》请在冰豆网上搜索。
VisualBasic程序设计期末综合练习
VisualBasic程序设计期末综合练习
一、单项选择题
1．VisualBasic应用程序处于运行模式时，这时（）。
A．既不能设计界面，也不能编写代码B．可以编辑代码，不能设计界面C．可以设计界面，不能编辑代码D．既能设计界面，也能编写代码
2．下列选项中，属于VisualBasic程序设计方法的是（）。
A．面向对象、顺序驱动B．面向对象、事件驱动
C．面向过程、事件驱动D．面向过程、顺序驱动
3．在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（）。
A．立即窗口B．属性窗口
C．代码窗口D．工程资源管理器窗口
4．后缀为.cls的文件表示VB的（ ）
A．窗体文件B．类模块文件
C．工程文件D．标准类模块文件
5．要在窗体Form1内显示“myfrm”，使用的语句是（）
A．Form.caption="myfrm"B．Form1.caption="myfrm"
C．Form1.print"myfrm"D．Form.print"myfrm"
6．将定时器的时间间隔设置为1秒，则定时器的Interval属性值应设为（）
A．1B．100
C．1000D．10
7．用于把字符串型数据转换为数值型数据的函数是（）。
A．ValB．StrC．AscD．Chr
8．表达式8+13Mod2*4+3（）。
A．8B．16C．10D．12
9．下列图形中用Shape控件不能绘制的有（）
A．矩形B．三角形
C．正方形D．椭圆
10．如果要改变窗体的标题，则需要设置的属性是（）
A、CaptionB、NameC、BackColorD、BorderStyle
11.下列赋值语句正确的是（）
A．B+C=AB．A=B+C
C．-B=AD．5=A+B
12．设a=”VisualBasic”，下面使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）
13．键盘事件的执行顺序是（ ）
A．KeyPress、KeyDown、KeyUp
B．KeyDown、KeyPress、KeyUp
C．KeyUp、KeyDown、KeyPress
D．KeyUp、KeyPress、KeyDown
14．如果准备向随机文件中写入数据，正确的语句是（）
A．Write#1,recB．Print#1,rec
C．Get#1,recD．Put#1,rec
15．Winsock控件的LocalIP属性的作用是（ ）
A．仅返回所用端口B．返回本地计算机的名称
C．返回或设置所用端口D．返回本地计算机的IP地址
16.要以读方式打开D盘的一个顺序文件Test.doc，应使用的语句是（）
A．Open"Test.doc"ForOutputAs#1
B．Open"D:
\Test.doc"ForInputAs#1
C．Open"D:
\Test.doc"ForOutputAs#1
D．Open"Test.doc"ForInputAs#1
15．Winsock控件的LocalIP属性的作用是（ ）
A．仅返回所用端口B．返回本地计算机的名称
C．返回或设置所用端口D．返回本地计算机的IP地址
18．修改控件属性，一般可以使用属性窗口，也可以通过（）为属性赋值。
A、命令B、对象C、方法D、代码
19．要在命令按纽上显示图形，应首先设置的属性是（）
A．EnabledB．Style
C．CaptionD．Icon
20．DimAbc（5）所定义的数组元素个数是（）
A、5B、6C、4D、10
21．在VB应用程序中，进行逐语句调试的按键是（ ）。
A．F9键 B．Ctrl+F9键
C．F8键 D．Ctrl+F8键
22．在窗体上画三个单选按纽，组成Command1的命令按纽，用于标识各个控件数组元素的参数是（）
A．TagB．IndexC．ListIndexD．Name
23．目录列表框的Path属性的作用是（）
A．显示当前驱动器或指定驱动器上的路径
B．显示当前驱动器或指定驱动器上的某目录下的文件名
C．显示根目录下的文件名
D．只显示当前路径下的文件
24．当Winsock控件处于关闭状态时，其State属性的值是（ ）
A．1 B．0
C．2 D．3
25．执行指令”Line（200,200）-step（500,500）”后，CurrentX=（）
A．500 B．200
C．300 D．700
26．不属于VB数据库引擎的是（ ）
A．ODBC B．BDE
C．Jet引擎 D．OLEDB
27．数学关系8≤x<30表示成正确的VB表达式为（）
A、8<=x<30B、8<=xAND<30
C、8<=xANDx<30 D、8<=xORx<30
28．能够实现“窗体总在最前端”界面效果的API函数是（ ）
A．SetWindowPosB．SetWindowAPI
C．PrivateD．Public
29．在VB中，Access数据库属于（ ）
A．本地数据库 B．外部数据库
C．远程数据库D．网络数据库
30．如果将文本框的（）属性设置为True，则运行时不能对文本框中的内容进行编辑。
A．LockedB．MultiLineC．TabStopD．Visible
31．下列控件中没有Caption属性的是（）
A．标签B．文本框C．框架D．命令按纽
32．数学式子Sin25写成VB表达式是（）。
A．Sin25B．Sin（25）C．SIN（25）D．Sin（25*3.14/180）
33．在一个语句行内写多条语句时，语句之间应该用（）分隔。
A．逗号B．分号C．顿号D．冒号
34．下列变量名中合法的是（）
A．IFB．7ABC．A[B]7D．AB_7
35．VisualBasic6.0工程资源管理器中的工程视图窗口以层次列表形式显示了组成这个工程的所有文件，以下不属于其列举显示范围的是（）。
A．窗体文件B．可执行文件
C．标准模块文件D．类模块文件
36.要退出For…Next循环，应使用的语句是（）。
A．ExitB．ExitForC．ContinueD．StopLoop
37．下列声明语句中存在可变类型变量的是（）
A．StaticaAsIntegerB．Dima,bAsInteger
C．DimaAsIntegerD．PublicaAsCurrency
38.在运行时，系统自动执行启动窗体的（）事件过程。
A、ClickB、GotFocus
C、LoadD、Unload
39.将文本框的ScrollBars属性设置为非零值，却没有效果，原因是（）。
A、文本框中没有内容
B、文本框的MultiLine属性值为True
C、文本框的MultiLine属性值为False
D、文本框的Locked属性值为True
40．以下关于定时器的说法，正确的是（）
A、可以设置定时器的Visible属性使其在窗体上可见
B、定时器只有一个Timer事件
C、可以根据需要在窗体上设置定时器的大小（高度和宽度）
D、如果定时器的Visible属性为False，则定时器无效。
41．要清除List列表框控件中的所有项目，可采用的方法是（）
A．EraseB．Clear
C．ClickD．Delete
42．MsgBox函数的返回值的类型是（ ）
A．整型B．字符串
C．逻辑型D．日期型
43．如果希望以模态方式显示窗体Form1，下列正确的语句是（）
A．Form1.Show0
B．Form1.Show
C．Form1.Show1
D．以下都不正确
44．可用来改变坐标度量单位的是（）
A．Drawstyle属性B．DrawWidth属性
C．ScaleMode属性D．Scale方法
45．无论何种控件，共同具有的属性是（）。
A．Text属性B．Name属性C．Caption属性D．Autosize属性
二、填空题
1．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用控件；若允许用户输入文本，则应使用控件。
2．数学表达式
写成等价的VisualBasic表达式为。
3．以下语句的输出结果是。
DimaAsInteger
a=7.84
Printa
4．删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为。
5．VB中的程序错误类型主要有编译错误、实时错误和三种。
6．执行指令Line（200,300）-（400,500）后，CurrentX=。
设CurrentX=50,CurrentY=100，执行指令“Line（100,20）-Step（300,500）”后，CurrentY=。
7．ADO模型中一般可通过Connection对象的方法执行增加、删除、修改SQL语句。
8．已知a=3,b=4,c=5,表达式a.>bandNotc>aOrc>bAndc9．日期表达式#2/24/02#-#2/12/02的值为。
10．为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为。
11．数学表达式cox2x+
写成等价的VisualBasic表达式为。
12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为。
13．VisualBasic一般用4种类型的文件保存，分别是扩展名为的窗体文件，扩展名为的标准模块文件，扩展名为的类模块文件和扩展名为
的工程文件。
14．VisualBasic程序开发有三种模式，即模式、模式和模式。
15．VisualBasic中变量依据其作用域不同可以分为过程级变量（局部变量）、窗体级变量和全局变量3类。
过程级变量是指在过程内部声明的变量，其作用域是。
窗体级变量是指在窗体或模块的代码声明段用Dim或Private声明的变量，其作用域是，全局变量在整个应用程序中有效，其作用域是。
16．在VisualBasic的转换函数中将数值转换为字符串的函数是；将数字字符串转换为数值的函数是；将字符转换为相应的ASCII码的函数是。
17．“公共对话框”控件提供了几种不同类型的对话框，可以通过属性或相应的方法确定对话框的类型。
“公共对话框”Name属性的默认名称。
18．将图片框PictureBox的AutoSize属性设置成时，图片框能自动调整大小，以适应其中的图片。
19．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。
通过
菜单菜单项，可将启动窗体设置为Form2。
在程序中若要显示Form1窗体，则执行语句。
20．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。
则X轴的正向向，Y轴的正向向。
21．Left（“abcd”,2）函数的返回值是;Right（“abcd”,2）函数的返回值是。
22．Vb应用程序与数据库进行通信的主要机制称为。
23．Winsock控件主要用来编制或协议的通话程序。
24．假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是
。
25．在VB中，将Foxpro称为，Access称为，SQLServer称为。
26．常用的VB网络编程控件主要有、、三种。
27．以（500,500）为圆心，以300为半径，用ForeColor颜色绘制一个圆形，其实现的代码是。
28．按文件的存取方式，可将文件分为顺序文件、和。
29．有变量定义语句“DimStr1,Str2AsString*10”，其中Str1变量的类型应为，其中Str2变量的类型应为。
30．VisualBasic提供的常见鼠标事件中，鼠标按下所引发的事件为；鼠标按下后松开时引发的事件为；移动鼠标光标所引发的事件为。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
PrivateSubForm_Click（）
DimsAsLong,fAsLong,nAsInteger,iAsInteger
n=3
Fori=1Ton
f=f+i
s=s+f
Next
Print"s=";s
EndSub
写出程序运行时单击窗体后，窗体Form1上的输出结果。
2．
PrivateSubCommand1_Click（）
x=0
DoWhilex<100
x=（x+2）*（x+4）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
Text3.Text=Val（Text1.Text）+Val（Text2.Text）
EndSub
文件框Text3的结果是：
3.
PrivateSubCommand1_Click（）
DimSum1AsInteger,Sum2AsInteger
Sum1=0:
Sum2=1
ForI=1To4
ForJ=1ToI
Sum2=Sum2*J
NextJ
Sum1=Sum1+Sum2
NextI
PrintSum1
EndSub
写出程序运行时单击命令按纽后，窗体上的输出结果。
4.PrivateSubCommand1_Click（）
DimxAsInteger
StaticsAsInteger
x=Val（InputBox（"请输入一个正整数="））
Ifx<6Then
s=s*x
Else
s=s+x
EndIf
Text1.Text="s="&Str（s）
EndSub
程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。
5．
PrivateSubForm_Click（）
DimA（1To3）AsString
DimcAsInteger,jAsInteger
A
（1）=“2”
A
（2）=“4”
A（3）=“6”
c=0
Forj=1to3
c=c+Val（A（j））
Nextj
Printc
EndSub
写出程序运行时单击窗体后，窗体Form1上的结果：
6．
PrivateSubCommand1_Click（）
DimA（2To7）AsInteger
DimbAsInteger
Forb=2To7
A（b）=b
Nextb
Text1.Text=A（b-2）
EndSub
程序运行后，单击命令按纽文本框Text1的结果是：
7．
Subtest（iAsInteger）
i=i+1
EndSub
PrivateSubForm_Click（）
DimxAsInteger
x=4
Print"x=";x
Calltest（x）
Print"x=";x
EndSub
8.
PrivateSubForm_Click（）
a=1:
b=1
Print"A=";a;",B=";b
Callmult（a）
Print"A=";a;",B=";b
EndSub
PrivateSubmult（x）
x=2*x
b=3*b
EndSub
9.
PrivateSubForm_Click（）
DimiAsInteger,aAsInteger
k=0
Fori=1To6
Ifi>3Then
a=a+4
Else
a=a+1
EndIf
Nexti
Printi,a
EndSub
写出程序运行时单击窗体后，Form1上的输出结果。
10.
SubChange（ByValxAsInteger,ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
Printx,y
Endsub
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger
a=3:
b=4
Changea,b
Printa,b
EndSub
写出程序运行时单击窗体后，Form1上的输出结果
11.
PrivateSubForm_Click（）
StaticSumAsInteger
I=1
Whilei<=3
Sum=Sum+I
I=I+1
Wend
PrintSum
EndSub
点击两次后，Sum的值应该是：
四、完善程序题
1．列表框应用程序。
要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图1所示。
图1
程序如下，请补充完整。
PrivateSubForm_Load（）
List1.AddItem"北京-上海"
List1.AddItem"北京-广州"
List1.AddItem"北京-四川"
List1.AddItem"北京-西安"
List1.AddItem"北京-哈尔滨"
List1.AddItem"北京-沈阳"
List1.AddItem"北京-长春"
EndSub
PrivateSubCommand1_Click（）
IfText1.Text<>""Then
[1]'将文本框中的内容加到列表框中
Text1.Text=""
[2]
MsgBox"请在文本框中输入信息！
"
EndIf
EndSub
PrivateSubCommand2_Click（）
[3]'删除选定的项目
EndSub
PrivateSubCommand3_Click（）
IfCommand3.Caption=[4]Then
Text1.Text=[5]
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=[6]
Command3.Caption="修改确认"
Else
List1.List（List1.ListIndex）=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=[7]
Command3.Caption="修改"
EndIf
EndSub
2．已知SQLServer数据库管理系统中存在名称为“学生”的数据库，其中的“students”数据表的结构及初始记录如表1所示。
要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。
程序的设计界面和运行结果如图2、图3所示。
表1
学号
姓名
专业
2004001
张红
软件专业
2004003
李强
会计专业
2004002
王丽
软件专业
图2
图3
程序如下，请补充完整。
'声明对象变量ADOcn，用于创建与数据库的连接
PrivateADOcnAsConnection
'ReadFromTable过程
PrivateSubReadFromTable（）
DimstrtmpAsString
DimADOrsAs[1]
ADOrs.ActiveConnection=ADOcn
ADOrs.Open[2]
MSFlexGrid1.Clear
MSFlexGrid1.Rows=0
MSFlexGrid1.Cols=3
strtmp="学号"+vbTab+"姓名"+vbTab+"专业"
MSFlexGrid1.AddItemstrtmp
DoWhileNotADOrs.EOF
strtmp=ADOrs（"学号"）+vbTab+ADOrs（"姓名"）+vbTab+ADOrs（"专业"）
MSFlexGrid1.AddItemstrtmp
[3]
Loop
MSFlexGrid1.FixedCols=0
MSFlexGrid1.FixedRows=1
EndSub
PrivateSubForm_Load（）
'定义数据库连接字符串
DimstrDBAsString
'用于连接SQLServer数据库，其中:
'Server为服务器名称
'UserID为登录账号
'Password为登录口令
'Database为具体的数据库名
strDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=学生"
'如果还没有建立与数据库的连接，则用以下代码创建。
IfADOcnIsNothingThen
SetADOcn=[4]
ADOcn.Open[5]'连接SQLServer数据库
EndIf
ReadFromTable'调用过程显示students表中的记录
EndSub
PrivateSubCommand1_Click（）
UnloadMe
EndSub
3．创建一个绘图程序。
当程序运行时，单击“绘图
升级会员 