实验二实验报告.docx
- 文档编号:1065443
- 上传时间:2022-10-16
- 格式:DOCX
- 页数:17
- 大小:214.19KB
实验二实验报告.docx
《实验二实验报告.docx》由会员分享,可在线阅读,更多相关《实验二实验报告.docx(17页珍藏版)》请在冰豆网上搜索。
实验二实验报告
实验报告
课程名称VisualBasic程序设计
实验项目顺序结构程序设计
一、实验目的
1.掌握窗体、标签、文本框、命令按钮的常用属性、方法和时间的使用。
2.理解常量、变量、数据类型、运算符和表达式的使用。
3.掌握常用内部函数的功能和使用。
4.掌握赋值语句、End语句、Inputbox函数和MsgBox语句的使用。
5.掌握计时器空间的使用。
二、实验内容(任选4个题目)
1.实验2.1
【内容描述】
实际一个利用标签制作文字阴影效果的程序。
单机阴影按钮,标签文字出现黑色阴影,此时恢复按钮变为可用,阴影按钮变为不可用,单击恢复按钮,则恢复到原来的文字效果。
【分析】
(1)界面分析(用到哪些控件)
窗体、命令按钮。
(2)程序分析(用到哪些算法和关键技术)
1.利用两个标签制作阴影效果,两个标签显示的文字相同,字体相同,但颜色不同,作为阴影现实的标签文字为黑色;两个标签的位置不同,在属性窗口中调整提昂个标签的Tophe和Left属性值,时期产生交错的阴影效果;在程序中通过设置阴影标签的Visible属性即可实现阴影或取消阴影的效果。
2.通过设置按钮的Enabled属性可是按钮变为可用或不可用状态。
【设计】
(1)界面设计(给出界面截图)
(2)代码设计(给出程序代码)
PrivateSubCmdNew_Click()
Label1.Visible=True
CmdOld.Enabled=True
CmdNew.Enabled=False
EndSub
PrivateSubCmdOld_Click()
Label1.Visible=False
CmdOld.Enabled=False
CmdNew.Enabled=True
EndSub
【运行结果】(给出运行结果界面截图)
2.实验2.2
【内容描述】
设计一个简单的文本操作程序。
单机隶书按钮,可以设置文字的字体为隶书;单击放大和缩小按钮,可以改变文字的大小;单机复制按钮,可以将选择的文字复制到右侧的文本框,单击剪切按钮,可以讲选择的文字剪切到右侧文本框。
【分析】
(1)界面分析(用到哪些控件)
命令按钮、文本框、标签、窗体。
(2)程序分析(用到哪些算法和关键技术)
1.通过设置问问你笨矿的Font属性乐意改变文本框中文本的字体和字号。
2.在复制和剪切功能中,需要将选中的你诶荣及其字体格式复制或剪切到右侧的文本框。
3.通过文本框的SelText属性可以获得选中的内容。
【设计】
(1)界面设计(给出界面截图)
(2)代码设计(给出程序代码)
PrivateSubCommand1_Click()
Text1.FontName="隶书"
EndSub
PrivateSubCommand2_Click()
Text1.FontSize=Text1.FontSize+1
EndSub
PrivateSubCommand3_Click()
Text1.FontSize=Text1.FontSize-1
EndSub
PrivateSubCommand4_Click()
Text2.Text=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
EndSub
PrivateSubCommand5_Click()
Text2.Text=Text1.SelText
Text1.SelText=""
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
EndSub
PrivateSubForm_Load()
Text1.Text="欲穷千里目,更上一层楼"
EndSub
【运行结果】(给出运行结果界面截图)
1.实验2.3
【内容描述】
实际一个华氏温度与摄氏温度之家转换的程序。
首先在指定的文本框中输入数据,然后单击摄转华按钮,即可将摄氏温度转化为华氏温度;单击划转舍按钮即可将华氏温度转化微微摄氏温度,单击清楚按钮,则将文本框中的数据清除,并将输入焦点赚为化石文本框中,等待输入新的数据;推出按钮,则结束程序进行。
【分析】
(3)界面分析(用到哪些控件)
窗体、命令按钮、文本框、标签。
(4)程序分析(用到哪些算法和关键技术)
可以通过Format函数控制计算结果保留两位小数。
【设计】
(1)界面设计(给出界面截图)
(2)代码设计(给出程序代码)
PrivateSubCommand1_Click()
Dimf!
c!
f=Val(Text1.Text)
c=5/9*(f-32)
Text2.Text=Format(c,"0.00")
EndSub
PrivateSubCommand2_Click()
Dimf!
c!
c=Val(Text2.Text)
f=9/5*Val(Text2.Text)+32
Text1.Text=Format(f,"0.00")
EndSub
PrivateSubCommand3_Click()
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
PrivateSubCommand4_Click()
End
EndSub
【运行结果】(给出运行结果界面截图)
1.实验2.4
【内容描述】
设计一个简单的四则运算计算器程序。
在文本框输入数据,单击命令按钮,即可的到运算结果单击清楚即可清除文本框数据。
【分析】
(5)界面分析(用到哪些控件)
窗体、命令按钮、文本框、标签。
(6)程序分析(用到哪些算法和关键技术)
通过文本框的Text属性指控可以事先清除数据
【设计】
(1)界面设计(给出界面截图)
(2)代码设计(给出程序代码)
PrivateSubCmdAdd_Click()
label3.Caption=Val(Text1.Text)+Val(Text2.Text)
EndSub
PrivateSubCmdExit_Click()
End
EndSub
PrivateSubCmdSub_Click()
label3.Caption=Val(Text1.Text)-Val(Text2.Text)
EndSub
【运行结果】(给出运行结果界面截图)
1.实验2.5
【内容描述】
打印一个三角形图案的程序。
在行数文本框输入行数,字符文本框输入要打印的字符单击图案按钮即可显示三碱性的图案单击清除按钮即可清除图案单击推出按钮则推出程序。
【分析】
(7)界面分析(用到哪些控件)
窗体、命令按钮、文本框、标签、计时器。
(8)程序分析(用到哪些算法和关键技术)
使用两个计时器控件控制图案的打印
【设计】
(1)界面设计(给出界面截图)】
(2)代码设计(给出程序代码)
DimnAsInteger
DimchAsString
PrivateSubCommand1_Click()
DimhAsInteger
n=0
h=Val(Text1.Text)
ch=Text2.Text
Timer2.Interval=(h+1)*200
Timer1.Enabled=True
Timer2.Enabled=True
EndSub
PrivateSubTimer1_Timer()
n=n+1
PrintTab(28-n);String(2*n-1,ch)
EndSub
PrivateSubTimer2_Timer()
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubCommand2_Click()
Cls
EndSub
PrivateSubCommand3_Click()
End
EndSub
【运行结果】(给出运行结果界面截图)
1.实验2.6
【内容描述】
设计一个计算构成所发工资的各种面额钞票张数最少的付款方案
【分析】
(9)界面分析(用到哪些控件)
文本框、按钮
(10)程序分析(用到哪些算法和关键技术)
可以通过整除运算计算某种面额钞票的张数,通过求余运算计算去掉该种面额后剩余的工资数
【设计】
(1)界面设计(给出界面截图)
(2)代码设计(给出程序代码)
PrivateSubCommand1_Click()
DimxAsLong,yAsLong
x=Val(Text1.Text)
y=x\100:
Text2.Text=y
x=xMod100
y=x\50:
Text3.Text=y
x=xMod50
y=x\20:
Text4.Text=y
x=xMod20
y=x\10:
Text5.Text=y
x=xMod10
y=x\5:
Text6.Text=y
x=xMod5
Text7.Text=x
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text1.SetFocus
EndSub
【运行结果】(给出运行结果界面截图)
2.实验2.7
【内容描述】
倒计时,计时器
【分析】
(3)界面分析(用到哪些控件)
计时器
(4)程序分析(用到哪些算法和关键技术)
使用计时器控件控制倒计时,通过整除和求运算计算出剩余的时间
【设计】
(1)界面设计(给出界面截图)
(2)代码设计(给出程序代码)
DimtAsInteger
PrivateSubCommand1_Click()
t=Val(Text1.Text)*3600+Val(Text2.Text)*60
Timer1.Enabled=True
Command1.Enabled=False
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()
Command1.Enabled=True
Command2.Enabled=False
Timer1.Enabled=False
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 报告