- 1、本文档共18页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB实验报告(含答案).
实 验 报 告
课程名称_程序设计基础Visual Basic_
班 级______ ______
姓 名_____ ____
实验一 VB环境和创建一个简单的VB程序
一.实验目的:
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二.实验内容:
1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为”显示”和”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息;单击”清除”按钮,则清除文本框中的内容,运行界面如图1.1所示。
图1.1 实验1-1 运行界面
三.实验结果:对象属性设置
对象 属性 属性值 说明 Form1 caption 我的第一个vb程序 窗体 Label1 caption 请输入姓名 标签 Text1 text ““ 文本框 Command1 caption 显示 命令按钮 Command2 caption 清除 命令按钮 四.实验思考:
1.标签label控件设置的属性代码有哪些?
Label1.Caption=“ 请输入姓名”
Label1.fontsize=24
Label1.fontbold=True
2.两个按钮所使用的是什么事件?代码分别是什么?
Private Sub Command1_Click()
Text1.text=“姓名”
End Sub
Private Sub Command2_Click()
Text1.text=””
End Sub
实验二 简单程序设计数据类型及常用内部函数的简单应用
一.实验目的:
1.掌握Visual Basic数据类型的基本概念。
2.掌握用Visual Basic的各种运算符及表达式。
3.学习使用Visual Basic内部函数和数据输入、输出方法。
4.掌握命令按钮、文本框和标签。
5.设计顺序程序。
二.实验内容:
1.编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,用msgbox输出转换后的摄氏温度。转换公式是:C= 5 / 9(F - 32)。F为华氏温度,C为摄氏温度。
2.用三种除法运算(/ 、\、Mod)做计算。
要求:在窗体上画五个标签、五个文本框和一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。
图2-1
图2-2
三.实验结果:对象属性设置
1.温度转换
对象 属性 属性值 说明 Form1 Caption Inputbox与msgbox应用 窗体 Command1 Caption 温度转换 命令按钮 2. 三种除法运算(/ 、\、Mod)做计算
对象 属性 属性值 说明 Label1 Caption 被除数 标签 Label2 Caption 除数 标签 Label3 Caption 浮点数 标签 Label4 Caption 整除数 标签 Label5 Caption 余数除 标签 Command1 Caption 执行除法运算 命令按钮 四.实验思考:
1.温度转换中的Command1命令的单击事件的程序代码是什么?
Private Sub Command1_Click()
Dim C!,F!
F=val(inputbox(“输入华氏温度”))
C=5/9*(F-32)
Msgbox “对应的摄氏温度为:” C
End Sub
2. 用三种除法运算(/ 、\、Mod)做计算,说明三种除法的区别?
/:两个数相除
\:两个数整除
Mod:两个数相除,得余数
3. 三种除法运算(/ 、\、Mod)做计算,Command1命令的单击事件的程序代码是什么?
Private Sub Command1_Click()
Dim a!,b!
a=val(text1.text)
b= val(text2.text)
text3.text=a/b
text4.text=a\b
text5.text=a mod b
End Sub
实验三 选择程序设计
一.实验目的:
1.掌握单分支与双分支条件语句的使用。
2.掌握多分支条件语句(If … Then … ElseIf)的使用。
3.掌握Select Case语句的使用及
文档评论(0)