VB实验报告含答案分解.docx
- 文档编号:10956030
- 上传时间:2023-02-23
- 格式:DOCX
- 页数:23
- 大小:136.84KB
VB实验报告含答案分解.docx
《VB实验报告含答案分解.docx》由会员分享,可在线阅读,更多相关《VB实验报告含答案分解.docx(23页珍藏版)》请在冰豆网上搜索。
VB实验报告含答案分解
实验报告
课程名称_程序设计基础VisualBasic_
班 级____________
姓 名_________
实验一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.两个按钮所使用的是什么事件?
代码分别是什么?
PrivateSubCommand1_Click()
Text1.text=“姓名”
EndSub
PrivateSubCommand2_Click()
Text1.text=””
EndSub
实验二简单程序设计数据类型及常用内部函数的简单应用
一.实验目的:
1.掌握VisualBasic数据类型的基本概念。
2.掌握用VisualBasic的各种运算符及表达式。
3.学习使用VisualBasic内部函数和数据输入、输出方法。
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命令的单击事件的程序代码是什么?
PrivateSubCommand1_Click()
DimC!
F!
F=val(inputbox(“输入华氏温度”))
C=5/9*(F-32)
Msgbox“对应的摄氏温度为:
”&C
EndSub
2.用三种除法运算(/、\、Mod)做计算,说明三种除法的区别?
/:
两个数相除
\:
两个数整除
Mod:
两个数相除,得余数
3.三种除法运算(/、\、Mod)做计算,Command1命令的单击事件的程序代码是什么?
PrivateSubCommand1_Click()
Dima!
b!
a=val(text1.text)
b=val(text2.text)
text3.text=a/b
text4.text=a\b
text5.text=amodb
EndSub
实验三选择程序设计
一.实验目的:
1.掌握单分支与双分支条件语句的使用。
2.掌握多分支条件语句(If…Then…ElseIf)的使用。
3.掌握SelectCase语句的使用及与多分支条件语句的区别。
4.熟练掌握时间过程的编写方法。
二.实验内容:
1.设计一个模拟简易计算器的程序,界面如图3-1所示。
要求:
输入两个操作数和一个操作符,根据操作符决定所进行的计算;
如果除数为0,用msgbox提示出错信息;
用if语句和selecetcase语句两种结构实现。
2.通过单选按钮和复选框控制文字的显示,程序窗口如图3-2所示。
图3-1
图3-2
三.实验结果:
对象属性设置
1.模拟简易计算器
对象
属性
属性值
说明
Label1
Caption
输入数1
标签
Label2
Caption
运算器
标签
Label3
Caption
输入数2
标签
Label4
Caption
结果
标签
Command1
Caption
Case结构
命令按钮
Command2
Caption
if结构
命令按钮
Text1-text4
Text
““
文本框
2.单选框与复选框
对象
属性
属性值
说明
Frame1
Caption
字体
框架
Frame2
Caption
字号
框架
Frame3
Caption
字型
框架
Label1
Caption
奥林匹克运动会
标签
Option1
Caption
宋体
单选按钮
Option2
Caption
仿宋
单选按钮
Option3
Caption
黑体
单选按钮
Option4
Caption
楷体
单选按钮
Option5
Caption
大
单选按钮
Option6
Caption
中
单选按钮
Option7
Caption
小
单选按钮
Check1
Caption
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四.实验思考:
1.模拟简易计算器Command1命令的单击事件的程序代码是什么?
PrivateSubCommand1_Click()
Dima!
b!
DimcAsString
a=Val(Text1.Text)
b=Val(Text3.Text)
c=Text2.Text
SelectCasec
Case“+”
Text4.Text=a+b
Case“-”
Text4.Text=a-b
Case“*”
Text4.Text=a*b
Case“/”
Ifb=0Then
MsgBox“除数为0.”
Else
Text4.Text=a/b
EndIf
EndSelect
EndSub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么?
PrivateSubCommand1_Click()
Dima!
b!
DimcAsString
a=Val(Text1.Text)
b=Val(Text3.Text)
c=Text2.Text
Ifc=“+”Then
Text4.Text=a+b
ElseIfc=“-”Then
Text4.Text=a-b
ElseIfc=“*”Then
Text4.Text=a*b
ElseIfc=“/”Then
Ifb=0Then
MsgBox“除数为0”
else
Text4.Text=a/b
EndIf
EndIf
EndSub
3.通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
Label1.FontName=“宋体”
ElseIfOption2.Value=TrueThen
Label1.FontName=“华文仿宋”
ElseIfOption3.Value=TrueThen
Label1.FontName=“黑体”
Else
Label1.FontName=“楷体_GB2312”
EndIf
IfOption5.Value=TrueThen
Label1.FontSize=24
ElseIfOption6.Value=TrueThen
Label1.FontSize=16
Else
Label1.FontSize=8
EndIf
IfCheck1.Value=1Then
Label1.FontBold=True
Else
Label1.FontBold=False
EndIf
IfCheck2.Value=1Then
Label1.FontItalic=True
Else
Label1.FontItalic=False
EndIf
IfCheck3.Value=1Then
Label1.FontUnderline=True
Else
Label1.FontUnderline=False
EndIf
IfCheck4.Value=1Then
Label1.FontStrikethru=True
Else
Label1.FontStrikethru=False
EndIf
EndSub
实验四循环程序设计
一.实验目的:
1.理解循环程序设计的特点。
2.掌握常用的循环语句。
3.掌握常用的循环算法。
4.掌握图片框、图像框和计时器。
二.实验内容:
1.求
2.设计一条滚动的广告字幕。
三.实验结果:
对象属性设置
1.求和结果要求窗体载入时直接显示,设置窗体的某个属性。
对象
属性
属性值
说明
Form1
AutoRedraw
True
窗体
2.滚动字幕。
对象
属性
属性值
说明
Label1
Caption
“欢迎使用VB”
标签
Timer1
Interval
1000
时钟
四.实验思考:
1.求和的窗体载入事件的程序代码是什么?
PrivateSubForm_Load()
Dimk%,s!
s=0
Fork=1To100
s=s+1/k
Nextk
Fork=1To50
s=s+k
Nextk
Prints
EndSub
2.滚动字幕的触发时钟控件的程序代码是什么?
。
PrivateSubTimer1_Timer()
IfLabel1.Left>Form1.WidthThen
Label1.Left=0
Else
Label1.Left=Label1.Left+100
EndIf
EndSub
实验五数组程序设计
一.实验目的:
1.熟练掌握固定数组。
2.掌握动态数组。
3.掌握列表框和组合框。
4.了解直线控件和形状控件。
二.实验内容:
1.设计一个程序,找出数组中的最大值、最小值,并计算所有元素的平均值。
在列表框中随机产生10个100到200之间的整数,在文本框中显示结果信息。
界面如图5-1所示。
图5-1窗体界面
三.实验结果:
对象属性设置
对象
属性
属性值
说明
Label1
Caption
10个100到200之间的整数
标签
Label2
Caption
最大值
标签
Label3
Caption
最小值
标签
Label4
Caption
平均值
标签
Command1
Caption
计算
命令按钮
Text1—Text4
Text
““
文本框
四.实验思考:
1.数组应在过程内还是过程外定义,定义的语句是什么?
过程外定义
Dima(10)AsInteger
2.在窗体载入时,在列表框中随机产生10个整数,则程序代码是什么?
PrivateSubForm_Load()
Dimi%
Fori=1To10
a(i)=Int(Rnd*101+100)
List1.AddItema(i)
Nexti
EndSub
3.单击命令按钮,在文本框中显示结果信息,则程序代码是什么?
PrivateSubCommand1_Click()
DimiAsInteger,max%,min%,avg!
max=a
(1)
min=a
(1)
avg=0
Fori=1To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 报告 答案 分解
![提示](https://static.bdocx.com/images/bang_tan.gif)