高级语言程序设计VB开发.docx
《高级语言程序设计VB开发.docx》由会员分享，可在线阅读，更多相关《高级语言程序设计VB开发.docx（50页珍藏版）》请在冰点文库上搜索。
高级语言程序设计VB开发
实验一简单程序设计
【实验目的】
1.掌握VisualBasic6.0窗体的常用属性、常用事件和重要方法；
2.熟练掌握在窗体上创建标签、命令按钮、文本框等控件的方法；
3.掌握事件过程的代码编写，了解对象的概念；
4.熟悉VisualBasic的集成开发环境，基本掌握开发应用程序的一般步骤。
【实验内容与指导】
1．建立一个简单应用程序，具体要求为：
启动VB，创建一个新工程，窗体设置如下图所示：
要求：
在文本框内输入自己姓名，单击“完成”按钮，则在标签控件中显示相应输入。
各控件主要属性如表1-1：
表1-1控件属性表
控件
name（名字）
Caption
text
窗体
frmmain
MyFirstProgram
文本框
Text1
““
标签
Label1
请输入自己的姓名
命令按钮
Okbutton
完成
命令按钮
Exitbutton
退出
双击窗体或控件，打开代码窗口，在相应的事件过程中输入如下代码：
PrivateSubOkbutton_Click（）
Label1.Caption=Text1.Text
EndSub
PrivateSubExitbutton_Click（）
End
EndSub
PrivateSubForm_Load（）
Label1.Caption="请输入你的名字"
Text1.Text=""
EndSub
运行并测试程序。
按照自己的喜好，修改Text框和Label的各种属性，增强显示效果。
（该实验的工程文件保存为sy1_1.vbp，窗体文件为sy1_1.frm）。
2.建立一个简单应用程序，具体要求为：
（1）新建一个工程，利用“工程”菜单下的“添加窗体”命令，建立两个窗体，然后通过属性窗口设置窗体的相关属性，见表1-2。
表1-2对象属性设置
对象
属性
属性值
说明
Form1
Name
frmMain
窗体1的名称
Caption
主窗口
窗体1显示的标题
Left
2500
窗体1左上角垂直坐标
Top
3000
窗体1左上角水平坐标
Width
4500
窗体1的宽度
Height
5000
窗体1的高度
FontName
隶书
字体
FontSize
四号
字体大小
Form2
Name
frmLogin
窗体2的名称
Caption
登录窗口
窗体2的标题
Controlbox
False
控制菜单框
（2）在第二个窗体的Load事件中编写代码frmlogin.Print“欢迎学习VisualBasic程序设计教程！
”。
（3）在第二个窗体上画出两个标签（标题为用户名及密码）、两个文本框（第二个文本框通过属性设置，使输入的字符显示为*号）、三个命令按钮，标题分别为“清屏”，“显示密码”，“登录”。
当用鼠标单击第一个命令按钮时，执行语句frmLogin.Cls，清除窗体上内容。
当单击第二个命令按钮时，在输入密码的文本框中显示出刚输入的密码字符。
当单击第三个命令按钮时，第二个窗体消失同时第一个窗体出现。
（4）在第一个窗体上画三个命令按钮，标题分别为“按钮1”、“按钮2”及“结束”。
编写适当的事件，当单击“按钮1”时，按钮2移动过来覆盖按钮1；当单击“按钮2”时，则按钮1移动过来覆盖按钮2；当单击“结束”按钮时结束程序的运行。
具体操作步骤为：
（1）根据题目要求设置界面，设置各对象的属性。
（2）根据题目要求编写代码，参考代码如下：
第一个窗体中的代码
PrivateSubCommand1_Click（）′移动命令按钮2的代码
Command2.Left=Command1.Left
Command2.Top=Command1.Top
Command2.Width=Command1.Width
Command2.Height=Command1.Height
EndSub
PrivateSubCommand2_Click（）′用move的方法移动命令按钮1的代码
Command1.Move,Command2.Left,Command2.Top,Command2.Width,Command2.Height
Command2.Visible=False
EndSub
PrivateSubCommand3_Click（）′结束程序
End
EndSub
第二个窗体中各控件的代码
PrivateSubCommand1_Click（）′清屏
frmlogin.Cls
EndSub
PrivateSubCommand2_Click（）′原样显示密码
Text2.PasswordChar=""
EndSub
PrivateSubCommand3_Click（）′窗口1退出，窗口2出现
UnloadMe
frmmain.Show
EndSub
PrivateSubForm_Load（）′窗口载入事件
frmlogin.Print"欢迎使用VisualBasic编程！
″
EndSub
（3）单击“工程”菜单，选择“工程1属性”属性选项，弹出“工程属性”对话框，在启动对象下拉列表框中选择“frmLogin”，将窗体frmLogin设置为启动对象。
（4）按F5键或单击工具栏上的运行按钮开始运行程序，单击各个按钮，分别观察窗体的变化。
（5）保存程序。
①保存窗体文件。
单击工具栏上的停止按钮，回到VisualBasic，执行文件菜单中的“保存”命令，或者单击工具栏上的“保存工程”按钮，打开“工程另存为”对话框，该对话框用来保存窗体文件。
第一个窗体以frmMain.frm作为文件名存入D盘下，单击对话框中的“保存”按钮，即可把窗体文件存入磁盘。
第二个窗体保存为frmlogin.frm。
②保存工程文件。
保存完窗体文件后弹出一个对话框，此对话框窗口用来保存工程文件。
键入文件名为“sy1_2.vbp”。
3.新建一个工程，设置窗体的Height属性值为6000，Width属性值为9000。
在屏幕上居中显示。
在窗体上加入三个命令按钮，一个标签。
命令按钮相同大小、Caption属性分别为“显示”、“清除”、“退出”。
点击“显示”则在标签位置显示一行文本：
“欢迎学习VisualBasic程序设计！
”，点击“清除”则清除显示的内容。
点击“退出”则中止程序运行。
（该实验的工程文件保存为sy1_3.vbp，窗体文件为sy1_3.frm）。
请学生根据简单应用程序的基本操作步骤完成本题的有关操作。
4.在窗体中建立两个文本框（T1、T2），文本框的属性multiline设置为true，scrollbars设置为2-vertical，建立两个命令按钮（名称为C1、C2，标题为“复制”、“剪切”），程序运行时，在文本框T1中输入一段文字，并通过鼠标选择其中任意几个字符，单击“复制”按钮时，把在文本框T1中选择的字符串复制到文本框T2中显示；单击“剪切”按钮时，把在文本框T1中选择的字符串移动到文本框T2中显示。
（该实验的工程文件保存为sy1_4.vbp，窗体文件为sy1_4.frm）。
提示：
该实验主要是练习文本框的属性。
文本框中选定内容操作可以使用文本框的属性SelText（选定文本内容）、SelStart（选定文本起始点）、SelLength（选定文本长度）。
5．综合实例：
制作一应用程序，显示或隐藏图片。
图1综合实例
步骤：
1）启动VisualBasic6.0，新建一个“标准EXE”工程。
保存窗体文件为“f1.frm”，工程文件为“p1.vbp”。
2）调整窗体大小，在窗体上画出一个标签、一个文本框、一个图像框、两个命令按钮，对照图1中的设计界面，按表1设置各对象的属性。
表1
对象
属性名
属性值
窗体（form）
Name
myform
Caption
综合实例
标签（label）
Name
L1
Caption
显示或隐藏图片
Forecolor
&H00FF0000&
Font
三号字
文本框（textbox）
Name
T1
text
Font
三号字
命令按钮1
（commandbutton）
Name
cmdshow
Caption
显示
Font
三号字
命令按钮2
（commandbutton）
Name
cmdhide
Caption
隐藏（&H）
Font
三号字
图像框（（Image）
Name
Image1
picture
MyPet.bmp
3）编写事件过程
PrivateSubcmdhide_Click（）
Image1.Visible=False
T1.Text="单击显示按钮显示图片"
EndSub
PrivateSubcmdshow_Click（）
Image1.Visible=True
T1.Text="单击隐藏按钮隐藏图片"
EndSub
4）运行、调试并保存工程。
保存并运行程序（F5），单击“显示”按钮和“隐藏”按钮，查看运行效果。
【问题讨论】
1.简述创建VisualBasic应用程序的基本步骤。
2.窗体除了Click与Load事件外，还有哪些常用事件？
这些事件通常用于做什么？
3.窗体、命令按钮、文本框、标签这几个控件的属性有何异同？
实验二VisualBasic程序设计代码基础练习
【实验目的】
1.掌握VisualBasic的数据类型和变量定义方法；
2.正确使用VisualBasic的运算符和表达式；
3.掌握VisualBasic中数据输入、输出的方法；
4.掌握立即窗口的使用方法；
5.了解VisualBasic的常用函数，掌握部分常用标准函数的功能和用法。
【实验内容与指导】
1.利用“视图”菜单或利用快捷键Ctrl+G打开立即窗口。
2.数据类型及其定义练习。
（1）练习在“通用—声明”部分定义符号常量：
pi=3.14、e=2.718。
参考：
ConstpiAsSingle=3.14
ConsteAsSingle=2.718
（2）练习在“通用—声明”部分定义数值变量：
A1（整型），A2（长整型）、A3（单精度实型）、A4（双精度实型）。
参考：
DimA1AsInteger,A2AsLong,A3AsSingle,A4AsDouble
（3）练习在“通用—声明”部分定义字符型变量：
B1，B2，B3。
参考：
DimB1AsString,B2AsString,B3AsString
（4）练习在“通用—声明”部分定义布尔（逻辑）型变量：
C1，C2，C3。
参考：
DimC1AsBoolean,C2AsBoolean,C3AsBoolean
（5）练习在PrivateSubForm_Click（）—EndSub过程中定义下列变量：
A—整型，B—长整型，C—单精度实型，D—双精度实型，E—字符型。
参考：
PrivateSubForm_Click（）
DimAAsInteger
DimBAsLong
DimCAsSingle,DAsDouble,EAsString
EndSub
（6）练习在标准模块中定义全局变量：
参考：
单击“工程|添加模块”命令，在“通用声明段”中输入以下代码：
PublicStuNameAsString*8,StuAgeAsSingle,StuSexAsBoolean
（7）设计程序，检测变量的数值范围。
DimaAsInteger,bAsInteger
PrivateSubForm_Click（）
a=32767
b=32768
Printa
Printb
EndSub
请事先判断上述代码的执行结果，然后再进行执行，若执行结果有错，请分析产生错误的原因，并进行更正。
参考：
出错：
溢出。
将b的值改为比32768小的整数即可。
（8）设计一个小程序，将八进制数123和十六进制数AAA转换为十进制数，点击窗体后即显示结果。
参考程序为：
DimaAsLong,bAsLong
PrivateSubForm_Click（）
a=&O123&
b=&HAAA&
Print"八进制数123是十进制数的";a
Print"十六进制数AAA是十进制数的";b
Print
EndSub
3.运算符、表达式和常用函数练习。
要求：
先手工求出题中表达式的值，然后在立即窗口中使用Print方法计算和输出题中各式的值。
（1）利用下列式子测试各种运算符的功能。
①10\4.5②99mod2③5^3④4^（-1/2）
⑤″Visual″&″Basic″⑥34\4*4.0^3/1.6⑦65\3Mod2.6*Fix（3.7）
⑧″abc″+″345″&″257″⑨279.37+″0.63″=280⑩#2006-07-1#+31
11″china″>=″canada″12″abc″<=″abc″&″123″
（2）设x,y,z均为布尔型变量，其值分别为：
x=Truey=Truez=False求下列表达式的值：
①xOryAndz②NotxAndNoty③xXoryOrz④NotxEqvNoty
⑤（NotyOrx）And（yOrz）
（3）利用下列函数测试常用标准函数的功能。
①Int（-1234.5678）②Fix（1234.5678）
③Val（″12.34″）④Cint（1234.5678）
⑤Abs（-100）⑥Sgn（-100）
⑦Sqr（sqr（16））⑧Left（″VisualBasic6.0″,6）
⑨Mid（″VisualBasic6.0″,8,5）⑩InStr（1,″VisualBasic6.0″,″Basic″）
11String（3,″$″）12Int（（100*Rnd）+1）
13sgn（-9）+val（″123.34+x″）
（4）设x=5678.686y=-526.138z=3.14159*60/180
请在立即窗口中检验以下函数的输出结果。
①Int（x）②Fix（x）③Int（y）④Fix（y）⑤Cint（x）
⑥Hex$（Fix（x））⑦Abs（y）⑧round（y,1）⑨Sin（z）⑩Cos（z）
（5）验证下列格式化输出语句
DimaAsSingle,bAsSingle
a=123456789
b=125/240
PrintFormat$（a,″0000000000″）
PrintFormat$（a,″###,###,###.00″）
PrintFormat$（b,″%″）
PrintFormat$（a,″-#########″）
PrintFormat$（2345,″####E+5″）
【问题讨论】
1.VB提供了哪些标准数据类型？
2.VB中如何识别日期常数？
VB能否识别“#2006年6月16日#”这样一个日期常数？
3.逻辑型数据和其他的数据类型如何进行转换（例如其他的数据类型转换为Boolean类型时，0会转换成什么逻辑值）。
实验三VisualBasic的控制结构练习
【实验目的】
1.学习VisualBasic语言中数据输入、输出方法，掌握基本的输入输出函数和语句；
2.学会设计简单的顺序结构程序；
3．掌握选择语句的使用；
4．掌握循环语句的使用。
【实验内容与指导】
1.在窗体上建立两个名称分别为C1和C2，标题分别为“输入”和“计算”的命令按钮，要求程序运行后，如果单击“输入”按钮，可通过输入对话框输入两个数（分别是64和96），分别存入整形变量a，b中，如果单击“计算”按钮，则对a，b变量进行加法运算，并把计算结果在消息框中显示出来（该实验的工程文件保存为sy3-1.vbp，窗体文件为sy3-1.frm）。
提示：
该实验主要练习InputBox、MsgBox的两种使用方法，一是函数调用方式，二是过程调用方式。
InputBox功能是在一对话框中显示提示，等待用户输入正文或按下按钮，返回包含文本框内容的字符串。
MsgBox功能是在对话框中显示消息，等待用户单击按钮，并返回一个整型数据，告诉用户单击了哪一个按钮。
实验步骤：
（1）根据题目要求建立用户界面和设置对象的相应属性。
（2）根据题目要求编写如下代码：
DimaAsInteger,bAsInteger
PrivateSubC1_Click（）′利用输入对话框输入数据
a=Val（InputBox（"请输入第一个数","输入"））
Form1.Print"a=";a
b=Val（InputBox（"请输入第二个数","输入"））
Form1.Print"b=";b
EndSub
PrivateSubC2_Click（）′利用消息框显示结果
MsgBoxa+b,vbOKOnly,"显示a+b的结果"
EndSub
（3）运行程序。
2．利用选择语句计算以下y值。
（该实验的工程文件保存为sy3-2.vbp，窗体文件为sy3-2.frm）。
实验步骤：
（1）根据题目要求建立用户界面，设计界面参考图3-1所示，设置对象的相应属性。
图3-1
（2）根据题目要求编写代码，可参考如下代码：
PrivateSubCommand1_Click（）
X=Val（Text1.Text）
IfX<=0Then
Y=Abs（X）
Else
Y=Log（X）
EndIf
Label3.Caption=Y
EndSub
（3）运行程序。
3．利用循环语句求1+2+…+N的值，N的值利用文本框输入。
（该实验的工程文件保存为sy3-3.vbp，窗体文件为sy3-3.frm）。
实验步骤：
（1）根据题目要求建立用户界面，设计界面参考图3-1所示，设置对象的相应属性。
（2）根据题目要求编写代码，可参考如下代码：
PrivateSubCommand1_Click（）
DimNAsInteger,IAsInteger,SumAsInteger
N=Val（Text1.Text）
Sum=0
ForI=1ToN
Sum=Sum+I
NextI
Label1.Caption=Sum
EndSub
PrivateSubCommand2_Click（）
DimNAsInteger,IAsInteger,SumAsInteger
N=Val（Text1.Text）
Sum=0
I=1
DoWhileI<=N
Sum=Sum+I
I=I+1
Loop
Label1.Caption=Sum
EndSub
PrivateSubCommand3_Click（）
DimNAsInteger,IAsInteger,SumAsInteger
N=Val（Text1.Text）
Sum=0
I=1
DoUntilI>N
Sum=Sum+I
I=I+1
Loop
Label1.Caption=Sum
EndSub
PrivateSubCommand4_Click（）
DimNAsInteger,IAsInteger,SumAsInteger
N=Val（Text1.Text）
Sum=0
I=1
Do
Sum=Sum+I
I=I+1
LoopWhileI<=N
Label1.Caption=Sum
EndSub
PrivateSubCommand5_Click（）
DimNAsInteger,IAsInteger,SumAsInteger
N=Val（Text1.Text）
Sum=0
I=1
Do
Sum=Sum+I
I=I+1
LoopUntilI>N
Label1.Caption=Sum
EndSub
（3）运行程序。
实验四数组的应用
【实验目的】
1.掌握数组的声明和数组元素的引用；
2.掌握数组的初始化、输入/输出及静态数组、动态数组、控件数组的使用方法；
【实验内容与指导】
1、建立1个命令按钮控件数组command1（0）~command1（5），包含6个命令按钮。
画一个图片框控件picture1，在图片框中画一个图形控件shape1。
要求：
单击命令按钮，决定为图形设置相应的形状，如图4-1所示。
程序保存：
窗体文件为sy4-1.frm，工程文件名为sy4-1.vbp。
图4-1
提示：
该实验使用到控件数组。
控件数组是将同一类型的控件设置相同的名称，利用Index来进行区别。
本次实验中控件数组的类型是命令按钮，名称都设为Command1。
实验步骤如下：
（1）按照实验要求建立工程文件及窗体，在窗体上画出6个命令按钮控件，1个图片框控件，1个shape控件。
（2）设置相应控件的属性，特别注意命令按钮的名称属性设置，即其要使用相同的名称。
（3）实验参考代码如下：
PrivateSubCommand1_Click（IndexAsInteger）
Shape1.shape=index
EndSub
（4）运行程序，生成可执行文件sy4-1.exe。
2、利用Inputbox函数输入5个数，请正序输出和倒序输出。
运行结果如图4-2所示。
程序保存：
窗体文件为sy4-2.frm，工程文件名为sy4-2.vbp。
图4-2
（1）图4-2
（2）
请将代码写到以下空白处。
PrivateSubCommand1_Click（）
EndSub
3、利用Inputbox函数输入N个数，请正序输出和倒序输出。
N由文本框输入。
运行结果如图4-3所示。
程序保存：
窗体文件为sy4-3.frm，工程文件名为sy4-3.vbp。
图4-3
（1）图4-3
（2）
请将代码写到以下空白处。
Priva
升级会员 