实验二_实验报告

实 验 报 告

课程名称 Visual Basic 程序设计 实验项目 顺序结构程序设计

一、 实验目的

1.掌握窗体、标签、文本框、命令按钮的常用属性、方法和时间的使用。 2.理解常量、变量、数据类型、运算符和表达式的使用。 3.掌握常用内部函数的功能和使用。

4.掌握赋值语句、End语句、Inputbox函数和MsgBox语句的使用。 5.掌握计时器空间的使用。

二、 实验内容（任选4个题目）

1. 实验2.1

【内容描述】

实际一个利用标签制作文字阴影效果的程序。单机阴影按钮，标签文字出现黑色阴影，此时恢复按钮变为可用，阴影按钮变为不可用，单击恢复按钮，则恢复到原来的文字效果。

【分析】

（1） 界面分析（用到哪些控件） 窗体、命令按钮。

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

1.利用两个标签制作阴影效果，两个标签显示的文字相同，字体相同，但颜色不同，作为阴影现实的标签文字为黑色；两个标签的位置不同，在属性窗口中调整提昂个标签的Tophe 和Left属性值，时期产生交错的阴影效果；在程序中通过设置阴影标签的Visible属性即可实现阴影或取消阴影的效果。 2.通过设置按钮的Enabled属性可是按钮变为可用或不可用状态。

【设计】

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

（2）代码设计（给出程序代码） Private Sub CmdNew_Click() Label1.Visible = True CmdOld.Enabled = True CmdNew.Enabled = False End Sub

Private Sub CmdOld_Click() Label1.Visible = False CmdOld.Enabled = False CmdNew.Enabled = True End Sub

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

2. 实验2.2

【内容描述】

设计一个简单的文本操作程序。单机隶书按钮，可以设置文字的字体为隶书；单击放大和缩小按钮，可以改变文字的大小；单机复制按钮，可以将选择的文字复制到右侧的文本框，单击剪切按钮，可以讲选择的文字剪切到右侧文本框。

【分析】

（1） 界面分析（用到哪些控件） 命令按钮、文本框、标签、窗体。

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

1.通过设置问问你笨矿的Font属性乐意改变文本框中文本的字体和字号。 2.在复制和剪切功能中，需要将选中的你诶荣及其字体格式复制或剪切到右侧的文本框。

3.通过文本框的SelText属性可以获得选中的内容。

【设计】

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

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

Private Sub Command1_Click()

Text1.FontName = \"隶书\" End Sub

Private Sub Command2_Click() Text1.FontSize = Text1.FontSize + 1 End Sub

Private Sub Command3_Click() Text1.FontSize = Text1.FontSize - 1 End Sub

Private Sub Command4_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub

Private Sub Command5_Click() Text2.Text = Text1.SelText Text1.SelText = \"\"

Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub

Private Sub Form_Load()

Text1.Text = \"欲穷千里目，更上一层楼\" End Sub

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

1. 实验2.3

【内容描述】

实际一个华氏温度与摄氏温度之家转换的程序。首先在指定的文本框中输入数据，然后单击摄转华按钮，即可将摄氏温度转化为华氏温度；单击划转舍按钮即可将华氏温度转化微微摄氏温度，单击清楚按钮，则将文本框中的数据清除，并将输入焦点赚为化石文本框中，等待输入新的数据； 推出按钮，则结束程序进行。

【分析】

（3） 界面分析（用到哪些控件） 窗体、命令按钮、文本框、标签。

（4） 程序分析（用到哪些算法和关键技术） 可以通过Format函数控制计算结果保留两位小数。

【设计】

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

（2）代码设计（给出程序代码） Private Sub Command1_Click() Dim f!, c! f = Val(Text1.Text) c = 5 / 9 * (f - 32)

Text2.Text = Format(c, \"0.00\") End Sub

Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text)

f = 9 / 5 * Val(Text2.Text) + 32 Text1.Text = Format(f, \"0.00\") End Sub

Private Sub Command3_Click()

Text1.Text = \"\" Text2.Text = \"\" Text1.SetFocus End Sub

Private Sub Command4_Click() End End Sub

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

1. 实验2.4

【内容描述】

设计一个简单的四则运算计算器程序。在文本框输入数据，单击命令按钮，即可的到运算结果单击清楚即可清除文本框数据。

【分析】

（5） 界面分析（用到哪些控件） 窗体、命令按钮、文本框、标签。

（6） 程序分析（用到哪些算法和关键技术） 通过文本框的Text属性指控可以事先清除数据

【设计】

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

（2）代码设计（给出程序代码） Private Sub CmdAdd_Click()

label3.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub

Private Sub CmdExit_Click() End End Sub

Private Sub CmdSub_Click()

label3.Caption = Val(Text1.Text) - Val(Text2.Text) End Sub

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

1. 实验2.5

【内容描述】

打印一个三角形图案的程序。在行数文本框输入行数，字符文本框输入要打印的字符单击图案按钮即可显示三碱性的图案单击清除按钮即可清除图案单击推出按钮则推出程序。 【分析】

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

窗体、命令按钮、文本框、标签、计时器。

（8） 程序分析（用到哪些算法和关键技术） 使用两个计时器控件控制图案的打印

【设计】

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

（2）代码设计（给出程序代码） Dim n As Integer Dim ch As String

Private Sub Command1_Click() Dim h As Integer n = 0

h = Val(Text1.Text) ch = Text2.Text

Timer2.Interval = (h + 1) * 200 Timer1.Enabled = True Timer2.Enabled = True End Sub

Private Sub Timer1_Timer() n = n + 1

Print Tab(28 - n); String(2 * n - 1, ch) End Sub

Private Sub Timer2_Timer() Timer1.Enabled = False Timer2.Enabled = False End Sub

Private Sub Command2_Click() Cls End Sub

Private Sub Command3_Click() End End Sub

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

1. 实验2.6

【内容描述】

设计一个计算构成所发工资的各种面额钞票张数最少的付款方案 【分析】

（9） 界面分析（用到哪些控件） 文本框、按钮

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

可以通过整除运算计算某种面额钞票的张数，通过求余运算计算去掉该种面额后剩余的工资数 【设计】

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

（2）代码设计（给出程序代码） Private Sub Command1_Click() Dim x As Long, y As Long x = Val(Text1.Text) y = x \\ 100: Text2.Text = y x = x Mod 100

y = x \\ 50: Text3.Text = y x = x Mod 50

y = x \\ 20: Text4.Text = y x = x Mod 20

y = x \\ 10: Text5.Text = y x = x Mod 10

y = x \\ 5: Text6.Text = y x = x Mod 5 Text7.Text = x End Sub

Private Sub Command2_Click() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" Text5.Text = \"\" Text6.Text = \"\"

Text7.Text = \"\" Text1.SetFocus End Sub

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

2. 实验2.7

【内容描述】 倒计时，计时器 【分析】

（3） 界面分析（用到哪些控件） 计时器

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

使用计时器控件控制倒计时，通过整除和求运算计算出剩余的时间 【设计】

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

（2）代码设计（给出程序代码） Dim t As Integer

Private Sub Command1_Click()

t = Val(Text1.Text) * 3600 + Val(Text2.Text) * 60 Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub

Private Sub Command2_Click() Command1.Enabled = True Command2.Enabled = False Timer1.Enabled = False End Sub

Private Sub Command3_Click() End End Sub

Private Sub Timer1_Timer()

Dim h As Integer, m As Integer, s As Integer t = t - 1 h = t \\ 3600 m = t \\ 60 Mod 60 s = t Mod 60

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

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

8. 实验2.8

【内容描述】 计算出两点的距离 【分析】

（5） 界面分析（用到哪些控件） 用文本框接收

（6） 程序分析（用到哪些算法和关键技术） 使用inputbox函数实现点的坐标的输入 使用msgbox语句输出计算的结果 【设计】

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

（2）代码设计（给出程序代码） Dim ax As Integer, ay As Integer Dim bx As Integer, by As Integer Private Sub Command1_Click()

Dim x As String Dim n As Integer

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 End Sub

Private Sub Command2_Click() Dim Result As Single

Result = Sqr((ax - bx) ^ 2 + (ay - by) ^ 2) Text1.Text = Format(Result, \"0.00\") End Sub

Private Sub Command3_Click() End End Sub

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

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

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

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

程序命名规则：实验2.1的程序命名为：sy2_1.vbp sy2_1.frm

实验报告命名规则：实验二_实验报告.doc

文件夹命名规则：实验二_经济1401_2014012002_张某某