实验二-实验报告.doc

《实验二-实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验报告课程名称VisualBasic程序设计实验项目顺序结构程序设计一、实验目的1.掌握窗体、标签、文本框、命令按钮的常用属性、方法和时间的使用。2.理解常量、变量、数据类型、运算符和表达式的使用。3.掌握常用内部函数的功能和使用。4.掌握赋值语句、End语句、Inputbox函数和MsgBox语句的使用。5.掌握计时器空间的使用。二、实验内容（任选4个题目）1.实验2.1【内容描述】实际一个利用标签制作文字阴影效果的程序。单机阴影按钮，标签文字出现黑色阴影，此时恢复按钮变为可用，阴影按钮变为不可用，单击恢复按钮，则恢复到原来的文字效果。【分析】（1）界面分析（

2、用到哪些控件）窗体、命令按钮。（2）程序分析（用到哪些算法和关键技术）1.利用两个标签制作阴影效果，两个标签显示的文字相同，字体相同，但颜色不同，作为阴影现实的标签文字为黑色；两个标签的位置不同，在属性窗口中调整提昂个标签的Tophe和Left属性值，时期产生交错的阴影效果；在程序中通过设置阴影标签的Visible属性即可实现阴影或取消阴影的效果。2.通过设置按钮的Enabled属性可是按钮变为可用或不可用状态。【设计】（1）界面设计（给出界面截图）（2）代码设计（给出程序代码）PrivateSubCmdNew_Click()Label1.Visible=True

3、CmdOld.Enabled=TrueCmdNew.Enabled=FalseEndSubPrivateSubCmdOld_Click()Label1.Visible=FalseCmdOld.Enabled=FalseCmdNew.Enabled=TrueEndSub【运行结果】（给出运行结果界面截图）2.实验2.2【内容描述】设计一个简单的文本操作程序。单机隶书按钮，可以设置文字的字体为隶书；单击放大和缩小按钮，可以改变文字的大小；单机复制按钮，可以将选择的文字复制到右侧的文本框，单击剪切按钮，可以讲选择的文字剪切到右侧文本框。【分析】（1）界面分析（用到哪些控

4、件）命令按钮、文本框、标签、窗体。（2）程序分析（用到哪些算法和关键技术）1.通过设置问问你笨矿的Font属性乐意改变文本框中文本的字体和字号。2.在复制和剪切功能中，需要将选中的你诶荣及其字体格式复制或剪切到右侧的文本框。3.通过文本框的SelText属性可以获得选中的内容。【设计】（1）界面设计（给出界面截图）（2）代码设计（给出程序代码）PrivateSubCommand1_Click()Text1.FontName="隶书"EndSubPrivateSubCommand2_Click()Text1.FontSize=Text1.FontSize+1EndS

5、ubPrivateSubCommand3_Click()Text1.FontSize=Text1.FontSize-1EndSubPrivateSubCommand4_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSubPrivateSubCommand5_Click()Text2.Text=Text1.SelTextText1.SelText=""Text2.FontName=Text1.FontNameText2.FontS

6、ize=Text1.FontSizeEndSubPrivateSubForm_Load()Text1.Text="欲穷千里目，更上一层楼"EndSub【运行结果】（给出运行结果界面截图）1.实验2.3【内容描述】实际一个华氏温度与摄氏温度之家转换的程序。首先在指定的文本框中输入数据，然后单击摄转华按钮，即可将摄氏温度转化为华氏温度；单击划转舍按钮即可将华氏温度转化微微摄氏温度，单击清楚按钮，则将文本框中的数据清除，并将输入焦点赚为化石文本框中，等待输入新的数据；推出按钮，则结束程序进行。【分析】（1）界面分析（用到哪些控件）窗体、命令按钮、文本框、标签。（2）程序

7、分析（用到哪些算法和关键技术）可以通过Format函数控制计算结果保留两位小数。【设计】（1）界面设计（给出界面截图）（2）代码设计（给出程序代码）PrivateSubCommand1_Click()Dimf!,c!f=Val(Text1.Text)c=5/9*(f-32)Text2.Text=Format(c,"0.00")EndSubPrivateSubCommand2_Click()Dimf!,c!c=Val(Text2.Text)f=9/5*Val(Text2.Text)+32Text1.Text=Format(f,"0.00")EndSubPrivate

8、SubCo