vb试题库-程序设计

---.可修编.程序设计'【程序设计】1.' 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5"'要求使用Do...Loop语句来实现。答案：Dor=mModnIfr=0ThenExitDom=nn=rLoopfun=n2.'题目：判断一个数是否是素数。答案：----------------------DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))IfmModi=0ThenPrime=False:ExitForNexti----------------------3,'题目：(事件)单击窗体。'(响应)求10!的值，并将结果输出到窗体上。将结果存入变量SUM中。答案：----------------------DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum4,'题目：(事件)单击窗体。(响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。答案：----------------------DimiAsIntegerFori=1To100sum=sum+iNextPrintsum----------------------5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。答案：----------------------DimyAsDoubley=1DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNextfun=y----------------------6,'题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：mark大于等于90显示"优秀"mark小于90且大于等于80显示"良好"mark小于80且大于等于70显示"中等"mark小于70且大于等于60显示"及格"mark小于60显示"不及格"要求使用Select语句来实现。答案：SelectCasemarkCaseIs>=90fun="优秀"CaseIs>=80fun="良好"CaseIs>=70fun="中等"CaseIs>=60fun="及格"CaseElsefun="不及格"EndSelect7,'题目：(事件)双击窗体(响应)求100以奇数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：----------------------DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum----------------------8,'题目：(事件)单击窗体。'(响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。答案：------------------------------------Fori=100To200Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfj>Int(Sqr(i))ThenSum=Sum+iEndIfNextPrintSum------------------------------------9,'题目：将一个十进制整数m转换成→r(2－16)进制字符串。方法：将m不断除r取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串chr函数：将ascii码转换为对应字母。答案：----------------------DimstrDecR$,iDecR%strDecR=""DoWhileidec<>0iDecR=idecModibaseIfiDecR>=10ThenstrDecR=Chr$(65+iDecR-10)&strDecRElsestrDecR=iDecR&strDecREndIfidec=idec\ibaseLoopTrDec=strDecR----------------------10,'题目：(事件)单击按钮。(响应)随机产生N个两位正整数（N由输入对话框输入，且N>0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。答案：--------------------------------x=InputBox("请输入x")n=1t=xs=xDoUntilAbs(t)<0.00000001n=n+1t=t*(-1)/ns=s+tLoopLabel1.Caption="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时，停止计算并输出和。请将结果输出到窗体上,并存入所给变量SUM中。使用for...next语句完成程序答案：----------------------DimiAsIntegersum=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以所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中。答案：----------------------DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBooleanb=FalseFori=2To100b=Falsej=CInt(Sqr(i))Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum----------------------'题目：(事件)单击窗体。'(响应)求1!+2!+3!+……+10!的值，并在窗体上输出。结果存入变量L中。答案：----------------------DimiAsIntegerDimsAsLongDimjAsIntegers=1Fori=1To10s=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=1to10sum=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折；'购物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元的人民币等值换成1005元、1元和0.5元的零钞，要求每种零钞不少于1，'问有哪几种组合？将组合数存入变量OUT中。答案：----------------------DimnAsIntegerDimi%,j%,k%Print"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+p*rn=n+1loopprint"n=",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=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti----------------------'题目：(事件)单击窗体。'(响应)求一个数,它除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中答案：----------------------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)500Printsum----------------------'题目：(事件)单击窗体。'(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。答案：----------------------DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)----------------------'题目：(事件)单击命令按钮mand1。'(响应)计算如下 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式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*mIfm0)m=nn=rr=mModnLoopp=nq=nm/n----------------------'题目：编写函数fun，函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。例如，若有5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。答案：----------------------DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n----------------------'题目：(事件)单击窗体。'(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中答案：----------------------DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum----------------------'题目：(事件)单击窗体'(响应)用输入框输入一自然数，判断是"正数"、"负数"或"零"，并根据输入的数用消息框显示"正数"、"负数"或"零"。答案：-------------------------------------n=InputBox("输入一个自然数")Ifn>0Thenresult="正数"ElseIfn<0Thenresult="负数"ElseIfn=0Thenresult="零"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'题目：(事件)单击窗体。'(响应)求50以所有偶数的和，并在窗体上输出出来。将结果存入变量S中。答案：----------------------DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s))----------------------'题目：(事件)单击窗体。'(响应)求100以偶数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：----------------------DimiAsIntegerFori=1To100IfiMod2=0Thensum=sum+iEndIfNextPrintsum----------------------题目：(事件)双击窗体。'(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中答案：----------------------Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext----------------------'题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m例如：若m=9，则应输出：1.413答案：----------------------DimyAsDoubleDimiAsIntegerFori=1Tomy=y+1/(2*i)Nextfun=y题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值:'y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1)'例如：若m=9，则应输出：2.133255-------------------------------------------------答案：----------------------DimyAsDoubleDimiAsIntegery=1Fori=1Tomy=y+1/(2*i+1)Nextfun=y