文档介绍：该【VB6.0课后题及常见操作题代码 】是由【儒林】上传分享，文档一共【86】页，该文档可以免费在线阅读，需要了解更多关于【VB6.0课后题及常见操作题代码 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。、从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值。通过inputbox函数输入数据,在窗体上显示和及平均值。DimaassingleFori=1to4a=inputbox(“请输入一个数:”,“数据输入”)sum=sum+an=n+1avg=sum/nnextiprint“和是:”,sumprint“平均值是:”,avg2、编写程序,要求用户输入下列信息:姓名、年龄、通信地址、邮政编码、电话,然后将输入的数据用适当的格式在窗体上显示出来。DimaasvariantFontsize=20a=inputbox(“请输入姓名:”,“数据输入”)print“姓名:”;aa=inputbox(“请输入年龄:”,“数据输入”)integer,sasintegera=inputbox(“请输入秒数:”,“数据输入”)d=int(a/86400)h=int((a-d*86400)/3600)s=a-d*86400-h*3600printd;“日”;h;“时”;s;“秒”5、自由落体位移公式为:s=gt2/2+v0t其中v0为初始速度,g为重力加速度,t为经历的时间,编写程序,求位移量s。设v0=,t=,g=,在程序中把g定义为符号常量,用inputbox函数输入v0和t两个变量的值。Dimvassingle,tassingle,sassingleg==inputbox(“请输入初始速度:”,“数据输入”)v=val(v)t=inputbox(“请输入经历的时间:”,“数据输入”)t=val(t)s=g*t*t/2+v*tprint“位移量是:”;:s=2+4+6+8+…+100dimi,sasintegers=0fori=2to100step2s=s+inextprints7、给定三角形的3条边长,计算三角形的面积。编写程序:首先判断给出的3条边能否构成三角形,如可以构成,则计算并输出三角形的面积,否则要求重新输入。当输入-1时结束程序。Dimaassingle;bassingle;cassingleStart:a=inputbox(“请输入第一条边长-1结束:”,”数据输入”)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元以内,免征(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)*>=400andx<5000theny=(x-400)*+200*>=5000theny=(x-400)*+200*“需要纳税的金额为:”;y9、假定有一下每周工作安排:星期一、三:讲计算机课星期二、四:讲程序设计课星期五:进修英语星期六:政治学****星期日:休息试编写一个程序,对上述工作日程进行检索。程序运行后,要求输入一周里的某一天,程序将输出这一天的工作安排。在输入时用0-6分别代表星期日到星期六,如果输入0-6之外的数,则程序结束运行。Dimxasintegerx=inputbox(“请输入一个整数进行检索:”,“数据输入”)selectcasexcase0y=“休息”case1y=“讲计算机课”case2y=“讲程序设计课”case3y=“将计算机课”case4y=“将程序设计课”case5y=“进修英语”case6y=“政治学****caseelseendendselectprinty10。vb数字金字塔112112321一直到9PrivateSubForm_Click()Dima(1To9)AsIntegerForj=1To9a(j)=jNextjFori=1To9PrintTab(30-i*3);Forj=1To2*i-1Ifj>iThenPrinta(2*i-j);ElsePrinta(j);EndIfNextjNexti