VB实验三

1/6实验报告年月日第节楼号室课程名称计算机程序设计学生姓名学号专业与年级进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号实验项目名称VisualBasic程序设计实验预习报告三一、实验目的1．了解VisualBasic的集成开发环境（IDE），熟悉主要窗口的作用。2．掌握简单的VisualBasic应用程序的建立、编辑、调试、运行和保存。3．掌握VisualBasic窗体的常用属性、方法和件。4．掌握VisualBasic的基本数据类型和运符。5．掌握VisualBasic的常量、变量的定义和使用。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）。2/6PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenExitSubIfVal(Text1.Text)Mod3=0AndVal(Text1.Text)Mod7=0ThenLabel2.Caption=YseElseLabel2.Caption=NoEndIfEndSub2.打开工程文件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）。PrivateSubCommand1_Click()Dimx!,y!x=Text1.Texty=Text2.Text3/6Ifx0Andy0ThenText3.Text=第一象限ElseIfx0Andy0ThenText3.Text=第二象限ElseIfx0Andy0ThenText3.Text=第三象限ElseText3.Text=第四象限EndIfEndSub3.打开工程文件Dsg0303.vbp，在标题为“竞赛获奖”的窗体Form1上，添加一个标题为“输入笔试、机试和面试的成绩：”的标签Label1；然后添加一个标题为“获奖”的命令按钮Command1；最后添加4个文本内容为空的文本框Text1、Text2、Text3和Text4。程序运行时，在3个文本框中分别输入某学生3科竞赛成绩，单击“获奖”按钮，如果总成绩为285～300，则在Text4中输出“GoldMedal”；如果总成绩为270～284，则在Text4中输出“SilverMedal”；如果总成绩为240～269，则在Text4中输出“BronzeMedal”；如果总分低于240，但其中某科成绩特别优秀（单科不低于95），则在Text4中输出“HonorMedal”；其他情况，则在Text4中输出“NoMedal”，运行界面如图3-5所示。完成上述功能后，以原文件名保存窗体（Dsg0303.frm）和工程（Dsg0303.vbp）4/6PrivateSubCommand1_Click()Dima!,b!,c!a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Sum=a+b+cIfSum285AndSum300ThenText4.Text=GoldMedalElseIfSum284AndSum270ThenText4.Text=SilverMedalElseIfSum269AndSum240ThenText4.Text=BronzeMedalElseIfSum240Anda95Orb95Orc95ThenText4.Text=HonorMedalElseText4.Text=NoMedalEndIfEndSub4.打开工程文件Dsg0304.vbp，在标题为“学历认证”的窗体Form1上，添加一个文本框Text1，其文字为粗体、四号、居中；然后再添加一个标题为“学历”的框架Frame1，并在Frame1中添加3个标题分别为“博士”、“硕士”和“本科”的单选按钮Option1、Option2和Option3。程序运行时，单击“博士”单选按钮，在Text1中显示“我是博士生”；选中“硕士”单选按钮，在Text1中显示“我是硕士生”；单击“本科”单选按钮，在Text1中显示“我是本科生”，运行界面如图3-7所示。完成上述功能后，以原文件名保存窗体（Dsg0304.frm）和工程（Dsg0304.vbp）。5/6PrivateSubOption1_Click()Text1.Text=我是博士生EndSubPrivateSubOption2_Click()Text1.Text=我是硕士生EndSubPrivateSubOption3_Click()Text1.Text=我是本科生EndSub5.打开工程文件Dsg0305.vbp，在标题为“效果设置”的窗体Form1上，添加一个标题为“程序设计基础”、带边框的标签Label1，其文字为黑体、三号、居中；然后再添加两个标题分别为“下画线”和“删除线”的复选框Check1和Check2。程序运行时，当选中某复选框时，Label1的文字具有相应的效果，而当取消选中某复选框时，则取消相应的效果，运行界面如图3-9所示。完成上述功能后，以原文件名保存窗体（Dsg0305.frm）和工程（Dsg0305.vbp）。6/6PrivateSubCheck1_Click()Label1.Font.Underline=IIf(Check1.Value=vbChecked,True,False)EndSubPrivateSubCheck2_Click()Label1.Font.Strikethrough=IIf(Check2.Value=vbChecked,True,False)EndSub四、存在问题及解决方法评语：