基于Visual Basic 60可视化程序设计上机指导Word格式文档下载.docx
《基于Visual Basic 60可视化程序设计上机指导Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《基于Visual Basic 60可视化程序设计上机指导Word格式文档下载.docx（29页珍藏版）》请在冰豆网上搜索。
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属性设置
控件综合使用
标签框1
Label1
操作数
AutoSize
Alignment
2－center
标签框2
Label2
标签框3
Label3
运算符
标签框4
名称
Label4
运算结果
标签框5
Label5
注意：
运算符只能是+、-、*、/中的一个
标签框6
Label6
文本框1
文本框2
Text2
文本框3
Text3
命令按钮1
Command1
＝
命令按钮2
Command2
清除
命令按钮3
Command3
退出
参考代码如下：
1．确定用于说明运算类型的标签框的显示内容
PrivateSubText2_Change（）
SelectCaseText2.Text
Case"
+"
Label1.Caption="
被加数"
Label3.Caption="
加号"
Label2.Caption="
加数"
Label4.Caption="
和"
-"
被减数"
减号"
减数"
差"
*"
被乘数"
乘号"
乘数"
积"
/"
被除数"
除号"
除数"
商"
EndSelect
EndSub
2．用于进行运算的命令按钮“＝”
PrivateSubCommand1_Click（）
aa=Val（Text1.Text）
bb=Val（Text3.Text）
cc=aa+bb
cc=aa-bb
cc=aa*bb
cc=aa/bb
Label6.Caption=Str（cc）
3．进行多次运算时需进行的“清除”操作
PrivateSubCommand2_Click（）
Text1.Text="
"
Text3.Text="
Label6.Caption="
Text1.SetFocus
4．结束操作
PrivateSubCommand3_Click（）
End
第三章VisualBasic程序设计基础
常量、变量、表达式和基本语句的应用
掌握数据类型的定义及使用，掌握常量、变量和表达式的使用，熟悉VB基本语句的使用，能够使用简单的算法解决实际问题。
1.设计一个应用程序，窗体上有3个文本框、1个标签框和3个命令按钮，界面设计如图3.9所示。
当用户运行应用程序后，在文本框中随意输入三个数据，单击“排序”命令按钮后，将三个数据按照从小到大的顺序重新排列。
图3.9
表3.8属性设置
排序
排序结果为：
清空
1．数据输入后的排序操作
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
cThen
a=c
c=zjjg
Ifb>
zjjg=b
b=c
&
a&
"
"
b&
c
2．清空操作，用于第2次以后的要排序数据的输入
Text2.Text="
3．结束操作
运行后的结果如图3.10所示。
图3.10
第四章常用控件
常用控件的应用
掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法，熟悉滚动条的数值应用，掌握对话框的设计及使用，掌握图片框、图像框的使用及在使用中二者的区别，能够利用计时器进行动画制作。
1．设计一个应用程序，窗体上由1个文本框、1个命令按钮和4个框架组成，界面设计如图4.39所示。
图4.39
表4.25属性设置
Form1
欢迎使用VisualBasic
框架1
Frame1
字体
框架2
Frame2
大小
框架3
Frame3
颜色
框架4
Frame4
字形
框架5
Frame5
文字效果
单选钮1
Option1
宋体
单选钮2
Option2
隶书
单选钮3
Option3
幼圆
单选钮4
Option4
18点
单选钮5
Option5
20点
单选钮6
Option6
22点
单选钮7
Option7
蓝色
单选钮8
Option8
红色
单选钮9
Option9
黄色
单选钮10
Option10
普通
单选钮11
Option11
粗体
单选钮12
Option12
斜体
单选钮13
Option13
粗斜体
复选框1
Check1
删除线
复选框2
Check2
下划线
1．装载窗体
在初始装载窗体时，给出窗口运行的初值
PrivateSubForm_Load（）
Option1.Value=True
Option4.Value=True
Option7.Value=True
Option12.Value=True
2．确定文本框中文字的字体
PrivateSubOption1_Click（）
IfOption1.Value=TrueThenText1.FontName="
宋体"
PrivateSubOption2_Click（）
IfOption2.Value=TrueThenText1.FontName="
隶书"
PrivateSubOption3_Click（）
IfOption3.Value=TrueThenText1.FontName="
幼圆"
3．确定文本框中文字的字号（即字的大小）
PrivateSubOption4_Click（）
IfOption4.Value=TrueThenText1.FontSize=18
PrivateSubOption5_Click（）
IfOption5.Value=TrueThenText1.FontSize=20
PrivateSubOption6_Click（）
IfOption6.Value=TrueThenText1.FontSize=22
4．确定文本框中文字的颜色
PrivateSubOption7_Click（）
IfOption7.Value=TrueThenText1.ForeColor=QBColor（9）
PrivateSubOption8_Click（）
IfOption8.Value=TrueThenText1.ForeColor=QBColor（12）
PrivateSubOption9_Click（）
IfOption9.Value=TrueThenText1.ForeColor=QBColor（14）
5．确定文本框中文字的字形
PrivateSubOption10_Click（）
IfOption10.Value=TrueThen
Text1.FontBold=False
Text1.FontItalic=False
PrivateSubOption11_Click（）
IfOption11.Value=TrueThen
Text1.FontBold=True
PrivateSubOption12_Click（）
IfOption12.Value=TrueThen
Text1.FontItalic=True
PrivateSubOption13_Click（）
IfOption13.Value=TrueThen
Text1.FontItalic=True
6．确定文本框中文字的文字效果
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Text1.FontStrikethru=True
Else
Text1.FontStrikethru=False
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Text1.FontUnderline=True
Text1.FontUnderline=False
7．结束操作
2．设计一个简单的报到处理窗体，要求界面如图4.40所示，从文本框中输入学生姓名，在“班级”旁边的组合框中选择其所属班级（提供4种默认班级）。
然后将学生姓名和班级添加到列表框中。
用户可以删除列表框中所选择的项目，也可以把整个列表框清空。
图4.40
表4.26属性设置
报到名单录入
组合框1
Combo1
列表框1
List1
List
姓名
班级
学生列表
加入列表
删除列表选项
清空列表
命令按钮4
Command4
在初始装载窗体时，给出组合框的初始值
Combo1.AddItem"
03网络"
03电商"
03计维"
03软件"
Combo1.Text=Combo1.List（0）
2．将新报到的学生名单加入列表框
If（Text1.Text<
>
AndCombo1.Text<
）Then
List1.AddItemText1.Text+"
+Combo1.Text
MsgBox"
必须输入学生姓名"
3．根据实际需要，删除选定的列表项
List1.RemoveItemList1.ListIndex
4．删除全部列表项
List1.Clear
5．结束操作
PrivateSubCommand4_Click（）
3．设计一个应用程序，窗体上由1计时器和1个图像框组成，图像框中添加一个球形图片，界面设计如图4.41所示。
图4.41
表4.27属性设置
球体运动
计时器1
Timer1
Interval
100
图像框1
Image1
Stretch
1.在窗体的“通用”区定义窗体级变量,留作后用。
DimchuiAsInteger
DimshuiAsInteger
2．装载窗体
在初始装载窗体时，给出窗口运行的初始值
shui=80
chui=80
3．通过鼠标单击窗体，决定球体是否运动
PrivateSubForm_Click（）
Timer1.Enabled=NotTimer1.Enabled
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
5．捕捉球体，防止因窗体大小的改变而使球体跑出屏幕
PrivateSubForm_Resize（）
=0Then
Image1.Top=-25
chui=-chui
IfImage1.Top>
=（Form1.Height-420）Then
Image1.Top=
升级会员 