- 1、本文档共26页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vb实用案例例子50例
实验报告11
实验报告2:
实验题目1:设计窗体。参考界面如下:
运行前 运行后
要求:
在窗体上添加一个标签,通过属性窗囗设置标签格式:
Caption:字体格式 Alignment:2—Center(居中)
BorderStyle :1—Fixed Single(有边框) Backstyle:0—Tansparent(背景透明)
运行时,单击“字号”,将标签内容的字号设置为30;单击“加粗”,将标签内容加粗;单击“下划线”,则在标签内容下加下划线。
提示:字号FontSize、加粗FontBold、下划线FontUnderline
实验题目1源程序代码:
Private Sub Command1_Click()
Label1.FontSize = 30
End Sub
Private Sub Command2_Click()
Label1.FontBold = true
End Sub
Private Sub Command3_Click()
Label1.FontUnderline = True
End Sub
实验题目2: 设计一个计算器。参考界面如下:
要求:
1)实现算术运算(+、-、*、/)的功能;
2)实现清除和结束的功能;
3)实现清除后,将焦点移到第一个文本框中。
实验题目2源程序代码:
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
实验题目3:设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下:
要求:没有计算出总分前,计算均分的命令按钮不可用,计算出总分后,计算均分的命令按钮才可用。
说明:设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码:
Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text5.Text = Val(Text4.Text) / 3
End Sub
Private Sub Command3_Click()
Text1.Text =
Text2.Text =
Text3.Text =
Text4.Text =
Text5.Text =
End Sub
实验题目4:设计界面,编写程序计算圆的周长和面积。参考界面如下:
要求:
①设置窗体的标题为“计算圆的周长和面积”。
②“计算”命令按钮的功能:定义变量和符号常量,计算出圆的周长和面积。
③“清除”命令按钮的功能:将三个文本框的内容清除,并将焦点移到第一个文本框中。
④“退出”命令按钮的功能:程序运行结束。
实验题目4源程序代码:
Private Sub Command1_Click()
Dim r As Double, s As Double
Const pi = 3.1415926
r = Val(Text1.Text)
s = pi * r * r
c = 2 * pi * r
Text2.Text = Str(c)
Text3.Text = Str(s)
End Sub
Private Sub Command2_Click()
Text1.Text =
Text2.Text =
Text3.Text =
Text1.SetFocus
End Sub
实验题目5:设计界面,编写程序验证算术运算符的功能。参考界面如下:
要求:
①设置窗体的标题为“验证算术运算符”。
②“计算”命令按钮的功能:计算两个数的除、整除和取余。
③“清除”命令按钮的功能:将五个文本框的内容清除,并将焦点移到第一个文本框中。
④“退出”命令按钮的功能:程序运行结束。
实验题
您可能关注的文档
- ict技术概述概要.pptx
- ie工业工程实战_ppt.ppt
- iot关键技术跟应用运用-20180615.ppt
- java语言基础教程教本.doc
- k3信用管理设置跟应用运用浅谈.pdf
- k13产业政策跟用户体验牵引千兆光网络快速部署.pdf
- keep运营案例例子分享.ppt
- kuka基础培训跟4机器人程序的执行跟使用.pptx
- lecture-7(宾夕法尼亚大学二代测序数据分析解析教程教本).pdf
- lingo教程教本 有图.ppt
- 新的一年工作展望.docx
- 医生年终个人工作的述职报告(3篇).docx
- 2023年消防设施操作员之消防设备中级技能考前冲刺练习题附答案详解.docx
- 2022-2023年环境影响评价工程师之环评技术导则与标准通关练习题包括详细解答.docx
- 2023年中级注册安全工程师之安全生产管理考前冲刺检测卷和答案.docx
- 2023年中级银行从业资格之中级银行管理考前冲刺测试卷提供答案解析.docx
- 2023年公共营养师之二级营养师通关模拟考试试卷附带答案.docx
- 证券分析师之发布证券研究报告业务考前冲刺模拟题库.docx
- 2022-2023年二级建造师之二建建设工程法规及相关知识综合提升测试卷附答案.docx
- 2023年二级建造师之二建机电工程实务通关模拟考试试卷提供答案解析.docx
文档评论(0)