VB练习题Word格式.docx
《VB练习题Word格式.docx》由会员分享,可在线阅读,更多相关《VB练习题Word格式.docx(20页珍藏版)》请在冰豆网上搜索。
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)
6.
a=1:
b=1
A="
a;
"
B="
b
Callmult(a)
PrivateSubmult(x)
x=3+x
b=4+b
7.
DimiAsInteger,aAsInteger
k=0
Fori=1To6
Ifi>
3Then
a=a+5
a=a+2
Nexti
Printi,a
写出程序运行时单击窗体后,Form1上的输出结果。
8.
SubChange(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
Printx,y
Endsub
DimaAsInteger,bAsInteger
a=3:
b=4
Changea,b
Printa,b
写出程序运行时单击窗体后,Form1上的输出结果
四、完善程序题
1.列表框应用程序。
要求从文本框中输入课程名称,然后按“添加”按钮,把姓名添加到列表框中;
当选择列表框中某一项后,按“删除”按钮,则从列表框中删除该项;
当选择列表框中某一项后,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图1所示。
图1
程序如下,请补充完整。
PrivateSubForm_Load()
List1.AddItem"
北京-上海"
北京-广州"
北京-四川"
北京-西安"
北京-哈尔滨"
北京-沈阳"
北京-长春"
IfText1.Text<
>
"
Then
[1]'
将文本框中的内容加到列表框中
[2]
MsgBox"
请在文本框中输入信息!
PrivateSubCommand2_Click()
[3]'
删除选定的项目
PrivateSubCommand3_Click()
IfCommand3.Caption=[4]Then
Text1.Text=[5]
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=[6]
Command3.Caption="
修改确认"
List1.List(List1.ListIndex)=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=[7]
修改"
2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后,驱动器列表框Drive1的默认驱动器设置为D盘,选择File1中所列的图片文件(*.bmp,*.gif和*.jpg),则相应的图片显示在图片框Picture1中,文件的路径显示在文本框中。
程序运行结果如图2所示。
图2
程序代码如下,请补充完整
Drive1.Drive=[1]
File1.Pattern="
*.bmp;
*.gif;
*.jpg"
PrivateSubDrive1_change()
Dir1.Path=[2]
Text1.Text=Drive1.Drive
[3]
Text1.Text=[4]
PrivateSubFile1_click()
Picture1.[5]=LoadPicture(File1.Path+"
\"
+File1.FileName)
FileName=File1.Path+"
+File1.FileName
Text1.Text=FileName
3.使用顺序文件读写方式编写一个简单的记事本应用程序,其运行界面如图3所示。
基本逻辑是:
假设在以D盘的根目录下有一个名为exam.txt的文本文件。
当点击“打开”按钮(Command1)时,程序将exam.Txt文件中的内容显示在文本框(Text1)中,当点击“新建”按钮(Command2)时,清空Text1中的内容;
用户可以在Text1中进行编辑操作,当点击“保存”按钮(Command3)时,将Text1中的内容保存在exam.txt文件中。
当点击“退出”按钮(Command4)时关闭本窗体。
图3
DimAAsString
Text1="
Open[1]
DoWhileNotEOF
(1)
Input#1,A
Text1=Text1+[2]
[4]
Open"
C:
\F1.Txt"
[5]
Close#1
PrivateSubCommand4_Click()
UnloadMe
4.已知存在一名为“学生”的SQLServer数据库,其中的“students”数据表用来存储学生的基本情况信息,包括学号、姓名、籍贯、性别。
请编写一个简单的应用程序,向students表中添加学生记录。
程序的基本逻辑是:
当窗体被加载时,程序联接SQLServer数据库;
当点击“增加”按钮时,首先查询学号是否重复,如果不重复则向students表中添加学生记录。
其运行界面如图4所示。
图4
'
声明对象变量ADOcn,用于创建与数据库的连接
PrivateADOcnAsConnection
连接SQLServer数据库
DimstrDBAsString
strDB="
Provider=SQLOLEDB;
LSF;
UserID=sa;
Password=;
Database=[1]"
IfADOcnIsNothingThen
SetADOcn=[2]
ADOcn.OpenstrDB
增加学生记录
DimstrSQLAsString
DimADOrsAs[3]Recordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“
IfNot[4]Then
MsgBox“你输入的学号已存在,不能新增加!
”
StrSQL=”InsertIntostudents(学号,姓名,,籍贯,性别)
StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,'
“+text3+”‘,'
“+text4+”‘)”
ADOrs.Execute[5]
MsgBox“添加成功,请继续!
5.创建一个绘图程序。
当程序运行时,单击“绘图“按钮,在窗体的Picture控件上画出[-p,p]即[-3.14,3.14]区间的余弦曲线。
要求将图片框的坐标系定义为左上角为(-4,2),右下角为(4,-2),并在图片框中画出坐标的x轴和y轴。
程序运行界面如图5所示。
图5
定义窗体坐标
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.Print[3]'
标记“-π”
Picture1.CurrentX=3.3
π"
Picture1.CurrentY=0.9
1"
标记“1”
Picture1.CurrentY=-0.8
-1"
标记“-1”
Fori=[4]
End
五、编写程序题
1.请根据下列描述编写购物优惠程序。
某商场为了加速促成商品流通,采用购物打折的优惠办法,每位顾客一次购物
(1)在100元以上者,按九五折优惠;
(2)在200元以上者,按九折优惠;
在窗体上添加两个文本框和一个命令按钮,要求在Text1中输入购物商品总金额,单击命令按钮,在Text2中输出优惠价。
程序运行结果如图1所示。
程序运行界面如图6所示。
图6
6.窗体的左上角坐标(-8,6),右下角坐标为(8,-6)。
以厘米为单位,以坐标原点为圆心,以窗体宽度与高度中最小