[vb简单编程作业.docVIP

试 验 报 告 院（系）： 课程名称： 日期： 班级 机自1201 学号 201204010129 机房 院楼406 专业 机自 姓名 周翊帆 时间 2015.4.26 实验名称 创建简单VB/VB.NET程序 成绩评定 所用软件 Visual Basic 6.0 教师签名 实验目的 及要求 1. 了解VB/VB.NET系统对计算机软件、硬件的要求，掌握启动和退出VB/VB.NET的方法； 2. 了解和使用VB/VB.NET集成开发环境各窗口、菜单的一般功能； 3. 了解常用控件的生成及其属性、事件和方法； 4. 熟悉编辑、调试、运行、保存一个VB/VB.NET应用程序的全过程。 1. 请写程序求出下列表达式的值。 Format(6543.21,##,###.000) Str(Int(-2.3)+Sgn(6)+Sqr(25)) CHR(ASC(+)) Int(-17.8) + Fix(-17.8) + Sgn(-17.8) 代码： Private Sub Command1_Click() Dim a#, b$, c$, d# a = Format(6543.21, ##,##.000) b = Str(Int(-2.3) + Sgn(6) + Sqr(25)) c = Chr(Asc(+)) d = Int(-17.8) + Fix(-17.8) + Sgn(-17.8) Text1.Text = a Text2.Text = b Text3.Text = c Text4.Text = d End Sub Private Sub Command2_Click() Unload Me End Sub 运行结果如图： 2．建立程序，功能如下： 程序中有一个窗体，一个文本框和四个按钮，三个按钮分别显示“红色”、“绿色”、“蓝色”字样，一个按钮显示“退出”字样。当按“红色”按钮时，文本框中出现红色的文字“红色”；当按“绿色”按钮时，文本框中出现绿色的文字“绿色”；当按“蓝色”按钮时，文本框中出现蓝色的文字“蓝色”。当按“退出”按钮时，结束程序。 代码： Private Sub Command1_Click() Text1.Text = 红色 Text1.ForeColor = vbRed End Sub Private Sub Comman2_Click() Text1.Text = 绿色 Text1.ForeColor = vbGreen End Sub Private Sub Command3_Click() Text1.Text = 蓝色 Text1.ForeColor = vbBlue End Sub Private Sub Command4_Click() Unload Me End Sub 运行结果如图： 3 已知三角形三条边的边长分别为a、b、c。请编写程序计算三角形面积： 面积=。其中：s=（a+b+c）/2（要求输入合理）。 代码： Dim a#, b#, c#, d#, s# Private Sub cm1_Click() Dim a#, b#, c#, d#, s# a = Text1.Text b = Text2.Text c = Text3.Text If a + b c And b + c a And a + c b Then s = (a + b + c) / 2 d = Sqr(s * (s - a) * (s - b) * (s - c)) Text4.Text = d Else MsgBox 输入错误，请重新输入 End If End Sub Private Sub Command1_Click() Unload Me End Sub 运行结果如图： 4. 创建如图1.3所示界面并实现：输入四门课程成绩，并计算总分和平均分输出到相应文本框。 代码： Dim a%, b%, c%, d%, s%, p# Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text d = Text4.Text s = a + b + c + d p = s / 4 Text5.Text = s Text6.Text = p End Sub Private Sub Command2_Click() Unload Me End Sub 运行结果如图： 5. 在程序中声明一个常量，然后改变其值，观察程序执行结果；分别定义全局变量、窗体级全局