VisualBasic实验指导书Word文档下载推荐.docx
- 文档编号:19871581
- 上传时间:2023-01-11
- 格式:DOCX
- 页数:95
- 大小:2.93MB
VisualBasic实验指导书Word文档下载推荐.docx
《VisualBasic实验指导书Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VisualBasic实验指导书Word文档下载推荐.docx(95页珍藏版)》请在冰豆网上搜索。
程序运行时,单击窗体中的“运行”按钮,在文本框Text1中将窗体的标题“我的第一个VB程序设计”显示出来;
单击窗体中的“退出”按钮,将结束程序的运行。
实验步骤:
1.启动VB6.0
可双击桌面上的快捷图标启动VB6.0,打开如图1.1.2所示的对话框,选择“标准EXE”图标,单击“打开”按钮,新建一个“标准EXE”工程。
2.界面设计
向窗体上添加一个“文本框(text)”和两个“命令按钮(command)”,界面设计效果如上图1.1.1所示。
有关控件的基本操作,介绍如下:
(1)创建控件
·
在控件箱中双击选定的控件,该控件自动出现在窗体中间。
在控件箱中单击选定的控件,将变成十字线的鼠标指针放在窗体上,拖动十字线画出合适的控件大小。
(2)选择控件
单击某个控件,当控件四周出现尺寸柄时表示控件被选中。
用,,,方向键在不同的控件中切换。
按Shift键,依次单击几个控件则同时选中几个控件。
按Ctrl键,在依次单击几个控件,可以同时选中几个控件。
在控件的外围拖出一个选择框,则在框内的所有控件同时选中。
(3)移动控件
先用鼠标选择控件,再把窗体上的控件拖到一个新位置。
先选择控件,然后在“属性”窗口中改变“Top”和“Left”属性。
先选择控件,用Ctrl+,,,,方向键调整控件位置。
(4)调整控件大小
先选择某控件,然后拖动尺寸柄向各个方向调整大小。
先选择某控件,然后在“属性”窗口中改变“Width”和“Height”属性。
先选择控件,用Shift+,,,,方向键调整控件位置。
(5)安排控件位置
为使控件在窗体中的位置整齐统一,使用同时选中多个控件的方法。
如,同时选中控件Command1和Text1,通过“格式”菜单中的“对齐”“统一尺寸”等安排控件的位置和大小。
(6)删除控件
选中某控件,按Del键则删除该控件。
(7)锁定控件
先选择控件,单击“格式”菜单选取“锁定控件”命令。
先选择控件,用鼠标右键单击“窗体编辑器”在快捷菜单中单击“锁定控件”命令。
锁定控件是将窗体上所有的控件锁定在当前位置,防止已经处于理想位置的控件因不小心而被移动。
3.设置属性
设置属性先选中控件或窗体,然后在属性窗口中修改各属性的值。
(1)设置窗体Form1属性,将Caption属性改为“我的第一个VB
程序设计”;
将两个命令按钮Command1和Command2的“Caption”属性分别改为:
运行(&
W)和退出(&
E)。
(2)将文本框Text1、命令按钮Command1和Command2的属性窗口的“名字”属性改变成txtPro、cmdRun和cmdExit。
(3)将文本框txtPro的属性窗口中的“BackColor”和“ForColor”属性分别改变成黄色和蓝色。
(4)修改文本框txtPro的属性窗口中的“Font”属性,单击按钮
出现字体属性页。
分别将“字体”和“大小”改变成“粗体”和“小二”。
(5)用窗体Form1属性窗口改变“Icon”属性,改变窗体的图标;
单击“Icon”属性后的按钮
,选择另一个图标。
通过设置窗体的Icon属性,换一个能够说明窗体或应用程序的具体用途的图标,使其在窗体最小化时出现。
4.编写代码
添加事件cmdRun_Click的代码,当按下按钮后文本框“txtPro”中将显示窗体标题“Caption”的内容。
PrivateSubcmdRun_Click()
txtPro.text=form1.caption
EndSub
添加事件cmdExit_Click的代码,当按下按钮后,结束程序运行。
PrivateSubCmdExit_Click()
End
5.保存工程
保存工程可在工具栏中单击“保存”按钮,或选择“文件”菜单,单击“保存”命令。
先后出现“文件另存为”和“工程另存为”两个对话框,默认将窗体文件保存为“Form1.frm”,将工程保存为“工程1.vbp”文件。
6.运行程序
运行程序的方法有三种:
直接按“F5”键。
在工具栏中单击启动按钮
。
选择“运行”(RUN)菜单,单击“运行”命令。
7.生成可执行文件
为使程序脱离VB环境直接运行,可将程序编译成可执行文件(.exe文件)。
选择“文件”菜单,单击“生成exe”命令,打开“生成工程”对话框,输入文件名,单击“确定”按钮。
1.2编写一个简单的应用程序:
只有一个窗体,窗体上有一个文本框和三个命令按钮,要求如下:
1)单击第一个命令按钮,文本框显示“程序设计第一步:
界面设计”
2)单击第二个命令按钮,文本框显示“程序设计第二步:
属性设置”
3)单击第三个命令按钮,文本框显示“程序设计第三步:
编写代码”
1.界面设计
在窗体上添加一个文本框(Text1)和三个命令按钮(Command1、Command2、Command3)。
控件布置如图1.2.1所示。
2.属性设置
将文本框的text属性设置为空,三个命令按钮的Caption属性分别设为“界面设计”、“属性设置”和“编写代码”。
3.编写代码
双击命令按钮Command1,进入代码编辑窗口,编写命令按钮Command1的Click事件过程代码:
PrivateSubCommand1_Click()
Text1.Text="
程序设计第一步:
界面设计"
编写命令按钮Command2的Click事件过程代码:
PrivateSubCommand2_Click()
程序设计第二步:
属性设置"
编写命令按钮Command3的Click事件过程代码:
PrivateSubCommand3_Click()
程序设计第三步:
编写代码"
4.调试和运行程序
运行结果如图1.2.2所示。
【思考题】
题目:
窗体的界面设计以及窗体的运行界面如图1.2.3和1.2.4所示,单击窗体中“前景色”按钮,标签(Label)将显示“文本框的前景色为蓝色”字样,同时,文本框的前景色将变为蓝色;
若单击窗体中“背景色”按钮,标签(Label)将显示“文本框的背景色为红色”字样,随之,文本框的背前景色将变为红色。
按照题目要求,如何实现工程的设计?
提示:
命令按扭Command1的Click事件(前景色)过程代码:
PrivateSubCommand1_Click()
Label1.Caption="
文本框的前景色为蓝色"
Text1.ForeColor=vbBlue
命令按扭Command2的Click事件(背景色)过程代码:
PrivateSubCommand2_Click()
文本框的背景色为红色"
Text1.BackColor=vbRed
实验二数据的输入与输出
1.掌握基本语句(Print语句、赋值语句、Dim语句等)的使用。
2.掌握表达式的正确书写方法及函数、运算符的正确使用。
3.掌握数据的动态输入InputBox和信息提示MsgBox。
4.掌握顺序结构程序设计方法。
2.1编程,输入圆的半径,计算并输出圆的面积,按下列要求实现。
(1)界面设计尽可能美观、大方。
(2)单击命令按钮,调用InputBox函数输入数据,通过MsgBox显示计算结果。
在窗体上添加一个命令按钮(Command1)。
控件布置如图2.1.1所示。
将命令按钮(Command1)的Caption属性设为“计算”,窗体(From1)的Caption属性设为“输入半径计算圆的面积”,设置效果如上图所示。
图2.1.2
ConstpiAsDouble=3.1415926
DimRAsDouble,areaAsDouble
R=Val(InputBox("
请输入圆的半径"
"
半径输入"
))
area=pi*R^2
MsgBox"
半径为:
"
&
R&
的圆的面积为:
"
_
&
area,vbOKOnly,"
运行结果"
EndSub
运行结果如图2.1.2所示。
注意事项:
1)在输入程序时,要特别注意程序中起分界符作用的括号、双引号、分号、逗号等均必须使用西文符号。
2)InputBox函数的返回值类型是字符数据,所以在程序中用Val()函数将其转换为数值型数据后,再赋值给变量R。
3)如果某条语句太长,可以使用续行符“_”(一个空格紧跟一个下划线)将其分为多行书写。
2.2创建一个应用程序,其用户登录界面设计如图2.2.1所示,要求用户输入姓名。
当用户输入姓名,并单击“确定”按钮后,系统会弹出如图2.2.2所示的欢迎界面。
1.
界面设计
在窗体上添加2个标签(Label1和Label2)、1个文本框(Text1)和1个命令按钮(Command1)。
控件布置如图2.2.1所示。
对象
属性名称
属性值
Form1
Caption
实验2.2
Label1
欢迎学习使用VB
Font
字体:
楷体GB_2312字号:
三号
ForeColor
H000000FF&
Label2
请输入姓名:
宋体字号:
五号
Text1
Text
空
Command1
确定(&
E)
欢迎你:
Text1.Text&
同学!
vbOKOnly,"
实验2.2"
运行结果如图2.2.2所示。
2.3利用InputBox()函数输入三角形三条边的长度a、b、c,计算并显示三角形的面积。
提示:
根据三条边长计算三角形的面积,可利用海伦公式:
,其中p为半周长,即p=(a+b+c)/2。
1.建立一个新工程,可适当调整窗体的大小,不需要添加任何控件,将窗体的Capation属性修改为“计算三角形的面积”。
2.双击窗体进入程序代码编辑窗口,编写窗体的单击事件过程如下:
PrivateSubForm_Click()
DimaAsSingle,bAsSingle,cAsSingle,_
areaAsSingle,sAsSingle
a=Val(InputBox("
请输入边长a:
b=Val(InputBox("
请输入边长b:
c=Val(InputBox("
请输入边长c:
p=(a+b+c)/2
area=Sqr(p*(p-a)*(p-b)*(p-c))
PrintTab(5);
a"
;
Tab(13);
b"
Tab(21);
c"
Tab(29);
area"
PrintTab(4);
a;
Tab(12);
b;
Tab(20);
c;
Tab(28);
area
3.调试、运行程序,其运行结果如图2.3.1所示。
实验习题2.3中,事件代码编程中并没有考虑输入三角形的三条边a、b、c能否构成三角形,若输入的三边值为:
2、3、6程序并不能正确计算出三角形的面积。
应怎样修改程序代码,才能正确计算出三角形的面积呢?
实验三选择结构程序设计
1.掌握逻辑表达式及关系表达式的正确书写形式。
2.掌握IF语句单行结构和块结构的书写格式及其正确使用(尤其注意ELSE和ELSEIF)。
3.掌握多分支语句的使用。
4.掌握SelectCase语句与多分支条件语句的区别。
2.1编写一个应用程序,初始界面如图3.1.1所示。
程序运行时,单击“开始”按钮,弹出如图3.1.2所示的对话框,要求用户输入一个任意整数,程序自动判断其绝对值。
启动VB6.0后,创建一个“标准EXE”应用程序,进入程序编辑状态。
向窗体添加一个命令按钮(Command1),具体设置如图3.1.1所示。
修改窗体的尺寸,并把窗体的Caption属性值设为“求一个数的绝对值”;
将命令按钮(Command1)的Caption属性设为“开始”。
设置后的效果如图3.1.2所示。
编写Command1的单击事件过程如下:
DimxAsSingle
x=Val(InputBox("
请任意输入一个数:
数据输入"
Ifx>
=0Then
a$=x&
的绝对值是:
x
Else
-x
EndIf
MsgBoxa$,vbDefaultButton1+vbOKCancel,"
求一个数的绝对值"
4.调试运行
单击工具栏上的启动按钮
或按F5键运行程序,程序运行结果如图3.1.3所示。
2.2某大学实行按学分收费,如果不超过12学分,应缴纳学费4000元;
如果学分多于12学分但不超过15,多于的部分每学分加收200元学费;
如果超过15学分,每超过1学分,加收100元学费。
输入学分U,输出学分U和应缴纳的学费T。
根据题意,可列如下分段函数:
1.程序界面设计和对象的属性设置可参照上题进行,方法相似。
2.编写代码
DimTAsInteger,UAsInteger
U=Val(InputBox("
请输入学分:
学分输入"
IfU<
12Then
T=4000
ElseIfU<
15Then
T=4000+200*(U-12)
T=4000+200*3+100*(U-15)
学分U="
U&
应缴纳学费T="
T,vbDefaultButton1+vbOKCancel,"
学费计算"
3.调试运行
或按F5键运行程序,程序运行结果如图3.2.1所示。
该题目也可以使用SelectCase语句来实现,程序如下:
SelectCaseU
CaseIs<
12
15
CaseElse
EndSelect
T,vbDefaultButton1+vbOKCancel,"
3.3编写一个模拟袖珍型计算器的程序。
实验步骤:
建立一个新工程,在窗体上添加4个标签、4个文本框和2个命令按扭,参考图3.3.1进行界面设计。
对与窗体相联系的对象进行属性设置,具体设置如下表所示。
计算器
操作数1
操作符
Label3
操作数2
Label4
计算结果
名称
txtOp1
Text2
txtCalculate
Text3
txtOp2
Text4
txtResult
计算
CmdOperation
Command2
结束
CmdExit
双击命令按钮CmdOperation,进入代码编辑窗口,编写命令按钮CmdOperation的Click事件过程代码:
PrivateSubCmdOperation_Click()
DimOp1AsSingle,Op2AsSingle
IfIsNumeric(txtOp1.Text)Then
Op1=Val(txtOp1.Text)
MsgBox"
操作数1必须为数值"
vbOKOnly+vbInformation
txtOp1.SetFocus
txtOp1.Text="
ExitSub
IfIsNumeric(txtOp2.Text)Then
Op2=Val(txtOp2.Text)
操作数2必须为数值"
txtOp2.SetFocus
txtOp2.Text="
SelectCaseTrim(txtCalculate.Text)
Case"
+"
txtResult.Text=Str(Op1+Op2)
-"
txtResult.Text=Str(Op1-Op2)
*"
txtResult.Text=Str(Op1*Op2)
/"
IfOp2<
>
0Then
txtResult.Text=Str(Op1/Op2)
Else
分母不能为零,出错!
vbRetryCancel
EndIf
CaseElse
运算符输入错误,请重新输入"
txtCalculate.Text="
txtCalculate.SetFocus
编写命令按钮CmdExit的Click事件过程代码:
单击工具栏上的启动按钮
或按F5键运行程序,程序运行结果如图3.3.2所示。
设计一个猜数字游戏软件,点击出题按钮,产生一个10到99的随机数,然后在文本框中由用户输入数字,如果结果不对,应提示是大了,还是小了,否则提示正确。
运行界面如图3.3.3所示。
(思考:
如何限制用户猜数字的次数?
)
参考代码:
DimxAsSingle,flagAsInteger
Randomize
x=Int(Rnd*90)+10
Command2.Enabled=True
Command1.Enabled=False
Ifx=Val(Text1.Text)Then
你真聪明!
Text1.Text="
Command2.Enabled=False
Command1.Enabled=True
flag=0
Ifx<
Val(Text1.Text)Then
您猜数额大了!
加油加油!
您猜数额小了!
flag=flag+1
E
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic 实验 指导书