VB练习题1.docx
《VB练习题1.docx》由会员分享，可在线阅读，更多相关《VB练习题1.docx（16页珍藏版）》请在冰豆网上搜索。
VB练习题1
Ⅱ综合练习题
一、单项选择题（每小题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
升级会员 