VB经典的程序设计题.docxVIP

VB经典的程序设计题 累加求和1到100 文本1。text=sumendsub 1到100的奇数和 fori=1至100步骤2 sum=sum+i next 文本1。text=sumendsub 求n! dimfactasdouble，nasinteger，iasintegern=val（text1.text）fact=1fori=1tonfact=fact*inxt text2.text=factendsub 计算人口 privatesublabel1_click() dimpassingle，rassingle，iassinglep=14r=0.012i=0 whilep=20p=p*(1+r)i=i+1wend 打印：打印 printi;\年后，我国人口将达到\亿\endsub 累计总和1至100（dowhile） i=1 dowhilei=100sum=sum+ii=i+1loop text1.text=sumendsub endsub （dountil） Dimisinteger，sumasintegersum=0 i=1 dountili100sum=sum+ii=i+1loop text1.text=sumendsub endsub 求平均成绩 dimaassingle、bassingle、cassingle、Dassingle DimpjasSingle a=60:b=70:c=80:d=90pj=(a+b+c+d)/4text1.text=str(pj)endsub 绩效评估 text2.text=\不及格\endifendsub 求一个圆的周长 constpi=3.1415926 R=Val（输入框）\n请输入圆的半径\print\n圆的周长是：\endsub 输入两个整数mn，使得m=n,并输出mn dimasinger，nasinger，aasingerm=Val（InputBox（\请输入m:\input，\n=Val）（InputBox（\请输入n:\input，\IFNmthena=mm=NN=a endif 打印\打印\ endsub 计算总和=1/1+1/2！…+1/10! dimmasinteger,naslong,sasdoublen=1s=0 表格=1到10N=n*ms=s+1/nnextprintsendsub 定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和 dima%（10）dimi%，s% fori=0to10a(i)=101*rnd()next fori=0到10IFA（i）mod2=0母鸡=s+a（i）endif next 打印\所有偶数之和为：\endsub 输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。（待修改） A=Val（输入框）\n请输入一个四位数\I=amod10 j=(amod100)\\10k=(amod1000)\\100m=a\\1000 S=\digit number is:\十位数is:\百位数is:\千位数is:\ printsendsub 计算sum=2!+4!+6!+......+10! ifimod2=0thensum=sum+aendif i=i+1 loopwhilei=10printsumendsub 用inputbox输入一个年份，判断该年份是否是闰年，若是则输出yes,否则输出no J=Val（输入框）\n请输入年份\ ifjmod400=0orjmod4=0andjmod1000thenmsgbox(\else msgbox（\endifendsub） 计算并输出下面级数前n项（n=20）中奇数项的和。1*2*3-2*3*4+3*4*5-4*5*6+........+（-1）……（n-1）*n*(n+1)*(n+2)+..... fori=1到20步2 s=s+i*(i+1)*(i+2)next msgbox（s）endsub