- 1、本文档共30页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实验一? Visual Basic环境和简单程序设计
一、实验目的
1.掌握Visual Basic启动和退出的方法。
2.熟悉Visual Basic的集成开发环境。
3.掌握Visual Basic程序设计的基本步骤。
4.掌握基本控件(标签、命令按钮和文本框)的基本使用方法。
二、实验内容
1 启动Visual Basic,然后创建一个“标准 EXE”工程。了解Visual Basic集成开发环境下各组成部分及其作用。
【要求】
(1)在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”,熟悉它们的默认位置。
(2)在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”。
(3)在“视图”菜单中点击“立即窗口”,观察刚刚显示出来的“立即窗口”。
(4)尝试分别将各部分关闭,然后再用“视图”菜单中对应的菜单命令将其显示。
?
2 编写一个简单的应用程序。要求窗体的标题为“简单VB实验”;窗体中有一个标题为“显示”的按钮;单击该按钮后在窗体上显示红色的“广西师范学院”。
【步骤】
(1)设计应用程序的界面:在窗体上创建一个命令按钮Command1、一个标签Label1。
(2)设置对象的属性
对象名称
属性名称
属性值
Form1
Caption
简单VB实验
Label1
ForeColor
红色
Command1
Caption
显示
(3)编写事件代码:
Private Sub Command1_Click()
? Label1.Caption = 广西师范学院
End Sub
(4)程序的运行及保存。
【提示】
在窗体上显示“广西师范学院”有两种方法:
(1)用Print方法:设置窗体的前景色为红色。
(2)用一个标签控件:设置标签控件的前景色为红色。
【思考】为什么在以上两种方法中在颜色的设置问题上有所不同?
?
3 通过编程修改控件的属性。
【要求】
(1)进入程序设计的界面如图1-1(a)。
(2)点击“单击此处”按钮后程序运行的界面如图1-1(b)。
【步骤】
(1)在窗体中创建一个标签Label1、一个命令按钮Command1。
(2)在属性窗口中设置对象的属性:
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
(3)在Command1的Click事件中编写程序代码:
Private Sub Command1_Click()
? Form1.Caption = 编程后界面
? Label1.Caption = 欢迎您使用VB 6.0
? Command1.Caption = 运行结果
End Sub
【提示】
?可以通过两种方法设置对象的属性:
(1)在程序设计状态,通过属性窗口对该属性进行修改或设置。
(2)在程序运行状态,通过程序中的语句动态地更改对象的属性。修改对象属性的语句格式:
???? ??????????对象名.属性名称=新设置属性值
?
实验二? 顺序结构程序设计
一、实验目的
1.掌握常量和变量、表达式的基本概念和正确书写格式。
2.掌握赋值语句和常用函数的正确使用方法。
3.掌握输入、输出对话框(InputBox和MsgBox)的基本使用方法。
二、实验内容
1 假设有变量a=2,b=5,c=4,d=3,e=6,编写程序,计算表达式a+bc and d*a=e的值,将结果打印在窗体上。
【提示】
注意复合表达式的运算顺序。
【思考】复合表达式按什么样的顺序运算?
?
2? 编写程序,界面如图2-1所示。使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签Label1上,再求出该数的正弦值,将结果写在标签Label2上。
【步骤】
(1)设计应用程序的界面:在窗体上创建一个命令按钮Command1、两个标签Label1和Label2。
(2)设置对象的属性
对象名称
属性名称
属性值
Form1
Caption
随机数的正弦值
Command1
Caption
下一个随机数
Label1
Caption
?
Label2
Caption
?
(3)编写事件代码:
Private Sub Command1_Click()
? Dim x!, y!
? Randomize
? x = Rnd * 31 + 60
? y = Sin(x)
? Label1.Caption = 随机数(60-90): Str(x)
? Label2.Caption = 正弦值???????? : Str(y)
End Sub
(4)程序的运行及保存。
【提示】
(1)使用Rnd函数产生随机数,注意,为了防止两次运行程序的
文档评论(0)