实验二实验报告.docx

实验二实验报告.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

EndSub

PrivateSubCommand3_Click（）

End

EndSub

PrivateSubTimer1_Timer（）

DimhAsInteger,mAsInteger,sAsInteger

t=t-1

h=t\3600

m=t\60Mod60

s=tMod60

Label5.Caption=h&"小时"&m&"分"&s&"秒"

EndSub

【运行结果】（给出运行结果界面截图）

8.实验2.8

【内容描述】

计算出两点的距离

【分析】

（5）界面分析（用到哪些控件）

用文本框接收

（6）程序分析（用到哪些算法和关键技术）

使用inputbox函数实现点的坐标的输入

使用msgbox语句输出计算的结果

【设计】

（1）界面设计（给出界面截图）

（2）代码设计（给出程序代码）

DimaxAsInteger,ayAsInteger

DimbxAsInteger,byAsInteger

PrivateSubCommand1_Click（）

DimxAsString

DimnAsInteger

x=InputBox（"请输入第一个点的坐标（x,y）,以“，”分隔","输入点坐标"）

n=InStr（x,","）

ax=Val（Left（x,n-1））'取左边的数字

ay=Val（Right（x,Len（x）-n））

x=InputBox（"请输入第二个点的坐标（x,y）,以“，”分隔","输入点坐标"）

n=InStr（x,","）

bx=Val（Left（x,n-1））

by=Val（Right（x,Len（x）-n））

Label5.Caption=ax

Label6.Caption=ay

Label7.Caption=bx

Label8.Caption=by

EndSub

PrivateSubCommand2_Click（）

DimResultAsSingle

Result=Sqr（（ax-bx）^2+（ay-by）^2）

Text1.Text=Format（Result,"0.00"）

EndSub

PrivateSubCommand3_Click（）

End

EndSub

【运行结果】（给出运行结果界面截图）

实验总结（在实验中遇到的问题及如何解决的，以及个人学习本课程的经验心得等）

在遇到不懂得问题时，我认为出了请教老师与同学之外，最好的方法就是知己多多练习，只有通过实践得来的只是才会记得更牢固。

要求：

每个实验的4个题目的源码和实验报告，统一放到一个文件夹中提交，各文档命名规则如下：

程序命名规则：

实验2.1的程序命名为：

sy2_1.vbpsy2_1.frm

实验报告命名规则：

实验二_实验报告.doc

文件夹命名规则：

实验二_经济1401_2014012002_张某某