VB实验参考答案.docx
- 文档编号:1209865
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:25
- 大小:137.15KB
VB实验参考答案.docx
《VB实验参考答案.docx》由会员分享,可在线阅读,更多相关《VB实验参考答案.docx(25页珍藏版)》请在冰点文库上搜索。
VB实验参考答案
呼伦贝尔学院计算机科学与技术学院
实验报告
课程名称______________________
班 级______________________
姓 名__________学号_________
实验地点______________________
指导教师____________成绩________
实验一VB环境和创建一个简单的VB程序
一.实验目的:
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二.实验内容:
1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为“显示”和“清除”。
程序运行后,单击“显示”按钮,在文本框中输出一行信息;单击“清除”按钮,则清除文本框中的内容,运行界面如图1.1所示。
图1.1实验1-1运行界面
三.实验结果:
对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
改变标题内容
Label1
caption
xxxxx
改变标题内容
Text1
text
xxxxx
设置文本框里的内容
Command1
caption
显示
改变标题内容
Command2
caption
清除
改变标题内容
四.实验思考:
1.标签label控件设置的属性代码有哪些?
Caption,autosize,backstyle,boderstyle
2.两个按钮所使用的是什么事件?
代码分别是什么?
PrivateSubCommand1_Click()
Text1.text=“xxxxx”
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()
Dimf,cAsSingle
f=Val(InputBox("请输入华氏温度:
","华氏温度",100))
c=5/9*(f-32)
MsgBox("转化后的摄氏度为:
")&c
EndSub
2.用三种除法运算(/、\、Mod)做计算,说明三种除法的区别?
/:
\:
保留整数部分,不保留小数部分
Mod:
求余数。
3.三种除法运算(/、\、Mod)做计算,Command1命令的单击事件的程序代码是什么?
PrivateSubCommand1_Click()
Dima,bAsSingle
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()
Dimx,y,zAsSingle,kAsString
x=Val(Text1.Text)
y=Val(Text3.Text)
k=Text2.Text
SelectCasek
Case"+"
z=x+y
Case"-"
z=x-y
Case"*"
z=x*y
Case"/"
z=x/y
Ify=0Then
MsgBox("除数不能为零")
Text3.Text=""
Text3.SetFocus
Else
z=x/y
EndIf
EndSelect
Text4.Text=z
EndSub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么?
PrivateSubCommand2_Click()
Dimx,y,zAsSingle,kAsString
x=Val(Text1.Text)
y=Val(Text3.Text)
k=Text2.Text
Ifk="+"Then
z=x+y
ElseIfk="-"Then
z=x-y
ElseIfk="*"Then
z=x*y
ElseIfk="/"Then
Ify=0Then
MsgBox("除数不能为零")
Text3.Text=""
Text3.SetFocus
Else
z=x/y
EndIf
EndIf
Text4.Text=z
EndSub
3.通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
label1.FontName="宋体"
ElseIfOption2.Value=TrueThen
label1.FontName="华文仿宋"
ElseIfOption3.Value=TrueThen
Label1.FontName="黑体"
Else
Label1.FontName="楷体"
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
Text1.FontUnderline=True
Else
Text1.FontUnderline=False
EndIf
IfCheck4.Value=1Then
label1.FontStrikethru=True
Else
label1.FontStrikethru=False
EndIf
EndSub
实验四循环程序设计
一.实验目的:
1.理解循环程序设计的特点。
2.掌握常用的循环语句。
3.掌握常用的循环算法。
4.掌握图片框、图像框和计时器。
二.实验内容:
1.求
2.设计一条滚动的广告字幕。
三.实验结果:
对象属性设置
1.求和结果要求窗体载入时直接显示,设置窗体的某个属性。
对象
属性
属性值
说明
Form1
caption
“求和”
这个窗体是求和用的
2.滚动字幕。
对象
属性
属性值
说明
Label1
caption
“滚动文字”
填写广告词
Timer1
interval
1000
每一秒运行一次
四.实验思考:
1.求和的窗体载入事件的程序代码是什么?
PrivateSubForm_Load()
Dimk%,s1!
s2%,s%
k=1
s1=0
s2=0
s=0
Fork=1To100
s1=s1+1/k
Nextk
Print"s1:
"&s1
Fork=1To50
s2=s2+k
Nextk
Print"s2:
"&s2
s=s1+s2
Print"s:
"&s
EndSub
2.滚动字幕的触发时钟控件的程序代码是什么?
。
PrivateSubTimer1_Timer()
IfLabel1.Left+Label1.Width>0Then
Label1.MoveLabel1.Left-20
Else
Label1.Left=Form1.ScaleWidth
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(9)AsInteger
2.在窗体载入时,在列表框中随机产生10个整数,则程序代码是什么?
PrivateSubForm_Load()
Fori=oTo9
a(i)=Int(Rnd*(200-100+1)+100)
List1.AddItemStr(a(i))
Next
EndSub
3.单击命令按钮,在文本框中显示结果信息,则程序代码是什么?
PrivateSubCommand1_Click()
Dimmax%,min%,averageAsSingle,sum%
max=100
min=200
sum=0
Fori=0To9
Ifa(i)>maxThenmax=a(i)
Ifa(i) sum=sum+a(i) Nexti average=sum/10 Text1.Text=max Text2.Text=min Text3.Text=average EndSub 实验六过程程序设计 一.实验目的: 1.掌握子过程的定义和调用方法。 2.掌握函数过程的定义和调用方法。 3.理解作用域和生存期。 4.掌握滚动条。 二.实验内容: 1.写两个函数,分别求两个数的最大公约数和最小公倍数,编写子过程求最大公约数,函数过程求最小公倍数。 要求从文本框中输入两个数。 界面如图6-1所示。 图6-1 2.设计一个用滚动条改变图片背景色的程序。 界面如图6-2所示 图6-2 三.实验结果: 对象属性设置 1.结果要求单击命令按钮分别显示,设置对象的属性。 对象 属性 属性值 说明 Label1 caption m 设置标题内容 Label2 caption n Label3 caption 最大公约数 Label4 caption 最小公倍数 Text1-Text4 text “” Command1 caption 子过程 Command2 caption 函数过程 2.设置滚动条主要属性值。 对象 属性 属性值 说明 HScroll1-HScroll3 min 0 设置最小值 HScroll1-HScroll3 max 255 设置最大值 四.实验思考: 1.单击子过程命令按钮,在文本框Text3中显示结果信息,子过程的程序代码是什么? PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,rAsInteger m=Text1.Text n=Text2.Text Ifm t=m: m=n: n=t EndIf Callgys(m,n,r) Text3.Text=r EndSub PrivateSubgys(ByValm%,ByValn%,r%) Do r=xMody Ifr=0Then z=y ExitDo EndIf x=y y=r Loop EndSub 2.单击函数过程命令按钮,在文本框Text4中显示结果信息,函数过程的程序代码是什么? PrivateSubCommand2_Click() DimmAsInteger,nAsInteger,pAsInteger m=Text1.Text n=Text2.Text p=m*n Ifm t=m: m=n: n=t EndIf p=p/gbs(m,n) Text4.Text=p EndSub PrivateFunctiongbs(mAsInteger,nAsInteger)AsInteger Do r=xMody Ifr=0Then gbs=y ExitDo EndIf x=y y=r Loop EndFunction 3.拖动滚动条的滑块,可改变图片控件的背景颜色,三个滚动条的程序代码相似,请写出HScroll1的事件过程。 DimrAsInteger,gAsInteger,bAsInteger PrivateSubHScroll1_Change() r=HScroll1.Value g=HScroll2.Value b=HScroll3.Value Picture1.BackColor=RGB(r,g,b) EndSub 2.滚动字幕的触发时钟控件的程序代码是什么? 。 PrivateSubTimer1_Timer() IfLabel1.Left+Label1.Width>0Then Label1.MoveLabel1.Left-20 Else Label1.Left=Picture1.ScaleWidth EndIf EndSub 实验七界面设计 一.实验目的: 1.掌握多窗体程序设计的方法。 2.掌握下拉式菜单。 3.了解通用对话框。 二.实验内容: 1.编写密码登录系统。 在窗体1输入用户名和密码,如果密码正确就弹出第二个窗体,第二个窗体自 行设计操作内容;如果密码不正确,弹出信息框,显示“用户名或密码错误,请重新输入”,回到 窗体1继续输入用户名和密码。 密码输入有三次机会,超过三次就弹出第三个窗口,显示“对不起, 你不能使用该系统! ”(注: 凡是文字提示内容可自行设计,不要求与题目一样。 三个窗体界面可参照图7-1图7-2图7-3所示。 ) 图7-1 图7-2 图7-3 2.利用通用对话框设计一个简单的文本编辑器,具有打开、保存、字体、颜色功能。 要求用菜单实现, 有“文件”和“格式”两个菜单,“文件”菜单下包含“打开”、“保存”和“退出”三项。 “格式” 菜单下包含“字体”和“颜色”两项,打开文件显示在文本框中。 (窗体界面可参照图7-4所示。 ) 图7-4 三.实验结果: 对象属性设置 1.设置三个窗体的控件及其属性。 对象 控件名称 属性 属性值 Form1 Form1 Caption Form1 Form2 Form2 Caption Form2 Form3 Form3 Caption Form3 2.设置窗体控件及属性值。 对象 控件名称 属性 属性值 窗体 Form1 Caption Form1 文本框1 Text1 Text Text1 打开 Open Caption 打开 保存 Save Caption 保存 退出 Exit Caption 退出 字体 Font Caption 字体 颜色 Color Caption 颜色 四.实验思考: 1.下列程序为实验内容1的部分程序代码,单击确定命令按钮的程序代码是什么? PrivateSubForm_Load() Text2.PasswordChar="*" Text2.Text="" Text1="" EndSub PrivateSubCommand1_Click() StaticiAsInteger i=i+1 Ifi>=3Then Form1.Hide Form3.Show ExitSub EndIf IfText1.Text=“abc”AndText2.Text=“123”Then Form1.Hide Form2.Show Else MsgBox“用户名或密码错误,请重新输入” Text1.Text=““ Text2.Text=““ Text1.setfoucs Endif EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 参考答案
![提示](https://static.bingdoc.com/images/bang_tan.gif)