VB练习题.docx
《VB练习题.docx》由会员分享，可在线阅读，更多相关《VB练习题.docx（20页珍藏版）》请在冰豆网上搜索。
VB练习题
Ⅱ综合练习题
一、单项选择题（每小题2分）
1．在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（）。
A．立即窗口B．属性窗口
C．代码窗口D．工程资源管理器窗口
2．后缀为.vbp的文件表示VB的（ ）
A．窗体文件B．类模块文件
C．工程文件D．标准类模块文件
3．要在窗体Form1内显示“myfrm”，使用的语句是（）
A．Form.caption="myfrm"B．Form1.caption="myfrm"
C．Form1.print"myfrm"D．Form.print"myfrm"
4．表达式8+13Mod2*4+3（）。
A．8B．16C．15D．12
5．文本框没有（）属性
A、TextB、NameC、CaptionD、BorderStyle
6.下列赋值语句正确的是（）
A．B+C=AB．A=B+C
C．-B=AD．5=A+B
7．如果准备向随机文件中写入数据，正确的语句是（）
A．Write#1,recB．Print#1,rec
C．Get#1,recD．Put#1,rec
8．Winsock控件的LocalHostName属性的作用是（ ）
A．仅返回所用端口B．返回本地计算机的名称
C．返回或设置所用端口D．返回本地计算机的IP地址
9.要以读方式打开D盘的一个顺序文件Test.doc，应使用的语句是（）B
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
10．DimAbc（2,3）所定义的数组元素个数是（）
A、6B、5C、12D、9
11．在VisualBasic中，默认的数据类型是（）
A．IntegerB．DoubleC．CurrencyD．Variant
12．当Winsock控件处于关闭状态时，其State属性的值是（ ）
A．1B．0
C．2D．3
13．执行指令”Line（200,200）-step（500,500）”后，CurrentX=（）
A．500B．200
C．300D．700
14．不属于VB数据库引擎的是（ ）
A．ODBCB．Jet引擎
C．BDED．OLEDB
15．全局变量必须在（）中定义
A、标准模块B、窗体模块
C、类模块D、任意模块
16．改变驱动器列表框的Drive属性值，将激活（ ）事件。
A．ChangeB．Scoll
C．KeyDownD．KeyUp
17．如果将文本框的（）属性设置为True，则运行时不能对文本框中的内容进行编辑。
A．LockedB．MultiLineC．TabStopD．Visible
18．数学式子Sin25°写成VB表达式是（）。
A．Sin25B．Sin（25）C．SIN（25°）D．Sin（25*3.14/180）
19．下列变量名中合法的是（）
A．IFB．7ABC．A[B]7D．AB_7
20.要退出For…Next循环，应使用的语句是（）。
A．ExitB．ExitForC．ContinueD．StopLoop
21.在下列选项中，不能将图像装入图片框和图像框的是（）
A．在界面设计时，通过Picture属性装入
B．在界面设计时，手工在图像框和图片框中绘制图形
C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入
22．下面选项中，能绘制填充矩形的语句是（）
A．Line（200,200）-（500,500）,B
B．Line（200,200）-（500,500）,,BF
C．Line（200,200）-（500,500）,BF
D．Line（200,200）-（500,500）
23.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（）
A．ADOrs.New"Select*FromTabel"
B．ADOrs.Open"Select*FromTabel"
C．ADOrs.Execute"Select*FromTabel"
D．ADOrs.Select"Select*FromTabel"
24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（）
A．在Dir1_Change（）事件中加入代码Dir1.Path=Drive1.Drive
B．在Dir1_Channge（）事件中加入代码Drive1.Drive=Dir1.Path
C．在Dirve1_Channge（）事件中加入代码Dir1.Path=Drive1.Drive
D．在Dirve1_Channge（）事件中加入代码Drive1.Drive=Dir1.Path
25.VB程序中通常不会产生错误提示的（ ）。
A．编译错误 B．实时错误
C．运行时错误 D．逻辑错误
二、填空题（每空1分）
1．数学表达式
写成等价的VisualBasic表达式为。
2．删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为。
3．VisualBasic程序开发有三种模式，即模式、模式和模式。
4．执行指令Line（200,300）-（400,500）后，CurrentX=。
设CurrentX=50,CurrentY=100，执行指令“Line（100,20）-Step（300,500）”后，CurrentY=。
5．ADO数据模型中一般可通过Connection对象的方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
6．已知a=3,b=4,c=5,表达式a.>bandNotc>aOrc>bAndc7．为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为。
8．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为。
9．VisualBasic一般用4种类型的文件保存，分别是扩展名为的窗体文件，扩展名为的标准模块文件，扩展名为的类模块文件和扩展名为
的工程文件。
10．将图片框PictureBox的AutoSize属性设置成时，图片框能自动调整大小，以适应其中的图片。
11．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。
则X轴的正向向，Y轴的正向向。
12．Left（“abcd”,2）函数的返回值是;Right（“abcd”,2）函数的返回值是。
13．Vb应用程序与数据库进行通信的主要机制称为。
14．Winsock控件主要用来编制或协议的通话程序。
15．假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是
。
16．在VB中，将Foxpro称为，Access称为，SQLServer称为。
17．常用的VB网络编程控件主要有、、三种。
18．以（600,600）为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是。
19．以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。
将程序段补充完整。
PrivateSubDrive1_Change（）
EndSub
PrivateSubDir1_Change（）
EndSub
20.在VisualBasic程序中实现复制文件”d:
\text.doc”到e:
盘根目录下的语句为
。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
PrivateSubCommand1_Click（）
x=0
DoWhilex<20
x=（x+1）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
Text3.Text=Val（Text1.Text）+Val（Text2.Text）
EndSub
文件框Text3的结果是：
2.PrivateSubCommand1_Click（）
DimxAsInteger
StaticsAsInteger
x=Val（InputBox（"请输入一个正整数="））
Ifx<5Then
s=s*x
Else
s=s+x
EndIf
Text1.Text="s="&Str（s）
EndSub
程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。
3．
PrivateSubForm_Click（）
DimA（1To3）AsString
DimcAsInteger,jAsInteger
A
（1）=“3”
A
（2）=“6”
A（3）=“9”
c=0
Forj=1to3
c=c+Val（A（j））
Nextj
Printc
EndSub
写出程序运行时单击窗体后，窗体Form1上的结果：
4．
PrivateSubCommand1_Click（）
DimA（2To7）AsInteger
DimbAsInteger
Forb=2To7
A（b）=b
Nextb
Text1.Text=A（b-2）
EndSub
程序运行后，单击命令按纽文本框Text1的结果是：
5．
Subtest（iAsInteger）
i=i+2
EndSub
PrivateSubForm_Click（）
DimxAsInteger
x=6
Print"x=";x
Calltest（x）
Print"x=";x
EndSub
6.
PrivateSubForm_Click（）
a=1:
b=1
Print"A=";a;",B=";b
Callmult（a）
Print"A=";a;",B=";b
EndSub
PrivateSubmult（x）
x=3+x
b=4+b
EndSub
7.
PrivateSubForm_Click（）
DimiAsInteger,aAsInteger
k=0
Fori=1To6
Ifi>3Then
a=a+5
Else
a=a+2
EndIf
Nexti
Printi,a
EndSub
写出程序运行时单击窗体后，Form1上的输出结果。
8.
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上的输出结果
四、完善程序题
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．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。
程序运行结果如图2所示。
图2
程序代码如下，请补充完整
PrivateSubForm_Load（）
Drive1.Drive=[1]
File1.Pattern="*.bmp;*.gif;*.jpg"
EndSub
PrivateSubDrive1_change（）
Dir1.Path=[2]
Text1.Text=Drive1.Drive
EndSub
PrivateSubDir1_Change（）
[3]
Text1.Text=[4]
EndSub
PrivateSubFile1_click（）
Picture1.[5]=LoadPicture（File1.Path+"\"+File1.FileName）
FileName=File1.Path+"\"+File1.FileName
Text1.Text=FileName
EndSub
3．使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。
基本逻辑是：
假设在以D盘的根目录下有一个名为exam.txt的文本文件。
当点击“打开”按钮（Command1）时，程序将exam.Txt文件中的内容显示在文本框（Text1）中，当点击“新建”按钮（Command2）时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击“保存”按钮（Command3）时，将Text1中的内容保存在exam.txt文件中。
当点击“退出”按钮（Command4）时关闭本窗体。
图3
程序代码如下，请补充完整
PrivateSubCommand1_Click（）
DimAAsString
Text1=""
Open[1]
DoWhileNotEOF
（1）
Input#1,A
Text1=Text1+[2]
Loop
[3]
EndSub
PrivateSubCommand2_Click（）
[4]
EndSub
PrivateSubCommand3_Click（）
Open"C:
\F1.Txt"ForOutputAs#1
[5]
Close#1
EndSub
PrivateSubCommand4_Click（）
UnloadMe
EndSub
4．已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。
请编写一个简单的应用程序，向students表中添加学生记录。
程序的基本逻辑是：
当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。
其运行界面如图4所示。
图4
程序如下，请补充完整。
'声明对象变量ADOcn，用于创建与数据库的连接
PrivateADOcnAsConnection
PrivateSubForm_Load（）
'连接SQLServer数据库
DimstrDBAsString
strDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]"
IfADOcnIsNothingThen
SetADOcn=[2]
ADOcn.OpenstrDB
EndIf
EndSub
PrivateSubCommand1_Click（）
'增加学生记录
DimstrSQLAsString
DimADOrsAs[3]Recordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“
IfNot[4]Then
MsgBox“你输入的学号已存在，不能新增加！
”
Else
StrSQL=”InsertIntostudents（学号,姓名,,籍贯,性别）
StrSQL=strSQL+Values（”+”‘“+text1+”‘,‘“+text2+”‘,'“+text3+”‘,'“+text4+”‘）”
ADOrs.Execute[5]
MsgBox“添加成功，请继续！
”
EndIf
PrivateSubCommand2_Click（）
UnloadMe
EndSub
5．创建一个绘图程序。
当程序运行时，单击“绘图“按钮，在窗体的Picture控件上画出[-p，p]即[-3.14,3.14]区间的余弦曲线。
要求将图片框的坐标系定义为左上角为（-4，2），右下角为（4，-2），并在图片框中画出坐标的x轴和y轴。
程序运行界面如图5所示。
图5
PrivateSubCommand1_Click（）
[1]'定义窗体坐标
Picture1.Line（-4,0）-（4,0）'画x轴
[2]'画y轴
Picture1.CurrentX=0.2
Picture1.CurrentY=-0.1
Picture1.Print"0"'标记原点
Picture1.CurrentX=-3.2
Picture1.CurrentY=-0.1
Picture1.Print[3]'标记“-π”
Picture1.CurrentX=3.3
Picture1.CurrentY=-0.1
Picture1.Print"π"
Picture1.CurrentX=0.2
Picture1.CurrentY=0.9
Picture1.Print"1"'标记“1”
Picture1.CurrentX=0.2
Picture1.CurrentY=-0.8
Picture1.Print"-1"'标记“-1”
Fori=[4]
[5]
Nexti
EndSub
PrivateSubCommand2_Click（）
End
EndSub
五、编写程序题
1．请根据下列描述编写购物优惠程序。
某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物
（1）在100元以上者，按九五折优惠；
（2）在200元以上者，按九折优惠；
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。
程序运行结果如图1所示。
程序运行界面如图6所示。
图6
6．窗体的左上角坐标（－8，6），右下角坐标为（8，－6）。
以厘米为单位，以坐标原点为圆心，以窗体宽度与高度中最小
升级会员 