实验二_实验报告

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

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

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

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

5、Size + 1End SubPrivate Sub Command3_Click() Text1.FontSize = Text1.FontSize - 1End SubPrivate Sub Command4_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSizeEnd SubPrivate Sub Command5_Click() Text2.Text = Text1.SelText Text1.SelText = "" Tex

6、t2.FontName = Text1.FontName Text2.FontSize = Text1.FontSizeEnd SubPrivate Sub Form_Load() Text1.Text = "欲穷千里目，更上一层楼"End Sub【运行结果】（给出运行结果界面截图） 1. 实验2.3【内容描述】 实际一个华氏温度与摄氏温度之家转换的程序。首先在指定的文本框中输入数据，然后单击摄转华按钮，即可将摄氏温度转化为华氏温度；单击划转舍按钮即可将华氏温度转化微微摄氏温度，单击清楚按钮，则将文本框中的数据清除，并将输入焦点赚为化石文本框中，等待输入新的数据； 推出按钮

7、，则结束程序进行。【分析】（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 SubPrivate Sub Command2_Click() Dim f!, c! c = V

8、al(Text2.Text) f = 9 / 5 * Val(Text2.Text) + 32 Text1.Text = Format(f, "0.00")End SubPrivate Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocusEnd SubPrivate Sub Command4_Click() EndEnd Sub【运行结果】（给出运行结果界面截图） 1. 实验2.4【内容描述】 设计一个简单的四则运算计算器程序。在文本框输入数据，单击命令

9、按钮，即可的到运算结果单击清楚即可清除文本框数据。【分析】（5） 界面分析（用到哪些控件） 窗体、命令按钮、文本框、标签。（6） 程序分析（用到哪些算法和关键技术） 通过文本框的Text属性指控可以事先清除数据【设计】（1）界面设计（给出界面截图） （2）代码设计（给出程序代码） Private Sub CmdAdd_Click() label3.Caption = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub CmdExit_Click() EndEnd SubPrivate Sub CmdSub_Click() label3.Cap

10、tion = Val(Text1.Text) - Val(Text2.Text)End Sub【运行结果】（给出运行结果界面截图）1. 实验2.5【内容描述】 打印一个三角形图案的程序。在行数文本框输入行数，字符文本框输入要打印的字符单击图案按钮即可显示三碱性的图案单击清除按钮即可清除图案单击推出按钮则推出程序。【分析】（7） 界面分析（用到哪些控件） 窗体、命令按钮、文本框、标签、计时器。（8） 程序分析（用到哪些算法和关键技术）使用两个计时器控件控制图案的打印【设计】（1）界面设计（给出界面截图）】 （2）代码设计（给出程序代码） Dim n As IntegerDim ch As Str

11、ingPrivate 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 = TrueEnd SubPrivate Sub Timer1_Timer() n = n + 1 Print Tab(28 - n); String(2 * n - 1, ch)End SubPrivate Sub Timer2_Timer() Timer1.Enabled =

12、 False Timer2.Enabled = FalseEnd SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Command3_Click() EndEnd Sub【运行结果】（给出运行结果界面截图）1. 实验2.6【内容描述】设计一个计算构成所发工资的各种面额钞票张数最少的付款方案【分析】（9） 界面分析（用到哪些控件）文本框、按钮（10） 程序分析（用到哪些算法和关键技术）可以通过整除运算计算某种面额钞票的张数，通过求余运算计算去掉该种面额后剩余的工资数【设计】（1）界面设计（给出界面截图）（2）代码设计（给出程序代码）Pri

13、vate 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 = xEnd SubPrivate Sub Comman

14、d2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text1.SetFocusEnd Sub【运行结果】（给出运行结果界面截图）2. 实验2.7【内容描述】倒计时，计时器【分析】（3） 界面分析（用到哪些控件）计时器（4） 程序分析（用到哪些算法和关键技术）使用计

15、时器控件控制倒计时，通过整除和求运算计算出剩余的时间【设计】（1）界面设计（给出界面截图）（2）代码设计（给出程序代码）Dim t As IntegerPrivate Sub Command1_Click() t = Val(Text1.Text) * 3600 + Val(Text2.Text) * 60 Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Command1.Enabled = True Command2.Enable

16、d = False Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate 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 S

17、ub【运行结果】（给出运行结果界面截图）8. 实验2.8【内容描述】计算出两点的距离【分析】（5） 界面分析（用到哪些控件）用文本框接收（6） 程序分析（用到哪些算法和关键技术）使用inputbox函数实现点的坐标的输入使用msgbox语句输出计算的结果【设计】（1）界面设计（给出界面截图）（2）代码设计（给出程序代码） Dim ax As Integer, ay As Integer Dim bx As Integer, by As IntegerPrivate Sub Command1_Click() Dim x As String Dim n As Integer x = InputBo

18、x("请输入第一个点的坐标(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 = byEnd SubPrivate Sub Command2_Click() Dim Result As Single Result = Sqr(ax - bx) 2 + (ay - by) 2) Text1.Text = Format(Result, "0.00")E