文档介绍：程序设计'【程序设计】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)<n=n+1t=t*(-1)/ns=s+tLoop="s="&s--------------------------------'题目:(事件)单击窗体。'(响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s