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()
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控件上画出[-,]即[-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)。
以厘米为单位,以坐标原点为圆心,以窗体宽度与高度中最小值的1/3为半径画圆和椭圆,程序运行界面如图2所示。
图2
VisualBasic程序设计期末综合练习题一答案
一、单项选择题
1.C2.C3.C4.B5.C6.B7.D8.B9.B10.C11.D12.B13.D14.C15.A16.A17.A18.D19.D20.B
21.B22.B23.C24.C25.D
二、填空题(每空1分)
1.10^(1/2)*cos(50*3.14/180),或者Sqr(10)*cos(50*3.14/180)
2.Kill"C:
\TEMP\*.tmp"
3.设计运行中断
4.400520
5.Execute
6.True
7.Picture1.Picture=LoadPrcture("picturefile.jpg")
8.DimA(0To5,-2To5)AsString
9..frm.bas.cls.vbp
10.Ture
11.右上
12.abcd
13.数据引擎
14.TCP/IPUDP
15.DimADOcnAsConnection
16.外部数据库本地数据库远程数据库
17.WinsockInternetTransferWebBrowser
18.Circle(600,600),800
19.Dir1.Path=Drive