期末VB程序填空+设计5.docxVIP

下载本文档

50
0
约5.15万字
约 204页
2018-07-20 发布于江苏
举报
版权申诉

期末VB程序填空+设计5.docx

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

期末VB程序填空设计5

程序设计1题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框label1上显示。Sum=1/2+1/6+……+1/(k*(k+1))? (k=n)Private sub form_click()Dim n as integer, sum as double, k as integerN = val(inputbox(“n=”,”请输入自然数n（n0且n30）”))Do while n = 0 !! ??!! n 30 ???????????????????????????????or?N = val(inputbox(“n=”,”请重新输入”))LoopSum = 0K = 0DoK = !! ?!!?????????????????????????? ????????????????????????k+1Sum = sum + 1/(k * (k+1))Loop until !! !!??????????????????????????????????????? (k+1) nLabel1.caption = “sum” + str(sum)End sub?2 题目：下面的程序用于打印出以下图形。程序代码：Private sub form_click()Dim i%, j%, k%For I = 3 to 0 step -1? For j = 0 to 2 * iPrint “ ”;? Next j? For k = 5 to !!??? !!??????????????????????????????????????? 11-2*iPrint “*” ;? Next kprintNext iFor I = 0 to 3 ? For j = 0 to 2 * I + 2!! ???!!????????????????????????????????????????????? print “ ”;? Next j? For k = 0 to 4-2 * iPrint “*” ;? Next k!! ???!!???????????????????????????????????????????????????? printNext iEnd sub3 题目：以下程序段用于实现：输入两个正整数m和n，求其最大公因数和最小公倍数。程序代码：Private sub form_click ()Dim a%, b%, num1%, num2%, tempNum1 = inputbox(“请输入一个正整数”)Num2 = inputbox(“请输入一个正整数”)If !! ab !! then? Temp = num1 : num1 = num2 : num2 = tempEnd ifA = num1B = num2Do while !! a mod b 0 !!? Temp = a mod b? A = b? !! b = temp !!LoopPrint “最大公约数为：”; bPrint ”最小公倍数为：”; num1 *num2 /bEnd sub?4 题目：窗体上建立一个文本框text1,用于显示结果。单击按钮弹出输入对话框，录入0-6之间的数值，判断输出值为星期几。程序代码：Private sub command1_click()Dim x as integerX = val(!! inputbox !!(“请输入星期几（0~6）”))Select case !! x !!Case is = 0? Text1.text = “星期日”Case is = 1? Text1.text = “星期1”Case is = 2? Text1.text = “星期2”Case is = 3? Text1.text = “星期3”Case is = 4? Text1.text = “星期4”Case is = 5? Text1.text = “星期5”Case is = 6? Text1.text = “星期6”Case? !! else !!? Text1.text = “输入错误”End select5 题目：下面的时间过程判断文本框text1中输入的数所在区间，并在文本框text2中输出判断结果。程序代码： private sub command1_click()Dim int1 as integer!! int1 !! = val(text1.text)Select case int1Case 0? Text2.text = “值为0”Case !! 1 to 10 !!? Text2.text = “值在1和10 之间（包括1和10）”Case Is !! 10 !!? Tex