1、 1 / 9实 验 报 告年 月 日 第 节 楼 号室课程名称 计算机程序设计学生姓名 学号 专业与年级进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号实验项目名称 Visual Basic 程序设计实验预习报告三2 / 9一、实验目的1了解 VisualBasic 的 集 成 开 发 环 境 （ IDE） ， 熟 悉 主 要 窗 口 的 作 用 。2掌握简单的 Visual Basic 应用程序的建立、编辑、调试、运行和保存。3掌握 Visual Basic 窗体的常用属性、方法和件。4掌握 Visual Basic 的基本数据类型和运符。5掌握 Visual Basi
2、c 的常量、变量的定义和使用。6掌握表达式和常用内部函数的使用。二、实验内容（1）创建用户界面（2）设置对象属性（3）编写程序代码（4）保存工程选 择（5）生成可执行文件三、实验过程（步骤、命令）及结果（截图、源程序）1. 打开工程文件 Dsg0301.vbp，在标题为“整除运算”的窗体 Form1 上，添加一个标题为“请输入整数 n”的标签 Label1；然后再添加一个标题为 “判断”的命令按钮Command1；接着再添加一个文本内容为空的文本框 Text1；最后添加一个标题为空、有边框的标签 Label2。程序运行时，在 Text1 中输入一个整数 n，单击“判断”按钮，判断整数 n 能否
3、既被 3 整除也被 7 整除。如果能被 3 和 7 整除，则在 Label2 中输出“Yes ”，否则输出“No” ，运行界面如图 3-1 所示。完成上述功能后，以原文件名保存窗体（Dsg0301.frm ）和工程（Dsg0301.vbp） 。3 / 9Private Sub Command1_Click()If Not IsNumeric(Text1.Text) Then Exit SubIf Val(Text1.Text) Mod 3 = 0 And Val(Text1.Text) Mod 7 = 0 ThenLabel2.Caption = “Yse“ElseLabel2.Caption
4、 = “No“End IfEnd Sub2. 打开工程文件 Dsg0302.vbp，在标题为“坐标象限”的窗体 Form1 上，添加两个标题分别为“坐标 x”和“坐标 y”的标签 Label1 和 Label2；然后再添加 3 个文本内容为空的文本框 Text1、Text2 和 Text3；最后添加一个标题为“判断 ”的命令按钮 Command1。程序运行时，在 Text1 和 Text2 中分别输入某点的坐标值 x 和 y（不等于 0） ，单击“判断”按钮，根据 x 和 y 的值判断该坐标点在哪个象限，并在 Text3 中显示判断结果，运行界面如图 3-3 所示。完成上述功能后，以原文件名保
5、存窗体（Dsg0302.frm ）和工程（Dsg0302.vbp） 。4 / 9Private Sub Command1_Click()Dim x!, y!x = Text1.Texty = Text2.TextIf x 0 And y 0 ThenText3.Text = “第一象限“ElseIf x 0 ThenText3.Text = “第二象限“ElseIf x 285 And Sum 270 ThenText4.Text = “Silver Medal“ElseIf Sum 240 ThenText4.Text = “Bronze Medal“ElseIf Sum 95 Or b 9
6、5 Or c 95 ThenText4.Text = “Honor Medal“ElseText4.Text = “No Medal“End IfEnd Sub4. 打开工程文件 Dsg0304.vbp，在标题为“学历认证”的窗体 Form1 上，添加一个文本框 Text1，其文字为粗体、四号、居中；然后再添加一个标题为“学历”的框架Frame1，并在 Frame1 中添加 3 个标题分别为“博士” 、 “硕士”和“本科”的单选按钮Option1、Option2 和 Option3。程序运行时，单击“博士”单选按钮，在 Text1 中显示“我是博士生” ；选中“硕士”单选按钮，在 Text1
7、中显示“我是硕士生” ；单击“本科”单选按钮，在 Text1 中显示“我是本科生” ，运行界面如图 3-7 所示。完成上述功能后，以原文件名保存窗体（Dsg0304.frm）和工程（Dsg0304.vbp） 。7 / 9Private Sub Option1_Click()Text1.Text = “我是博士生“End SubPrivate Sub Option2_Click()Text1.Text = “我是硕士生“End Sub8 / 9Private Sub Option3_Click()Text1.Text = “我是本科生“End Sub5. 打开工程文件 Dsg0305.vbp，在
8、标题为“效果设置”的窗体 Form1 上，添加一个标题为“程序设计基础” 、带边框的标签 Label1，其文字为黑体、三号、居中；然后再添加两个标题分别为“下画线”和“删除线”的复选框 Check1 和 Check2。程序运行时，当选中某复选框时，Label1 的文字具有相应的效果，而当取消选中某复选框时，则取消相应的效果，运行界面如图 3-9 所示。完成上述功能后，以原文件名保存窗体（Dsg0305.frm ）和工程（Dsg0305.vbp） 。Private Sub Check1_Click()Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)End SubPrivate Sub Check2_Click()9 / 9Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)End Sub四、存在问题及解决方法评语：
