vb程序的设计实验指导书Word下载.docx
- 文档编号:21469442
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:55
- 大小:611.28KB
vb程序的设计实验指导书Word下载.docx
《vb程序的设计实验指导书Word下载.docx》由会员分享,可在线阅读,更多相关《vb程序的设计实验指导书Word下载.docx(55页珍藏版)》请在冰豆网上搜索。
◇在桌面创建一个VB快捷键;
◇双击该快捷键。
VB启动后,出现VB6.0的“新建工程”对话框(图1-2)单击“打开”按钮,带有一个窗体的新工程将被创建,并可以看到VB集成开发环境的界面,如图1-3所示。
有的系统启动后可直接进入图1-3所示的界面。
图1-2VB6.0的“新建工程”对话框
图1-3VB的集成开发环境窗口
1、退出VB方法:
(1)单击主窗口右上角的“关闭”按钮。
(2)执行“文件”菜单中的“退出”命令。
(3)按Alt+Q键。
二、开发一个简单程序
要求:
新建一工程,在窗体(Form)上添加一个标签(Label),当单击窗体时标签(Label)显示“床前明月光”。
实验步骤:
(1)新建工程
在桌面上双击MicrosoftVisualBasic6.0快捷方式图标,系统进入VisualBasic6.0集成开发环境,并显示“新建工程”对话框,默认选择是建立“标准EXE”(即标准工程)。
单击“打开”按钮,VisualBasic6.0进入设计模式。
如图1-4所示。
图1-4“新建工程”对话框
单击“文件”菜单,选择“新建工程”菜单项,也可进入设计模式。
(2)设计界面
在系统提供的名为Form1的窗体上进行界面设计。
单击工具箱上的标签(Label)控件,在窗体上添加标签的位置处按下鼠标左键,并拖动,调整虚框的大小,松开鼠标,就将标签控件添加到窗体上。
初始界面如图1-5所示。
图1-5初始界面
(3)设置属性
如表1-1所示。
表1-1属性设置
对象
属性
属性值
Form1
Caption
我的第一个VB程序
Label1
设置属性后的界面如图1-6所示。
图1-6设置属性后的界面图1-7第一个程序
(4)编写程序代码
PrivateSubForm_Click()
Label1.Caption="
床前明月光"
EndSub
(5)运行程序
运行VB程序有三种方法:
①单击工具栏上的“启动”按钮;
②从“运行”菜单中选择“启动”菜单项;
③按F5键。
例如,单击工具栏上的“启动”按钮运行程序后,单击窗体,程序运行效果如图1-7所示。
(6)保存程序
单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项,选择合适的保存路径,先保存窗体文件(例如窗体文件名为“实验一.frm”),然后保存工程文件(例如工程文件名为“实验一.vbp”)。
三、将VisualBasic工程编译生成可执行文件
单击“文件”菜单中的“生成实验一.exe”菜单项,就可生成可执行的.exe文件。
退出VisualBasic集成开发环境,双击实验一.exe文件,则实验一.exe文件就可直接运行。
实验二命令按钮、文本框和标签
【实验目的】
1.掌握命令按钮、文本框和标签常用属性值的设置方法。
2.学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。
3.掌握命令按钮的主要事件的使用。
1.利用命令按钮、文本框和标签判断密码是否正确。
2.建立应用程序,对两个文本框中输入的内容进行交换。
【实验要求与步骤】
1.实验内容
要求:
在文本框中输入“goodbaby”,然后单击“登录”命令按钮,则在标签Label2中显示“欢迎使用本系统!
”;
在文本框中输入“abc”,然后单击“登录”命令按钮,则在标签Label2中显示“密码错误!
请重新输入密码!
”。
步骤:
(1)设计界面
在窗体上添加两个标签、一个文本框和两个命令按钮。
初始界面如图2-1所示。
图2-1初始界面图2-2设置属性后的界面
(2)设置属性
设置属性后的界面如图2-2所示。
表2-1属性设置
请输入密码:
Command1
登陆
Command2
退出
Label2
BorderStyle
1-FixedSingle
Text1
Text
MaxLength
16
PasswordChar
*
登陆界面
(3)编写程序代码
PrivateSubCommand1_Click()
IfText1.Text=“goodbaby”Then
Label2.Caption=“欢迎使用本系统!
”
Else
Label2.Caption=“密码错误!
EndIf
PrivateSubCommand2_Click()
End
EndSub
(4)运行程序
①在文本框中输入“goodbaby”,然后单击“登录”命令按钮,则在标签Label2中显示“欢迎使用本系统!
运行结果如图2-3所示。
图2-3输入的密码正确
②在文本框中输入“abc”,然后单击“登录”命令按钮,则在标签Label2中显示“密码错误!
运行结果如图2-4所示。
图2-4输入的密码错误
2.实验内容
在窗体上放置两个Label控件、两个TextBox控件和三个CommandButton控件。
初
界面如图2-5所示。
图2-5初始界面图2—6属性设置后的界面
(2)属性设置
设置属性后的界面如图2-6所示。
表2-2属性设置
属性名称
交换
输入第1个数
输入第2个数
空
Text2
Name
CmdChange
Default
Ture
CmdClear
清空
Command3
CmdExit
OptionExplicit
PrivateSubCmdChange_Click()
DimtempAsInteger
temp=Text1.Text
Text1.Text=Text2.Text
Text2.Text=temp
EndSub
PrivateSubCmdExit_Click()
UnloadMe
PrivateSubCMdCLear_Click()
Text1.Text=””
Text2.Text=””
Text1.SetFocus
(4)运行程序
执行结果如图2-7(a)、(b)所示。
单击“清空”按钮并再数入数据,进行交换。
图2-7(a)交换前的界面图2-7(b)单击交换后的界面
实验三表达式、InputBox函数和MsgBox语句
1.掌握表达式的构成和如何求表达式的值。
2.掌握赋值语句的使用。
3.掌握InputBox函数的使用。
4.掌握MsgBox语句的使用。
1.利用InputBox函数和MsgBox语句求圆的周长。
2.利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。
【实验步骤与指导】
1.实验内容
(1)设计界面
在窗体上添加一个命令按钮。
初始界面如图3-1所示。
图3-1初始界面图3-2设置属性后的界面
(2)设置属性
表3-1属性设置
计算圆的周长
InputBox和MsgBox举例
设置属性后的界面如图3-2所示。
(3)编写程序代码
PrivateSubCommand1_Click()
Constpi=3.14159
DimrAsSingle,sAsString,s2AsString
DimzhouchangAsSingle
s=InputBox("
请输入半径"
"
输入半径"
1)
r=Val(s)
zhouchang=2*pi*r
s2="
半径="
+s+"
圆的周长="
+Str(zhouchang)
MsgBoxs2,64,"
确认窗口"
单击工具栏上的“启动”按钮,进入运行模式。
单击“计算圆的周长”命令按钮,在输入框中输入圆的半径(例如,输入“2”),在消息框中输出半径和计算出来的圆的周长,如图3-3所示。
(a)
(b)(c)
图3-3计算圆的周长
2.实验内容
初始界面如图3-4所示。
图3-4初始界面
(2)设置属性
求三角形的面积
PrivateSubForm_click()
DimaAsSingle,bAsSingle,cAsSingle
DimsAsSingle,pAsSingle
a=InputBox("
请输入三角形的边a:
"
输入"
)
b=InputBox("
请输入三角形的边b:
c=InputBox("
请输入三角形的边c:
If(a+b<
=cOra+c<
=bOrb+c<
=a)Or(Abs(a-b)>
=cOrAbs(a-c)>
=bOrAbs(b-c)>
=a)Then
MsgBox("
你输入的数据有误!
Else
p=(a+b+c)/2
s=Sqr(p*(p-a)*(p-b)*(p-c))
Print"
三角形的面积为:
;
s
EndIf
如图3—5(a)(b)(c)(d)所示
(a)(b)
(c)(d)
图3-5计算三角形的面积
实验四选择结构
1.掌握逻辑表达式的正确书写形式。
2.掌握单分支与双分支条件语句的用法,熟悉If….Then…..Else语句。
3.掌握选择结构中多条件,多分支程序的用法,熟悉SelectCase语句。
1.编写程序,利用文本框检查用户密码。
提示:
可以用文本框的PasswordChar属性来隐蔽用户输入的字符。
设密码是“123456”,利用文本框的PasswordChar属性可以隐蔽用户输入的字符。
2.输入一个数字(0-6),用中英文显示星期几。
用多条件多分支选择语句Select
Case来解决。
(1)建立用户界面
(2)设置对象属性
表4-1属性设置
说明
Frame1
请输入您的密码:
Text1
只显示字符“*”
FontName
黑体
字体名称
fontSize
三号
字体大小
(3)编写事件代码
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then'
回车字符的Ascii为13
IfText1.Text="
123456"
Then
Label1.Caption="
欢迎使用本系统!
Label1.Caption="
对不起,密码错!
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
程序输出界面如图4-1,图4-2所示。
图4-1验证密码正确图4-2验证密码不正确
(1)建立用户界面。
参考图4-3所示
图4-3界面设计
表4-2属性设置
星期
输入一个数字(0-6)
边框样式
True
缺省命令按钮
“”
DimnAsInteger,mAsString
n=Val(Text1.Text)
SelectCasen
Case1
m="
星期一(Monday)"
Case2
星期二(Tuesday)"
Case3
星期三(Wednesday)"
Case4
星期四(Thursday)"
Case5
星期五(Friday)"
Case6
星期六(Saturday)"
Case0
星期日(Sunday)"
CaseElse
重新输入"
EndSelect
Label2.Caption=m
程序输出界面如图4-4所示。
图4-4程序运行结果
实验五循环结构
1.掌握For语句的使用。
2.掌握Do语句的使用。
3.掌握如何控制循环条件,防止死循环或不循环。
1.利用For循环求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+n)的值。
本题是先进行内循环累加,再进行外循环累加,因此需要两个累加器.也可用一个循环来实现.括号内每累加一个数,就往S中累加一次。
2.输入一个正整数,利用“当型”循环判断是否素数。
“素数”是除了1和该数本身,不能被任何整数整除的数,判断一个自然数是否素数,只要依次2~n用做除数去除n,若n不能被其中任何一个数整除,则n为素数。
(2)设置对象属性。
参考图5-1所示
图5-1属性设置图5-2程序运行结果
DimnAsInteger,iAsInteger,jAsInteger,sAsLong
j=0:
s=0
Fori=1Ton
j=j+i
s=s+j
Nexti
Label2.Caption="
和数S="
&
Str(s)
Text1.SelLength=Len(Text1.Text)
程序输出界面如图5-2所示。
参考图5-3所示
图5-3界面设计
PrivateSubText1_GotFocus()
Text1.SelStart=0
DimnAsLong
SelectCaseVal(Text1.Text)
CaseIs<
3
MsgBox"
请输入一个大于2的整数"
vbInformation+vbOKOnly,"
注意"
CaseIs>
2147483647
该数太大"
s=0
i=2
DoWhilei<
=Sqr(n)Ands=0
IfnModi=0Then
s=1
Else:
i=i+1
Loop
Ifs=0Then
a="
是一个素数"
不是一个素数"
Label1.Caption=Str(n)&
a
EndSelect
Text1.SetFocus
程序运行结果如图5-4所示。
图5-4程序运行结果
实验六Sub过程
1.掌握Sub过程的定义。
2.掌握Sub过程的调用。
3.掌握Sub过程参数传递规则。
编写一个求阶乘的过程,调用该过程求4!
和6!
。
1.设计界面
在窗体上添加两个命令按钮和两个标签。
初始界面如图6-1所示。
图6-1初始界面图6-2设置属性后的界面
2.设置属性
表6-1属性设置
求4!
求6!
设置属性后的界面如图6-2所示。
3.编写程序代码
PrivateSubjiecheng(nAsInteger,resultAsLong)
DimiAsInteger
result=1
Fori=1Ton
result=result*i
Nexti
DimxAsInteger,tAsLong
x=4
Calljiecheng(x,t)
Label1.Caption=Str(x)+"
!
="
+Str(t)
PrivateSubCommand2_Click()
x=6
Label2.Caption=Str(x)+"
4.运行程序
分别单击“4!
”命令按钮和“6!
”命令按钮,程序运行效果如图6-3所示。
图6-3求4!
实验七Function过程
1.掌握Function过程的定义。
2.掌握Function过程的调用。
3.掌握Function过程参数传递规则。
编写一个求任意数的平方的函数,调用该函数求1~10的平方数。
在窗体上添加一个标签和一个列表框。
初始界面如图7-1所示。
图7-1初始界面图7-2设置属性后的界面
表7-1属性设置
求1~10的平方数
List1
List
设置属性后的界面如图7-2所示
PrivateFunctionpower(xAsInteger)AsInteger
power=x*x
EndFunction
DimaAsInteger
Fora=1To10
List1.AddItempower(a)
Nexta
运行程序后,单击窗体,程序运行效果如图7-3所示。
图7-3求1~10的平方数
实验八单选框和复选框的应用
1.掌握单选框,复选框的定义。
2.掌握单选框,复选框的区别。
建立一个标准工程实现单选框和复选框的组合应用。
1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序 设计 实验 指导书