- 1、本文档共6页,可阅读全部内容。
- 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程序设计实验要求及报告3
上海立信会计学院本科实验报告
班级: 学号: 姓名: 指导教师:
系部: 专业: 实验时间:
实验3 选择结构
实验目的
掌握单分支、双分支和多分支条件语句的使用
掌握情况语句的使用及其与多分支条件语句之间的区别。
二、实验要求
在C:\下建立子文件夹“VB实验3”,按照题目要求,在该文件夹下为各题保存相应的文件,如本实验中的第一题,需保存的文件有:工程文件(31.vbp)、窗体文件(31.frm) 及可执行文件(31.exe),本实验中的第二题,需保存的文件有:工程文件(32.vbp)、窗体文件(32.frm) 及可执行文件(32.exe),其余实验依此类推。
撰写实验过程中出现了哪些问题、错误,你是如何解决的,做一个小结。
实验内容:
编一程序输入上网的时间并计算上网费用,计算的方法如下:
费用=
同时为了鼓励多上网,采用累进计费制,但每月收费最多不超过150元。上网时间在文本框中输入;上网费用在标签中输出,所有控件字体默认、大小为小四。要求使用多分支结构(IF THEN ELSEIF)编写,效果如图3-1所示。
图3-1
Option Explicit
Private Sub Command1_Click()
Dim s!, sum!
s = Val(Text1.Text)
If s = 0 Then
MsgBox 上网时间不能为负数和零 , , 输入错误
Text1 =
Text1.SetFocus
Else
If s = 10 Then
sum = 30
ElseIf s 10 And s = 50 Then
sum = 30 + (s - 10) * 2.5
ElseIf s 50 And s = 60 Then
sum = 130 + (s - 50) * 2
Else
sum = 150
End If
Label2.Caption = sum
End If
End Sub
利用InputBox函数输入a、b、c三个整数,按从大到小的顺序显示(用Print方法输出),窗体中所有控件字体大小为小四。效果如图3-2(a)、(b)所示。
图3-2(a)
图3-2(b)
Option Explicit
Private Sub Command1_Click()
Dim a%, b%, c%, t%
a = InputBox(输入a的值 , 数据输入)
b = InputBox(输入b的值 , 数据输入)
c = InputBox(输入c的值, 数据输入)
Print ; a; ; b; ; c
Print 排序前; ; a; ; b; ; c
If a b Then t = a: a = b: b = t
If b c Then
t = b: b = c: c = t
If a b Then
t = a: a = b: b = t
End If
End If
Print 排序后; ; a; ; b; ; c
Print
End Sub
利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有鸡和兔的总头数为m头,鸡和兔的总脚数为n只,求鸡和兔各有多少只?另要求输入的数据必须经过检验,如果错误则作出提示,“确定”后自动清除错误数据并要求重新输入数据。触发事件发生在输入总脚数后焦点失去时,在文本框中输入数据;在图片框中输出结果,所有控件字体默认、大小为小四。效果如图3-3(a)、(b)、(c)所示。
图3-3(a)
图3-3(b)
图3-3(c)
Private Sub Text2_LostFocus()
Dim a%, b%, c%, d%
Picture1.Cls
Picture2.Cls
a = Val(Text1)
b = Val(Text2)
If b Mod 2 0 Or b 2 * a Or 4 * a b Then
Ms
您可能关注的文档
最近下载
- DB5301_T 90-2023 工程建设项目联合测绘 技术规范.pdf VIP
- 2023年湖南岳阳市第一中学高一上入学考试数学模拟试卷附答案解析.pdf VIP
- 建立良好师生关系促进教育教学.pptx
- 2025年辅警招聘考试公安基础知识(情景分析题)模拟试卷3(题后含答案及解析.pdf VIP
- 中建一局首都体育学院项目临电方案(终)(28P)2.pdf VIP
- 无领导小组讨论几个派别、无领导小组讨论角色、无领导小组讨论面试十大精准切点、无领导小组讨论答题技巧、无领导小组讨论的加分项.docx VIP
- 《无人机基础》课件.pptx VIP
- 工程增项申请表格.docx VIP
- 2021利达JB-QG-LD988EL JB-QT-LD988EL 火灾报警控制器 消防联动控制器调试手册.docx VIP
- 实验动物学发展的趋势.ppt VIP
文档评论(0)