《VB程序设计实验要求及报告》由会员分享，可在线阅读，更多相关《VB程序设计实验要求及报告（5页珍藏版）》请在金锄头文库上搜索。
1、上海立信会计学院本科实验报告班级：学号：姓名：指导教师：系部：专业：实验时间：实验3选择结构1. 一、实验目的掌握单分支、双分支和多分支条件语句的使用掌握情况语句的使用及其与多分支条件语句之间的区别。二、实验要求1.在下建立子文件夹“VB实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件及可执行文件（）,本实验中的第二题，需保存的文件有：工程文件、窗体文件及可执行文件（），其余实验依此类推。2.撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。三、实验内容：1. 编一程序输入上网的时间并计算上网费用，计算的方法如下：基
2、数30元，上网时间10小时费用=每小时2.5元，上网时间1050小时每小时2元，上网时间50小时同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IFTHENELSEIF编写，效果如图3-1所示。输入上两时间单位小吋）：20上朗费用单位元）:55回区廿律费剧图3-1OptionExplicitPrivateSubCommand1_Click()Dims!,sum!s=ValIfs=0ThenMsgBox上网时间不能为负数和零,输入错误”Text1=ElseIfs10Ands50And
3、s=60Thensum=130+(s-50)*2Elsesum=150EndIf=sumEndIf2. EndSub利用InputBox函数输入a、b、c三个整数，按从大到小的顺序显示（用Print方法输出）,窗体中所有控件字体大小为小四。效果如图3-2（a）、（b）所示。图3-2（a）897789Q88C24246725IlliPHIlll#4lllllllfriMIIII-MilllflIIIIIHIII*输入与擀序图3-2（b）OptionExplicitPrivateSubCommand1_Click()Dima%,b%,c%,t%a=InputBox（输入a的值,数据输入）b=Inp
4、utBox（输入b的值,数据输入）c=InputBox（输入c的值,数据输入）Print;cIIPrint排序前”;”;a;”;b;”;cIfabThent=a:a=b:b=tIfbcThent=b:b=c:c=tIfabThent=a:a=b:b=tEndIfEndIfPrint排序后;a;b;cPrintEndSub3、利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有鸡和兔的总头数为m头，鸡和兔的总脚数为n只，求鸡和兔各有多少只另要求输入的数据必须经过检验，如果错误则作出提示，“确定”后自动清除错误数据并要求重新输入数据。触发事件发生在输入总脚数后焦点失去时，在文本框中输入
5、数据；在图片框中输出结果，所有控件字体默认、大小为小四。效果如图3-3（a）、（b）、（c）所示。图3-3（a）誉入错误输入礬需错饯，可能如下惜况:总脚数非偶數忌脚数小于2涪的头邈总脚數大于孔倍的头数请宣新输入匚二确莖二二图3-3(b)图3-3(c)PrivateSubText2_LostFocus()Dima%,b%,c%,d%a=Val(Text1)b=Val(Text2)IfbMod20Orb2*aOr4*abThenMsgBox输入数据错误，可能如下情况：”+Chr(13)+Chr(10)+总脚数非偶数”+Chr(13)+Chr(10)+总脚数小于2倍的头数”+Chr(13)+Chr(
6、10)+总脚数大于4倍的头数”+Chr(13)+Chr(10)+请重新输入,数据错误”Textl=Text2=Elsec=(b-a*2)/2d=a-cdcEndIfEndSub4、编一模拟袖珍计算器(四则运算即+、-、*、/)的完整程序，界面如图3-4所示。要求：输入两个操作数和一个操作符，根据操作符单击“计算”按钮进行计算。输入、输出数据均存放于文本框中，窗体中所有控件字体默认、大小为小四。建议使用SelectCase语句实现图3-4OptionExplicitPrivateSubCommand1_Click()Dima!,b!,cAsString*1a=Val(Textl):b=Val(Text2):c=Trim(Text3)SelectCasecCase+Text4=a+bCase-Text4=a-bCase*Text4=a*bCase/Text4=a/bEndSelectEndSubPrivateSubCommand2_Click()EndEndSub四、实验过程中的问题、错误，解决方法，总结、体会、建议
