期末vb程序填空+设计

《期末vb程序填空+设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序设计1题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框label1上显示。Sum=1/2+1/6+……+1/(k*(k+1)) (k<=n)Privatesubform_click()Dimnasinteger,sumasdouble,kasintegerN=val(inputbox(“n=”,”请输入自然数n（n>0且n<30）”))Dowhilen<=0!!  !!n>30                               or N=val(inputbox(“n=”,”请重新输入”))LoopSum=0K=0DoK=!! !!

2、                                                  k+1Sum=sum+1/(k*(k+1))Loopuntil!!!!                                       (k+1)>nLabel1.caption=“sum”+str(sum)Endsub 2题目：下面的程序用于打印出以下图形。程序代码：Privatesubform_click()Dimi%,j%,k%ForI=3to0step-1 Forj=0to2*iPrint“”; Nextj Fork=5to!!   !!                 

3、                      11-2*iPrint“*”; NextkprintNextiForI=0to3 Forj=0to2*I+2!!   !!                                             print“”; Nextj Fork=0to4-2*iPrint“*”; Nextk!!   !!                                                    printNextiEndsub3题目：以下程序段用于实现：输入两个正整数m和n，求其最大公因数和最小公倍数。程序代码：Privates

4、ubform_click()Dima%,b%,num1%,num2%,tempNum1=inputbox(“请输入一个正整数”)Num2=inputbox(“请输入一个正整数”)If!!a0!! Temp=amodb A=b !!b=temp!!LoopPrint“最大公约数为：”;bPrint”最小公倍数为：”;num1*num2/bEndsub 4题目：窗体上建立一个文本框text1,用于显示结果。单击按钮弹出输入对话框，录入0-6之间的数值，判

5、断输出值为星期几。程序代码：Privatesubcommand1_click()DimxasintegerX=val(!!inputbox!!(“请输入星期几（0~6）”))Selectcase!!x!!Caseis=0 Text1.text=“星期日”Caseis=1 Text1.text=“星期1”Caseis=2 Text1.text=“星期2”Caseis=3 Text1.text=“星期3”Caseis=4 Text1.text=“星期4”Caseis=5 Text1.text=“星期5”Caseis=6 Text1.text=“星期6”Case !!else!! Text1.t

6、ext=“输入错误”Endselect5题目：下面的时间过程判断文本框text1中输入的数所在区间，并在文本框text2中输出判断结果。程序代码：privatesubcommand1_click()Dimint1asinteger!!int1!!=val(text1.text)Selectcaseint1Case0 Text2.text=“值为0”Case!!1to10!! Text2.text=“值在1和10之间（包括1和10）”CaseIs>!!10!! Text2.text=“值大于10”Caseelse Text2.text=“值小于0”EndselectEndsubOptionE

7、xplicit'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：程序输出结果为：n=3x=42y=9'请在【?】处填入正确的内容'-------------------------------------------------