基于Visual Basic 60可视化程序设计上机指导.docx
- 文档编号:6631853
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:29
- 大小:154.86KB
基于Visual Basic 60可视化程序设计上机指导.docx
《基于Visual Basic 60可视化程序设计上机指导.docx》由会员分享,可在线阅读,更多相关《基于Visual Basic 60可视化程序设计上机指导.docx(29页珍藏版)》请在冰豆网上搜索。
基于VisualBasic60可视化程序设计上机指导
基于VisualBasic6.0可视化程序设计上机指导
第一章VisualBasic基础
上机实验:
认识VB界面,设计一个简单应用程序。
实验目的:
掌握VisualBasic的启动与退出操作,熟悉应用程序的建立步骤以及工程的保存方法,能生成一个可执行文件。
实验内容:
1.VisualBasic的启动。
请遵循如下步骤:
1、单击“开始”按钮。
2、选择“程序”选项。
这将显示更多的选项。
3、从显示的选项中选择“MicrosoftVisualBasic6.0”选项。
此时会显示一个选项列表。
4、从这些显示的选项中单击“MicrosoftVisualBasic6.0”选项。
打开的VisualBasic屏幕如图1.11所示。
2.VisualBasic退出。
有如下几种方法:
方法一:
单击窗口右上角的关闭按钮。
方法二:
单击“文件”菜单,选择“退出”选项。
方法三:
按快捷键Alt+Q键。
方法四:
按快捷键Alt+F4键。
3.设计一个简单应用程序,在窗体上添加一个文本框,单击窗体后,在文本框中显示“欢迎使用VisualBasic”
具体步骤如下:
1.在工具箱(ToolBox)中双击“TextBox(文本框)”控件(工具箱中第二行的第二个控件)。
2.在“Form1”中单击并拖动“TextBox”,把它放置到窗体中的适当位置,“TextBox”控件上有一个缺省的文字“Text1”,如图1.31所示。
图1.31
3.使用“属性(Properties)”窗口,删除分配给该控件Text属性的缺省值“Text1”,使其变为空白,参见图1.32。
图1.32
4.各对象的属性设置如表1.10所示。
表1.10属性设置
对象
属性
设置
窗体
(名称)
Form1
Caption
一个简单应用程序
文本框
(名称)
Text1
Text
空白
Multiline
True
5.参考代码如下:
窗体的单击事件,用于实现文本框中内容的显示。
PrivateSubForm_Click()
Text1.Text="欢迎使用VisualBasic"
EndSub
运行结果如图1.33所示。
图1.33
6.保存工程。
1)选择主菜单选项“文件(F)”。
2)选择子选项“保存工程(V)”,这将调用“文件另存为”对话框,如图1.34所示。
图1.34
VisualBasic首先提示我们保存窗体。
参见图1.34。
3)在标签“文件名(N)”中指定form1.frm作为窗体名字,以当前工作目录为文件保存目录,窗体使用的缺省扩展名为frm。
4)单击“保存(S)”按钮,这将调用“工程另存为”对话框。
5)指定form1.vbp作为当前工作目录下工程的名字,工程文件的缺省扩展名为vbp。
参见图1.35。
图1.35
6)单击“保存(S)”按钮(在VisualBasic中,窗体和工程分别作为单独的文件存储)。
7.运行工程。
让我们运行一下应用程序,看看你的代码操作。
1)选择菜单选项“运行(R)”。
2)单击子选项“启动(S)”。
这将运行应用程序。
当应用程序在屏幕上运行时,他将如图1.32所示。
3)单击窗体,文本框中将显示“欢迎使用VisualBasic”,如图1.33所示。
8.生成可执行文件。
生成可执行文件之前,要确保整个应用程序的正确性。
因为,一旦生成可执行文件之后,应用程序便不可修改,如果出现错误,需重新再生成一个可执行文件。
1)选择菜单选项“文件(F)”。
2)单击子选项“生成工程1.exe(K)…”,这将调用“生成工程”对话框,如图1.36所示。
图1.36
3)在标签“文件名(N)”中指定“工程1.exe”作为可执行默认文件名,以当前工作目录为文件保存目录,窗体使用的缺省扩展名为exe。
4)单击“确定”按钮,即可立即生成该应用程序的可执行文件。
第二章窗体与基本控件
上机实验:
窗体、命令按钮、文本框、标签框的应用
实验目的:
掌握窗体、命令按钮及文本框的常用属性、事件和方法,熟练这些控件的综合应用,并能实现相应的功能。
实验内容:
1.设计一个程序,在执行时由用户从键盘上键入两个操作数和运算符,然后根据输入的运算符来改变标签框的内容,单击“=”命令按钮,将根据运算符进行相应的运算并将运算结果显示在“运算结果”标签框中。
其界面设计如图2.25所示。
图2.25
其属性设置如表2.8所示。
表2.8属性设置
对象
属性
设置
窗体
(名称)
Form1
Caption
控件综合使用
标签框1
(名称)
Label1
Caption
操作数
AutoSize
True
Alignment
2-center
标签框2
(名称)
Label2
AutoSize
True
Alignment
2-center
标签框3
(名称)
Label3
Caption
运算符
AutoSize
True
Alignment
2-center
标签框4
名称
Label4
Caption
运算结果
AutoSize
True
Alignment
2-center
标签框5
(名称)
Label5
Caption
注意:
运算符只能是+、-、*、/中的一个
标签框6
(名称)
Label6
Caption
空白
文本框1
(名称)
Text1
Text
空白
文本框2
(名称)
Text2
Text
空白
文本框3
(名称)
Text3
Text
空白
命令按钮1
(名称)
Command1
Caption
=
命令按钮2
(名称)
Command2
Caption
清除
命令按钮3
(名称)
Command3
Caption
退出
参考代码如下:
1.确定用于说明运算类型的标签框的显示内容
PrivateSubText2_Change()
SelectCaseText2.Text
Case"+"
Label1.Caption="被加数"
Label3.Caption="加号"
Label2.Caption="加数"
Label4.Caption="和"
Case"-"
Label1.Caption="被减数"
Label3.Caption="减号"
Label2.Caption="减数"
Label4.Caption="差"
Case"*"
Label1.Caption="被乘数"
Label3.Caption="乘号"
Label2.Caption="乘数"
Label4.Caption="积"
Case"/"
Label1.Caption="被除数"
Label3.Caption="除号"
Label2.Caption="除数"
Label4.Caption="商"
EndSelect
EndSub
2.用于进行运算的命令按钮“=”
PrivateSubCommand1_Click()
aa=Val(Text1.Text)
bb=Val(Text3.Text)
SelectCaseText2.Text
Case"+"
cc=aa+bb
Case"-"
cc=aa-bb
Case"*"
cc=aa*bb
Case"/"
cc=aa/bb
EndSelect
Label6.Caption=Str(cc)
EndSub
3.进行多次运算时需进行的“清除”操作
PrivateSubCommand2_Click()
Text1.Text=""
Text3.Text=""
Label6.Caption=""
Text1.SetFocus
EndSub
4.结束操作
PrivateSubCommand3_Click()
End
EndSub
第三章VisualBasic程序设计基础
上机实验:
常量、变量、表达式和基本语句的应用
实验目的:
掌握数据类型的定义及使用,掌握常量、变量和表达式的使用,熟悉VB基本语句的使用,能够使用简单的算法解决实际问题。
实验内容:
1.设计一个应用程序,窗体上有3个文本框、1个标签框和3个命令按钮,界面设计如图3.9所示。
当用户运行应用程序后,在文本框中随意输入三个数据,单击“排序”命令按钮后,将三个数据按照从小到大的顺序重新排列。
图3.9
表3.8属性设置
对象
属性
设置
窗体
(名称)
Form1
Caption
排序
文本框1
(名称)
Text1
Text
空白
文本框2
(名称)
Text2
Text
空白
文本框3
(名称)
Text3
Text
空白
标签框1
(名称)
Label1
Caption
排序结果为:
命令按钮1
(名称)
Command1
Caption
排序
命令按钮2
(名称)
Command2
Caption
退出
命令按钮3
(名称)
Command3
Caption
清空
参考代码如下:
1.数据输入后的排序操作
PrivateSubCommand1_Click()
Dima,b,cAsInteger
DimzjjgAsInteger
a=CInt(Text1.Text)
b=CInt(Text2.Text)
c=CInt(Text3.Text)
Ifa>bThen
zjjg=a
a=b
b=zjjg
EndIf
Ifa>cThen
zjjg=a
a=c
c=zjjg
EndIf
Ifb>cThen
zjjg=b
b=c
c=zjjg
EndIf
Label1.Caption="排序结果为:
"&a&","&b&","&c
EndSub
2.清空操作,用于第2次以后的要排序数据的输入
PrivateSubCommand3_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
EndSub
3.结束操作
PrivateSubCommand2_Click()
End
EndSub
运行后的结果如图3.10所示。
图3.10
第四章常用控件
上机实验:
常用控件的应用
实验目的:
掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法,熟悉滚动条的数值应用,掌握对话框的设计及使用,掌握图片框、图像框的使用及在使用中二者的区别,能够利用计时器进行动画制作。
实验内容:
1.设计一个应用程序,窗体上由1个文本框、1个命令按钮和4个框架组成,界面设计如图4.39所示。
图4.39
表4.25属性设置
对象
属性
设置
窗体
(名称)
Form1
Caption
Form1
文本框1
(名称)
Text1
Text
欢迎使用VisualBasic
框架1
(名称)
Frame1
Caption
字体
框架2
(名称)
Frame2
Caption
大小
框架3
(名称)
Frame3
Caption
颜色
框架4
(名称)
Frame4
Caption
字形
框架5
(名称)
Frame5
Caption
文字效果
(名称)
Label3
单选钮1
(名称)
Option1
Caption
宋体
单选钮2
(名称)
Option2
Caption
隶书
单选钮3
(名称)
Option3
Caption
幼圆
单选钮4
(名称)
Option4
Caption
18点
单选钮5
(名称)
Option5
Caption
20点
单选钮6
(名称)
Option6
Caption
22点
单选钮7
(名称)
Option7
Caption
蓝色
单选钮8
(名称)
Option8
Caption
红色
单选钮9
(名称)
Option9
Caption
黄色
单选钮10
(名称)
Option10
Caption
普通
单选钮11
(名称)
Option11
Caption
粗体
单选钮12
(名称)
Option12
Caption
斜体
单选钮13
(名称)
Option13
Caption
粗斜体
复选框1
(名称)
Check1
Caption
删除线
复选框2
(名称)
Check2
Caption
下划线
命令按钮1
(名称)
Command1
Caption
退出
参考代码如下:
1.装载窗体
在初始装载窗体时,给出窗口运行的初值
PrivateSubForm_Load()
Option1.Value=True
Option4.Value=True
Option7.Value=True
Option12.Value=True
EndSub
2.确定文本框中文字的字体
PrivateSubOption1_Click()
IfOption1.Value=TrueThenText1.FontName="宋体"
EndSub
PrivateSubOption2_Click()
IfOption2.Value=TrueThenText1.FontName="隶书"
EndSub
PrivateSubOption3_Click()
IfOption3.Value=TrueThenText1.FontName="幼圆"
EndSub
3.确定文本框中文字的字号(即字的大小)
PrivateSubOption4_Click()
IfOption4.Value=TrueThenText1.FontSize=18
EndSub
PrivateSubOption5_Click()
IfOption5.Value=TrueThenText1.FontSize=20
EndSub
PrivateSubOption6_Click()
IfOption6.Value=TrueThenText1.FontSize=22
EndSub
4.确定文本框中文字的颜色
PrivateSubOption7_Click()
IfOption7.Value=TrueThenText1.ForeColor=QBColor(9)
EndSub
PrivateSubOption8_Click()
IfOption8.Value=TrueThenText1.ForeColor=QBColor(12)
EndSub
PrivateSubOption9_Click()
IfOption9.Value=TrueThenText1.ForeColor=QBColor(14)
EndSub
5.确定文本框中文字的字形
PrivateSubOption10_Click()
IfOption10.Value=TrueThen
Text1.FontBold=False
Text1.FontItalic=False
EndIf
EndSub
PrivateSubOption11_Click()
IfOption11.Value=TrueThen
Text1.FontBold=True
Text1.FontItalic=False
EndIf
EndSub
PrivateSubOption12_Click()
IfOption12.Value=TrueThen
Text1.FontBold=False
Text1.FontItalic=True
EndIf
EndSub
PrivateSubOption13_Click()
IfOption13.Value=TrueThen
Text1.FontBold=True
Text1.FontItalic=True
EndIf
EndSub
6.确定文本框中文字的文字效果
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Text1.FontStrikethru=True
Else
Text1.FontStrikethru=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Text1.FontUnderline=True
Else
Text1.FontUnderline=False
EndIf
EndSub
7.结束操作
PrivateSubCommand1_Click()
End
EndSub
2.设计一个简单的报到处理窗体,要求界面如图4.40所示,从文本框中输入学生姓名,在“班级”旁边的组合框中选择其所属班级(提供4种默认班级)。
然后将学生姓名和班级添加到列表框中。
用户可以删除列表框中所选择的项目,也可以把整个列表框清空。
图4.40
表4.26属性设置
对象
属性
设置
窗体
(名称)
Form1
Caption
报到名单录入
文本框1
(名称)
Text1
Text
空白
组合框1
(名称)
Combo1
Text
空白
列表框1
(名称)
List1
List
空白
标签框1
(名称)
Label1
Caption
姓名
AutoSize
True
标签框2
(名称)
Label2
Caption
班级
AutoSize
True
标签框3
(名称)
Label3
Caption
学生列表
AutoSize
True
命令按钮1
(名称)
Command1
Caption
加入列表
命令按钮2
(名称)
Command2
Caption
删除列表选项
命令按钮3
(名称)
Command3
Caption
清空列表
命令按钮4
(名称)
Command4
Caption
退出
参考代码如下:
1.装载窗体
在初始装载窗体时,给出组合框的初始值
PrivateSubForm_Load()
Combo1.AddItem"03网络"
Combo1.AddItem"03电商"
Combo1.AddItem"03计维"
Combo1.AddItem"03软件"
Combo1.Text=Combo1.List(0)
EndSub
2.将新报到的学生名单加入列表框
PrivateSubCommand1_Click()
If(Text1.Text<>""AndCombo1.Text<>"")Then
List1.AddItemText1.Text+""+Combo1.Text
Else
MsgBox"必须输入学生姓名"
EndIf
EndSub
3.根据实际需要,删除选定的列表项
PrivateSubCommand2_Click()
List1.RemoveItemList1.ListIndex
EndSub
4.删除全部列表项
PrivateSubCommand3_Click()
List1.Clear
EndSub
5.结束操作
PrivateSubCommand4_Click()
End
EndSub
3.设计一个应用程序,窗体上由1计时器和1个图像框组成,图像框中添加一个球形图片,界面设计如图4.41所示。
图4.41
表4.27属性设置
对象
属性
设置
窗体
(名称)
Form1
Caption
球体运动
计时器1
(名称)
Timer1
Interval
100
图像框1
(名称)
Image1
Stretch
True
参考代码如下:
1.在窗体的“通用”区定义窗体级变量,留作后用。
DimchuiAsInteger
DimshuiAsInteger
2.装载窗体
在初始装载窗体时,给出窗口运行的初始值
PrivateSubForm_Load()
shui=80
chui=80
EndSub
3.通过鼠标单击窗体,决定球体是否运动
PrivateSubForm_Click()
Timer1.Enabled=NotTimer1.Enabled
EndSub
4.球体运动
PrivateSubTimer1_Timer()
Image1.MoveImage1l.Left+shui,Image1.Top+chui
IfImage1.Top<=0Thenchui=-chui
IfImage1.Top+Image1.Height>=Form1.Height-420Thenchui=-chui
IfImage1.Left<=0Thenshui=-shui
IfImage1.Left+Image1.Width>=Form1.Width-100Thenshui=-shui
EndSub
5.捕捉球体,防止因窗体大小的改变而使球体跑出屏幕
PrivateSubForm_Resize()
IfImage1.Top<=0Then
Image1.Top=-25
chui=-chui
EndIf
IfImage1.Top>=(Form1.Height-420)Then
Image1.Top=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于Visual Basic 60可视化程序设计上机指导 基于 Visual 60 可视化 程序设计 上机 指导