VB实验三0002.docx
- 文档编号:1460544
- 上传时间:2022-10-22
- 格式:DOCX
- 页数:7
- 大小:170.04KB
VB实验三0002.docx
《VB实验三0002.docx》由会员分享,可在线阅读,更多相关《VB实验三0002.docx(7页珍藏版)》请在冰豆网上搜索。
VB实验三0002
VB实验三
实验报告
年月日第节楼号室
课程名称
计算机程序设计
学生姓名
学号
专业与年级
进入实验室
时间
进入时仪器
设备状况
离开实验室
时间
离开时仪器
设备状况
机器号
实验项目名称
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)。
PrivateSubCommand1_Click()
IfNotIsNumeric(Text1.Text)ThenExitSub
IfVal(Text1.Text)Mod3=0AndVal(Text1.Text)Mod7=0Then
Label2.Caption="Yse"
Else
Label2.Caption="No"
EndIf
EndSub
2.打开工程文件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.Text
y=Text2.Text
Ifx>0Andy>0Then
Text3.Text="第一象限"
ElseIfx<0Andy>0Then
Text3.Text="第二象限"
ElseIfx<0Andy<0Then
Text3.Text="第三象限"
Else
Text3.Text="第四象限"
EndIf
EndSub
3.打开工程文件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)
PrivateSubCommand1_Click()
Dima!
b!
c!
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
Sum=a+b+c
IfSum>285AndSum<300Then
Text4.Text="GoldMedal"
ElseIfSum<284AndSum>270Then
Text4.Text="SilverMedal"
ElseIfSum<269AndSum>240Then
Text4.Text="BronzeMedal"
ElseIfSum<240Anda>95Orb>95Orc>95Then
Text4.Text="HonorMedal"
Else
Text4.Text="NoMedal"
EndIf
EndSub
4.打开工程文件Dsg0304.vbp,在标题为“学历认证”的窗体Form1上,添加一个文本框Text1,其文字为粗体、四号、居中;然后再添加一个标题为“学历”的框架Frame1,并在Frame1中添加3个标题分别为“博士”、“硕士”和“本科”的单选按钮Option1、Option2和Option3。
程序运行时,单击“博士”单选按钮,在Text1中显示“我是博士生”;选中“硕士”单选按钮,在Text1中显示“我是硕士生”;单击“本科”单选按钮,在Text1中显示“我是本科生”,运行界面如图3-7所示。
完成上述功能后,以原文件名保存窗体(Dsg0304.frm)和工程(Dsg0304.vbp)。
PrivateSubOption1_Click()
Text1.Text="我是博士生"
EndSub
PrivateSubOption2_Click()
Text1.Text="我是硕士生"
EndSub
PrivateSubOption3_Click()
Text1.Text="我是本科生"
EndSub
5.打开工程文件Dsg0305.vbp,在标题为“效果设置”的窗体Form1上,添加一个标题为“程序设计基础”、带边框的标签Label1,其文字为黑体、三号、居中;然后再添加两个标题分别为“下画线”和“删除线”的复选框Check1和Check2。
程序运行时,当选中某复选框时,Label1的文字具有相应的效果,而当取消选中某复选框时,则取消相应的效果,运行界面如图3-9所示。
完成上述功能后,以原文件名保存窗体(Dsg0305.frm)和工程
(Dsg0305.vbp)。
PrivateSubCheck1_Click()
Label1.Font.Underline=IIf(Check1.Value=vbChecked,True,False)
EndSub
PrivateSubCheck2_Click()
Label1.Font.Strikethrough=IIf(Check2.Value=vbChecked,True,False)
EndSub
四、存在问题及解决方法
评语:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 0002