试验二_试验报告

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()Labell.Visible = TrueCmdOld.E nabled = True

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

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

5、e Sub Command3_Click()Text1.FontSize = Text1.FontSize - 1 End SubPrivate Sub Command4_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSize End SubPrivate Sub Command5_Click()Text2.Text = Text1.SelTextText1.SelText = ""Text2.FontName = Text1.FontNa

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

7、析】（3）界面分析（用到哪些控件） 窗体、命令按钮、文本框、标签（4）程序分析（用到哪些算法和关键技术）可以通过Format函数控制计算结果保留两位小数【设计】（1）界面设计（给出界面截图）夬it1r工程 1 - ForA.1 (For>)回区1匚(2)代码设计(给出程序代码)Private Sub Comma nd1_Click()Dim f!, c!f = Val(Text1.Text)c = 5 / 9 * (f - 32)Text2.Text = Format(c, "0.00")End SubPrivate Sub Comma nd2_Click()Dim

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

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

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

11、rivate Sub Comma nd1_Click()Dim h As In tegern = 0h = Val(Text1.Text)ch = Text2.TextTimer2.I nterval = (h + 1) * 200Timerl.E nabled = TrueTimer2.E nabled = TrueEnd SubPrivate Sub Timer1_Timer()n = n + 1Print Tab(28 - n); String(2 * n - 1, ch)End SubPrivate Sub Timer2_Timer()Timer1.Enabled = FalseTim

12、er2.Enabled = FalseEnd SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd Sub运行结果】（给出运行结果界面截图）回区）111行数14字符P-11111 mini uniiiii 11L111L111L 111111111111111111111111111111111111111111111 1111111111111111111 111111111111111111111iiiiniimiiuiiiiiiii、liiiiiiiiiiiiiiiiiuiiiii清除iiL

13、iiiiiiiiiiiiiiiLiiiiiiii退岀1.实验2.6【内容描述】设计一个计算构成所发工资的各种面额钞票张数最少的付款方案【分析】（9）界面分析（用到哪些控件） 文本框、按钮（10）程序分析（用到哪些算法和关键技术）可以通过整除运算计算某种面额钞票的张数，通过求余运算计算去掉该种面额后剩余的工资数【设计】（1）界面设计（给出界面截图）实发工资元钞票魏量蓿除应付钞票数量10。兀票张10兀票50兀票张石兀票1张20兀票张1元票1张(2)代码设计(给出程序代码)Private Sub Comma nd1_Click()Dim x As Long, y As Longx = Val(Tex

14、t1.Text)y = x 100: Text2.Text = yx = x Mod 100y = x 50: Text3.Text = yx = x Mod 50y = x 20: Text4.Text = yx = x Mod 20y = x 10: Text5.Text = yx = x Mod 10y = x 5: Text6.Text = yx = x Mod 5Text7.Text = xEnd SubPrivate Sub Comma nd2_Click()Text1.Text =""Text2.Text =""Text3.Text =&q

15、uot;"Text4.Text =""Text5.Text =""Text6.Text =""Text7.Text =""Textl.SetFocusEnd Sub【运行结果】（给出运行结果界面截图）2. 实验2.7【内容描述】倒计时，计时器【分析】（3）界面分析（用到哪些控件）计时器（4）程序分析（用到哪些算法和关键技术）使用计时器控件控制倒计时，通过整除和求运算计算出剩余的时间【设计】（1）界面设计（给出界面截图）(2)代码设计(给出程序代码)Dim t As IntegerPrivate Sub C

16、ommand1_Click()t = Val(Text1.Text) * 3600 + Val(Text2.Text) * 60Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = True End SubPrivate Sub Command2_Click()Command1.Enabled = TrueCommand2.Enabled = FalseTimer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Timer1

17、_Timer()Dim h As Integer, m As Integer, s As Integert = t - 1h = t 3600m = t 60 Mod 60s = t Mod 60Label5.Caption = h & "小时" & m & " 分" & s & " 秒" End Sub【运行结果】(给出运行结果界面截图)5）倒计时C_|fn|fx定时时间:卩小时12 分钟距离结東时间还有：h卜时辽倾秒傅止 frW&实验2.8【内容描述】计算出两点的距离【分析】（5）界

18、面分析（用到哪些控件）用文本框接收（6）程序分析（用到哪些算法和关键技术） 使用inputbox函数实现点的坐标的输入使用msgbox语句输出计算的结果【设计】（1）界面设计（给出界面截图）g计算两点之何的距离-冈X破的坐标（X, y）:E点的坐标（s, y）:y距离厂输入两点坐标飞计算(2)代码设计(给出程序代码)Dim ax As In teger, ay As In tegerDim bx As In teger, by As In tegerPrivate Sub Comma nd1_Click()Dim x As String输入点坐标 ")输入点坐标 ")Dim n As Integerx = InputBox("请输入第一个点的坐标(x,y),以“，”分隔",n = InStr(x, ",")ax = Val(Left(x, n - 1)取左边的数字ay = Val(Right(x, Len(x) - n)x = InputBox("请输入第二个