VB课后题及常见操作题代码.doc

《VB课后题及常见操作题代码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB.课后题及常见操作题代码————————————————————————————————作者：————————————————————————————————日期：第四章1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。DimaassingleFori=1to4a=inputbox（“请输入一个数：”，“数据输入”）sum=sum+an=n+1avg=sum/nnextiprint“和是：”,sumprint“平均值是：”，avg2、编写程序，要求用户输

2、入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。DimaasvariantFontsize=20a=inputbox（“请输入姓名：”，“数据输入”）print“姓名：”；aa=inputbox（“请输入年龄：”，“数据输入”）print“年龄：”；aa=inputbox（“请输入通信地址：”，“数据输入”）print“通信地址：”；aa=inputbox（“请输入邮政编码：”，“数据输入”）print“邮政编码：”；aa=inputbox（“请输入电话：”，“数据输入”）print

3、“电话：”；a3．a=5，b=2.5，c=7.8，编程序计算：y=（πab）/（a+bc）程序：Dimaassingle，bassingle，cassinglea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print“结果是：”;y4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。Dimaaslong，dasinteger，hasinteger，sasintegera=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/360

4、0）s=a-d*86400-h*3600printd；“日”；h；“时”；s；“秒”5、自由落体位移公式为：s=gt2/2+v0t其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。设v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。Dimvassingle，tassingle，sassingleg=9.81v=inputbox（“请输入初始速度：”，“数据输入”）v=val（v）t=inputbox（“请输入经历的时间：”，“

5、数据输入”）t=val（t）s=g*t*t/2+v*tprint“位移量是：”;s6．编程计算并输出S的值:s=2+4+6+8+…+100dimi,sasintegers=0fori=2to100step2s=s+inextprints7、给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1时结束程序。Dimaassingle；bassingle；cassingleStart:a=inputbox(“请输入第一条边长-1结束：”,”

6、数据输入”)a=val（a）ifa=-1thenendendifb=inputbox（“请输入第二条边长”，“数据输入”）b=val（b）c=inputbox（“请输入第三条边长”，“数据输入”）c=val（c）ifa+b<=cora+c<=borb+c<=athenmsgbox（“您输入的三条边长不能构成三角形，请重新输入！”）gotostartelsel=（a+b+c）/2s=sqr（l*（l-a）*（l-b）*（l-c））endifprint“三角形的面积为：”；s8、税务部门征收所得税，规定如下：（1）收入在200元以内，

7、免征（2）收入在200-400元内，超过200元的部分纳税3%（3）收入超过400元的部分，纳税4%（4）当收入达5000元或超过时，将4%税金改为5%编写程序实现上述操作。Dimxassingle，yassinglex=inputbox（“请输入收入！”，“数据输入”）x=val（x）ifx<=200theny=0elseifx>200andx<400theny=(x-200)*0.03elseifx>=400andx<5000theny=(x-400)*0.04+200*0.03elseifx>=5000theny=(x-40

8、0)*0.05+200*0.03endifprint“需要纳税的金额为：”;y9、假定有一下每周工作安排：星期一、三：讲计算机课星期二、四：讲程序设计课星期五：进修英语星期六：政治学习星期日：休息试编写一个程序，对上述工作日程进行检索。程序运行后，