- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB编程题教案
1、设计一个“健康称”程序,界面如图所示。单击“健康状况”按钮后,根据计算公式将相应提示信息通过标签显示在按钮下面。计算公式为:标准体重=身高-105。体重高于标准体重的1.1倍为偏胖,提示 “偏胖,加强锻炼,注意节食”;体重低于标准体重的90%为偏瘦,提示 “偏瘦,增加营养”;其它为正常,提示“正常,继续保持”。
实现代码:
Private Sub Command1_Click()
FontSize = 48
sg = Val(Text1.Text)
tz = Val(Text2.Text)
bztz = sg - 105
Select Case tz
Case Is 1.1 * bztz
Print 偏胖,加强锻炼,注意节食
Case Is 0.9 * bztz
Print 偏瘦,增加营养
Case Else
Print 正常,继续保持
End Select
End Sub
2、用Inputbox函数输入a,b,c的值,判定他们能否构成三角形。若能构成三角形,计算此三角形的面积。
实现代码:
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, p As Single, s As Single
a = Val(InputBox(请输入三角形第1条边长))
b = Val(InputBox(请输入三角形第2条边长))
c = Val(InputBox(请输入三角形第3条边长))
p = (a + b + c) / 2
If a = p Or b = p Or c = p Then
MsgBox 不能构成三角形
Else
s = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox 面积为 s
End If
End Sub
3、求1到150的所有整数的和。
实现代码:
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 150
sum = sum + i
Next i
Print sum
End Sub
4、设计一个字体属性设置程序,界面如图所示。要求:程序运行后,当选择好相应的检查框和单选按钮,单击“确定”按钮后,标签的内容会发生相应变化,单击“取消”按钮则恢复默认设置。
实现代码:
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check1.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Text1.FontName = 宋体
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.FontName = 黑体
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Text1.FontSize = 10
End If
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Text1.FontSize = 12
End If
End Sub
5、编写一段代码,当单击窗体时,计算出1!+2!+3!+……+10!,并在窗体上输出结果。
实现代码:
Private Sub Command1_Click()
For i = 1 To 10
Sum = Sum + jiecheng(i)
Next
Print Sum
End Sub
Function jiecheng(num)
jiecheng = 1
For i = 1 To num
jiecheng = jiecheng * i
Next
End Function
6、设计一个字符大小写转换程序,界面如
您可能关注的文档
- ECS-100系统介绍(垃圾焚烧炉行业)20101027详解.ppt
- EMS市场细分选择和定位教案.ppt
- EnterpriseArchitect7 入门教程营销.doc
- ERP基本原理课件.ppt
- ERP基础课件.ppt
- ERP复习资料营销.docx
- ERP文件精选.doc
- ERP沙盘模拟课程报告资料.doc
- ERP知识讲座营销.ppt
- ERP系统导入步骤与方法论营销.ppt
- 2025年山东海洋集团有限公司社会招聘和校园招聘(41人)考试备考题库及答案解析.docx
- 2025上海脑科学与类脑研究中心副研究员、助理研究员公开招聘考试备考题库及答案解析.docx
- 2025山东济南市莱芜技师学院引进高层次人才5人考试备考题库及答案解析.docx
- 2025年蚌埠高新技术产业开发区招聘编外人员13人考试备考题库及答案解析.docx
- 2025年湖南师范大学法学院科研助理招聘考试备考题库及答案解析.docx
- 2025内蒙古诚诺云创科技发展有限公司招聘考试备考题库及答案解析.docx
- 2025年福建新华发行(集团)有限责任公司三明辖区招聘若干人考试备考题库及答案解析.docx
- 2025内蒙古赤峰市巴林左旗事业单位“绿色通道”引进人才25人考试备考题库及答案解析.docx
- 2025下半年陕西事业单位医疗岗状元三套卷(职测E+综应e)考试备考题库及答案解析.docx
- 2025四川攀枝花市西区人才交流服务中心招聘就业见习人员1人考试备考题库及答案解析.docx
最近下载
- 悦纳自己——爱自己的100种方式(课件)高一下学期心理健康课(通用版).pptx VIP
- 浙江省消防技术规范难点问题操作技术指南-2025修订稿(定稿).docx
- 再生医学技术:2025年关节软骨修复研究前沿报告.docx
- 《电梯监督检验和定期检验规则》(TSG T7001-2023).docx VIP
- T CNAS 32─2023 注射相关感染预防与控制.pdf VIP
- 罗宾斯组织行为学第18版中文ppt1.pptx VIP
- 浙商中拓(000906)公司2023年财务分析研究报告.pdf
- 食材食品质量问题退换货方案.docx VIP
- 智能找车系统(数字1对1)调试手册.doc VIP
- 工业智能控制.pdf VIP
文档评论(0)