VB练习题1文档格式.docx
《VB练习题1文档格式.docx》由会员分享,可在线阅读,更多相关《VB练习题1文档格式.docx(16页珍藏版)》请在冰豆网上搜索。
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.Open"
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"
C.ADOrs.Execute"
D.ADOrs.Select"
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>
bAndc<
a+b的值是。
7.为了在运行时把当前路径下的图形文件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()
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)
文件框Text3的结果是:
2.PrivateSubCommand1_Click()
DimxAsInteger
StaticsAsInteger
x=Val(InputBox("
请输入一个正整数="
))
Ifx<
5Then
s=s*x
Else
s=s+x
EndIf
Text1.Text="
s="
&
Str(s)
程序运行时连续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
写出程序运行时单击窗体后,窗体Form1上的结果:
4.
DimA(2To7)AsInteger
DimbAsInteger
Forb=2To7
A(b)=b
Nextb
Text1.Text=A(b-2)
程序运行后,单击命令按纽文本框Text1的结果是:
5.
Subtest(iAsInteger)
i=i+2
x=6
Print"
x="
;
x
Calltest(x