VB程序设计实验报告电子版.doc

深 圳 大 学 实 验 报 告 课程名称： Visual Basic程序设计 实验项目名称： 选择结构和循环结构程序设计 学院： 专业： 指导教师： 报告人： 学号： 班级： 实验时间： 实验报告提交时间： 一、实验目的赋值语句If条件语句Select Case语句。二、实验环境Visual Basic 6.0企业版 三、实验内容和步骤内容 2、步骤 图002 （2）控件属性的设置：无 （3 ）编写事件代码： Private Sub Form_Click() a = InputBox(请输入第一个数) b = InputBox(请输入第二个数) c = InputBox(请输入第三个数) 求最大数 m1 = a If b m1 Then m1 = b If c m1 Then m1 = c 求最小数 m2 = a If b m2 Then m2 = b If c m2 Then m2 = c MsgBox 最大值是: m1 最小值是: m2 End Sub （4）运行结果实验 A B C Max Min 1 2 3 3 1 11 22 33 33 11 24 8 54 54 8 6100 5100 1300 6100 1300 123456789 987654321 987654320 987654321 123456789 12.3 12.4 12.5 12.5 12.3 3.1415927 3.1415927 3.1415927 3.1415927 3.1415927 2.71 2.718 2.71828 2.71828 2.71 1.5616712 654.54665 12 654.54665 1.5616712 9.88E+09 123453.46 45312.146 9.88E+09 45312.146 【练习5-6】 （1）窗体设计：在窗体中设计1个命令按钮，2个标签和1个文本框，如图003。 图003 （2）控件属性的设置： 对象名 属性名 属性值 说明 Command1 Caption 评分 提示 Label1 Caption 请输入成绩: 提示 Text1 Caption 输入成绩 Label2 Caption 输出等级 （3）编写事件代码： Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Is 0, Is 100 Label2.Caption = MsgBox 输入的数据超出范围，请重新输入 Case Is = 90 Label2.ForeColor = vbBlue Label2.Caption = 优 Case Is = 80 Label2.ForeColor = vbBlue Label2.Caption = 良 Case Is = 70 Label2.ForeColor = vbBlue Label2.Caption = 中 Case Is = 60 Label2.ForeColor = vbBlue Label2.Caption = 及格 Case Else Label2.ForeColor = vbRed Label2.Caption = 不及格 End Select Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub （4）运行结果实验Command1 Caption 打印所有100-1000之间的水仙花数 提示 （3）算法设计 （4）编写事件代码： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim s1 As Integer, s2 As Integer For