VB编程题教案.docVIP

  1. 1、本文档共11页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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、设计一个字符大小写转换程序,界面如

文档评论(0)

rovend + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档