vb题库程序设计Word文件下载.docx

1、sum=sum+i5,求1到m之间的偶数之积。DimyAsDoubley=1Fori=1TomIfiMod2=0Theny=y*iEndIffun=y6,根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：mark大于等于90显示优秀mark小于90且大于等于80显示良好mark小于80且大于等于70显示中等mark小于70且大于等于60显示及格mark小于60显示不及格要求使用Select语句来实现。SelectCasemarkCaseIs=90fun=80=70=60CaseElseEndSelect7,（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。将

2、结果存入变量SUM中IfiMod2=1Then8,（响应）输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。-Fori=100To200Forj=2ToSqr（i）IfiModj=0ThenExitForIfjInt（Sqr（i）ThenSum=Sum+iPrintSum9,将一个十进制整数m转换成r（216）进制字符串。方法：将m不断除r取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串chr函数：将ascii码转换为对应字母。DimstrDecR$,

3、iDecR%strDecR=DoWhileideciDecR=idecModibaseIfiDecR=10ThenstrDecR=Chr$（65+iDecR-10）&strDecRElsestrDecR=iDecR&idec=idecibaseTrDec=strDecR10,（事件）单击按钮。（响应）随机产生N个两位正整数（N由输入对话框输入，且N0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。-x=InputBox（请输入x）n=1t=xs=xDoUntilAbs（t）0.00000001n=n+1t=t*（-1）/ns=s+tLabel1.Caption=s

4、=&s（响应）已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用dowhile.loop语句完成程序i=1p=1DoWhilei3000then exitforendifi=i+1next（响应）求1-100中为5或7的倍数的和。使用while.wend语句完成程序Whileid=nMod10s=s+d*d*dn=n/10fun=s第46题（1.0分）题号:490-（响应）已知sum=1-1/4+1/9-1/16+1/25.-1/100,请将sum结果值输出到窗体上。fori=1to10sum=sum+（-1）（i-1）/（i*i）第48题（1.0分）题号:47

5、8编写函数fun，其功能是:能计算从1开始到n的自然数中偶数的平方的和。DimsumAsInteger,iAsIntegerFori=2TonStep2sum=sum+i*ifun=sum第49题（1.0分）题号:208请用Select语句编程计算打折后的金额？折扣方法如下:购物300以下，无优惠（使用MsgBox显示“无优惠”）；购物300以上，95折；购物500以上，9折；购物1000以上，85折；购物5000以上，8折?SelectCasen5000n=n*0.81000n=n*0.85500n=n*0.9300n=n*0.95MsgBox无优惠将一张面值为100元的人民币等值换成100

6、张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？将组合数存入变量OUT中。DimnAsIntegerDimi%,j%,k%Print5?1?0.5?Fori=1To20Forj=1To100-ik=100-i-jIf5#*i+1#*j+0.5*k=100ThenPrinti,j,kNextjout=n（响应）我国现有人口为13亿，设年增长率为1%，计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用dowhile.loop语句完成程序。dimpasdoubledimrassingledimnasintegerr=0.01 p=p+p*r n=n+

7、1loopprintn=,nyear=n应用选择法对数组A按升序排列基本思想:1）对有n个数的序列（存放在数组a（n）中），从中选出最小的数，与第1个数交换位置；2）除第1个数外，其余n-1个数中选最小的数，与第2个数交换位置；3）依次类推，选择了n-1次后，这个数列已按升序排列。Dimi,j,imin,tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa（imin）a（j）Thenimin=jtemp=a（i）a（i）=a（imin）a（imin）=temp（响应）求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。For

8、i=2To1000IfiMod3=2AndiMod5=3AndiMod7=2ThenPrintisum=i（响应）生成一个一维数组（10个数组元素依此为：15、23、72、43、96、23、3、65、88、17），写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中Dima（9）AsIntegerDimi,sAsIntegera（0）=15a（1）=23a（2）=72a（3）=43a（4）=96a（5）=23a（6）=3a（7）=65a（8）=88a（9）=17max=a（0）min=a（0）s=0Fori=0To9Ifa

9、（i）maxThenmax=a（i）Ifa（i）（响应）已知S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。s=s+1/（ii）Print（s）（事件）单击命令按钮Command1。（响应）计算如下表达式s的值,s=1+（1*2）+（1*2*3）+（1*2*3*6）并将结果输出到文本框Text1中。j=1Fori=1To6j=j*is=s+jText1.Text=s求两个数m,n的最大公约数p和最小公倍数qnm=n*mIfmnThent=m:m=n:n=tDoWhile（r0Thenresult=ElseIfn=AAndUCase（n）0Andn9（响应）求50以内所

10、有偶数的和，并在窗体上输出出来。将结果存入变量S中。Fori=2To50If（iMod2）=0Thens=s+i（响应）求100以内偶数的和，并将结果输出在窗体上。（响应）把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中Dimi,j,kAsIntegerForj=1To50Fork=1To20If（i+2*j+k*5）=100）ThenPrint（CStr（j）Print（CStr（k）编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/21/41/6.1/2my=y+1/（2*i）根据整型形参m，计算如下公式的值:y=11/31/51/7.1/（2m+1）例如：若m=9，则应输出：2.133255y=y+1/（2*i+1）