vb题库-程序设计

1、1. 一、程序设计'【程序设计】'题目：编写函数fun,函数的功能是：计算两个正整数的最大公约数，并显示。如:'两个数为15、20,结果显示"5"'要求使用Do.Loop语句来实现。答案：Dor=mModnIfr=0ThenExitDom=n2. n=rLoopfun=n'题目：判断一个数是否是素数。答案：DimiAsIntegerPrime=TrueFori=2ToInt（Sqr（m）IfmModi=0ThenPrime=False:ExitFor3, Nexti'题目：（事件）单击窗体。'（响应）求10!的值，并将

2、结果输出到窗体上。将结果存入变量SUM中。答案：DimiAsIntegersum=1Fori=1To10sum=sum*iNext4, Printsum'题目：（事件）单击窗体。（响应）求1+2+3十+100的值，并把结果输出在窗体上。结果存入变量SUM中答案：DimiAsIntegerFori=1To100sum=sum+iNextPrintsum'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积答案：DimyAsDoubley=1DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNext5, fun=y'题目：编写函

3、数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：mark大于等于90显示”优秀”mark小于90且大于等于80显示"良好"mark小于80且大于等于70显示"中等"mark小于70且大于等于60显示”及格”mark小于60显示"不及格"要求使用Select语句来实现。答案：SelectCasemarkCaseIs>=90fun="优秀"CaseIs>=80fun="良好"CaseIs>=70fun="中等"Case

4、Is>=60fun="及格"CaseElsefun="不及格"EndSelect'题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNext6, Printsum'题目：（事件）单击窗体。'（响应）输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SU"答案：Fori=100To200Forj=2ToSqr（i）IfiModj=0ThenExitF

5、orNextIfj>Int(Sqr(i)ThenSum=Sum+i7, EndIfNextPrintSum'题目：将一个十进制整数m转换成-r（2-16）进制字符串。方法：将m不断除r取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串chr函数：将ascii码转换为对应字母。答案：DimstrDecR$,iDecR%strDecR=""DoWhileidec<>0iDecR=idecModibaseIfiDecR>=10Then

6、strDecR=Chr$（65+iDecR-10）&strDecRElsestrDecR=iDecR&strDecREndIfidec=idecibaseLoop8, TrDec=strDecR'题目：（事件）单击按钮。（响应）随机产生N个两位正整数（N由输入对话框输入，且N>0），求出其中的最大数和最小数并在标签框Label1上显示最大数与最小数的差。答案：x=InputBox（"请输入x"）n=1t=xs=xDoUntilAbs（t）<0.00000001n=n+1t=t*（-1）/ns=s+tLoopLabel1.Caption=&

7、quot;s="&s'题目：（事件）单击窗体。'（响应）已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用dowhile.loop语句完成程序答案：DimiAsIntegeri=1p=1DoWhilei<=9p=p*iIfiMod2=1Thens=s+1/pEndIfi=i+1LoopPrintssum=s,题目：（事件）单击窗体。,（响应）求从100到1000之间所有是3的倍数的数之和，当和大于3000时，停止计算并输出和。请将结果输出到窗体上，并存入所给变量SU"。使用for.next语句完成程序答案：Dim

8、iAsIntegersum=0fori=100to1000ifimod3=0thensum=sum+iifsum>3000thenexitforendifendifi=i+1nextPrintsum,题目：（事件）单击窗体。'（响应）求1-100中为5或7的倍数的和。请将结果输出到窗体上，并存入所给变量SUM中。使用while.wend语句完成程序答案：DimiAsIntegeri=1Whilei<=100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfi=i+1WendPrintSum'题目：（事件）单击窗体。'（响应）求出100以

9、内所有素数的和，并将结果输出到窗体上，并存入所给变量SUK答案：DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBooleanb=FalseFori=2To100b=Falsej=CInt（Sqr（i）Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum,题目：（事件）单击窗体。,（响应）求1!+2!+3!+10!的值，并在窗体上输出。结果存入变量L中答案：DimiAsIntegerDimsAsLongDimjAsIntegers=1Fori=1To10

10、s=s*il=l+sNextPrintStr（l）'题目：编写函数fun,函数的功能是：求一个四位数的各位数字的立方和答案：DimdAsInteger,kAsInteger,sAsIntegerWhilen>0d=nMod10s=s+d*d*dn=n/10Wendfun=s第46题（1.0分）题号:490''【程序设计】''题目：（事件）单击窗体。'（响应）已知sum=1-1/4+1/9-1/16+1/25.-1/100,请将sum结果值输出到窗体上。,使用for.next语句完成程序答案：DimiAsIntegerfori=1to10su

11、m=sum+(-1)人(i-1)/(i*i)nextPrintsum第48题（1.0分）题号:478''【程序设计】'题目：编写函数fun，其功能是：能计算从1开始到n的,自然数中偶数的平方的和。答案：DimsumAsInteger,iAsIntegersum=0Fori=2TonStep2sum=sum+i*iNextfun=sum第49题（1.0分）题号:208''【程序设计】'题目：请用Select语句编程计算打折后的金额？'折扣方法如下：,购物300以下，无优惠（使用MsgBox显示“无优惠”）；'购物300以上，95折；

12、'购物500以上，9折；'购物1000以上，85折；'购物5000以上，8折？'答案：SelectCasenCaseIs>5000n=n*0.8CaseIs>1000n=n*0.85CaseIs>500n=n*0.9CaseIs>300n=n*0.95CaseElseMsgBox"无优惠"EndSelect'题目：将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，,问有哪几种组合？将组合数存入变量OUT中。答案：DimnAsIntegerDimi%,j%,k%Pri

13、nt"5?1?0.5?"Fori=1To20Forj=1To100-ik=100-i-jIf5#*i+1#*j+0.5*k=100ThenPrinti,j,kn=n+1EndIfNextjNextiout=n'题目：(事件)单击窗体。'(响应)我国现有人口为13亿，设年增长率为1%计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用dowhile.loop语句完成程序。答案：dimpasdoubledimrassingledimnasintegerp=1300000000r=0.01dowhilep<2000000000p=p

14、+p*rn=n+1loopprint"n=”,nyear=n'题目：应用选择法对数组A按升序排列基本思想：1) 对有n个数的序列(存放在数组a(n)中)，从中选出最小的数，与第1个数交换位置;除第1个数外，其余n-1个数中选最小的数，与第2个数交换位置；依次类推，选择了n-1次后，这个数列已按升序排列。答案：Dimi,j,imin,tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa(imin)>a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti'题目：(事件)单

15、击窗体。'(响应)求一个数，它除3余2,除5余3,除7余2,请将满足上面条件的最小数保存到sum变量中。使用for.next语句完成程序答案：DimiAsIntegerFori=2To1000IfiMod3=2AndiMod5=3AndiMod7=2ThenPrintiExitForEndIfNextisum=i'题目：(事件)单击窗体。'(响应)生成一个一维数组(10个数组元素依此为：15、23、72、43、96、23、3、65、88、17),写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中答

16、案：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(i)>maxThenmax=a(i)EndIfIfa(i)<minThenmin=a(i)EndIfs=s+a(i)Nextaver=Int(s/10)Print(CStr(max)Print(CStr(min)Print(CStr(aver)题目：（事件）双击窗体。（响应）求s=1+1X2+1X2X3+1X2X3XX

17、10,并将结果存至u变量答案：Dimi,jAsIntegerDimkAsLongk=1S=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint（CStr（s）,题目：（事件）单击窗体。,（响应）求100到500之间奇数的和，将结果输出在窗体上并存入变量SUM中。使用do.loopuntil语句完成程序答案：DimiAsIntegeri=100doIfiMod2=1Thensum=sum+iEndIfi=i+1loopuntili>500Printsum,题目：（事件）单击窗体。,（响应）已知S=1+1/4+1/9+1/16+1/25+1/100,结

18、果输出在窗体上答案：DimiAsIntegers=0Fori=1To10s=s+1/（i人i）NextPrint（s）,题目：(事件)单击命令按钮Command1'(响应)计算如下表达式s的值，s=1+(1*2)+(1*2*3)+(1*2*3*6)并将结果输出到文本框Text1中。答案：DimjAsIntegerDimiAsIntegerj=1S=0Fori=1To6j=j*is=s+jNextiText1.Text=s题目：求两个数m,n的最大公约数p和最小公倍数q答案：nm=n*mIfm<nThent=m:m=n:n=tr=mModnDoWhile(r<>0)m=

19、nn=rr=mModnLoopp=nq=nm/n'题目：编写函数fun,函数的功能是：计算n门课程的平均值，计算结果作为函数值返回例如，若有5门课程的成绩是：92,76,69,58,88,则函数的值为76.6o答案：DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n,题目：(事件)单击窗体。'(响应)求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中答案：DimiAsIntegerFori=201To300If(iMod3)=0)And(iMod7)=0)ThenPrint(CStr(i)su

20、m=sum+iEndIfNextPrintsum'题目：（事件）单击窗体'（响应）用输入框输入一自然数，判断是"正数"、"负数"或"零"，并根据输入的数用消息框显示"正数"、"负数"或"零"。答案：n=InputBox（"输入一个自然数"）Ifn>0Thenresult="正数"Elselfn<0Thenresult="负数"ElseIfn=0Thenresult="零"

21、;EndIfMsgBox"输入的数据"&n&"为："&result或者'题目：（事件）双击窗体。'（响应）求出50以内所有奇数的和。将结果存入变量SUM中答案：DimiAsIntegerFori=1To50IfiMod2=1Thensum=sum+iEndIfNextPrintsum,题目：编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串"字母"数字字符显示字符串"数字",其他字符显示字符串其他"要求使用IF语句来实现。答案：IfUCase（n）>="A"AndUCase（n）<="Z"Thenfun="字母”ElseIfn>="0"Andn<="9"Thenfun="数字"Elsefun="其他"EndIf,题目：（事件）单击窗体。,（响应）