VB实验三.docx

实 验 报 告 年 月 日 第 节 楼 号室课程名称计算机程序设计学生姓名学号专业与年级进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号实验项目名称Visual Basic程序设计实验预习报告三一、实验目的1了解VisualBasic的集成开发环境（IDE），熟悉主要窗口的作用。2掌握简单的Visual Basic 应用程序的建立、编辑、调试、运行和保存。3掌握Visual Basic 窗体的常用属性、方法和件。4掌握Visual Basic 的基本数据类型和运符。5掌握Visual Basic 的常量、变量的定义和使用。6掌握表达式和常用内部函数的使用。二、实验内容（1）创建用户界面（2）设置对象属性（3）编写程序代码（4）保存工程选择（5）生成可执行文件三、实验过程（步骤、命令）及结果（截图、源程序）1. 打开工程文件Dsg0301.vbp，在标题为“整除运算”的窗体Form1上，添加一个标题为“请输入整数n”的标签Label1；然后再添加一个标题为“判断”的命令按钮Command1；接着再添加一个文本内容为空的文本框Text1；最后添加一个标题为空、有边框的标签Label2。程序运行时，在Text1中输入一个整数n，单击“判断”按钮，判断整数n能否既被3 整除也被7 整除。如果能被3和7 整除，则在Label2 中输出“Yes”，否则输出“No”，运行界面如图3-1 所示。完成上述功能后，以原文件名保存窗体（Dsg0301.frm）和工程（Dsg0301.vbp）。Private 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 = YseElseLabel2.Caption = NoEnd IfEnd Sub2. 打开工程文件Dsg0302.vbp，在标题为“坐标象限”的窗体Form1上，添加两个标题分别为“坐标x”和“坐标y”的标签Label1和Label2；然后再添加3个文本内容为空的文本框Text1、Text2和Text3；最后添加一个标题为“判断”的命令按钮Command1。程序运行时，在Text1和Text2中分别输入某点的坐标值x 和y（不等于0），单击“判断”按钮，根据x和y的值判断该坐标点在哪个象限，并在Text3中显示判断结果，运行界面如图3-3所示。完成上述功能后，以原文件名保存窗体（Dsg0302.frm）和工程（Dsg0302.vbp）。Private 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 0 And y 285 And Sum 300 ThenText4.Text = Gold MedalElseIf Sum 270 ThenText4.Text = Silver MedalElseIf Sum 240 ThenText4.Text = Bronze MedalElseIf Sum 95 Or b 95 Or c 95 ThenText4.Text = Honor MedalElseText4.Text = No MedalEnd IfEnd Sub4. 打开工程文件Dsg0304.vbp，在标题为“学历认证”的窗体Form1上，添加一个文本框Text1，其文字为粗体、四号、居中；然后再添加一个标题为“学历”的框架Frame1，并在Frame1中添加3个标题分别为“博士”、“硕士”和“本科”的单选按钮Option1、Option2和Option3。程序运行时，单击“博士”单选按钮，在Text1中显示“我是博士生”；选中“硕士”单选按钮，在Text1中显示“我是硕士生”；单击“本科”单选按钮，在Text1中显示“我是本科生”，运行界面如图3-7所示。完成上述功能后，以原文件名保存窗体（Dsg0304.frm）和工程（Dsg0304.vbp）。Private Sub Option1_Click()Text1.Text = 我是博士生End SubPrivate Sub Option2_Click()Text1.Text = 我是硕士生End SubPrivate Sub Option3_Click()Text1.Text = 我是本科生End Sub5. 打开工程文件Dsg0305.vbp，在标题为“效果设置”的窗体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 SubPr