vb试题库-程序设计

《vb试题库-程序设计》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、.一、程序设计'【程序设计】1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5"'要求使用Do...Loop语句来实现。答案：Dor=mModnIfr=0ThenExitDom=nn=rLoopfun=n2.'题目：判断一个数是否是素数。答案：----------------------DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))IfmModi=0ThenPrime=False:ExitForNexti---------------

2、-------3,'题目：(事件)单击窗体。'(响应)求10!的值，并将结果输出到窗体上。将结果存入变量SUM中。答案：----------------------DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum4,'题目：(事件)单击窗体。(响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。答案：----------------------DimiAsIntegerFori=1To100sum=sum+iNextPrintsum-------------

3、---------5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。答案：----------------------DimyAsDoubley=1..DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNextfun=y----------------------6,'题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：mark大于等于90显示"优秀"mark小于90且大于等于80显示"良好"mark小于80且大于等于70显示"中

4、等"mark小于70且大于等于60显示"及格"mark小于60显示"不及格"要求使用Select语句来实现。答案：SelectCasemarkCaseIs>=90fun="优秀"CaseIs>=80fun="良好"CaseIs>=70fun="中等"CaseIs>=60fun="及格"CaseElsefun="不及格"EndSelect7,'题目：(事件)双击窗体(响应)求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：----------------------DimiAsIntegerFori=1To100If

5、iMod2=1Thensum=sum+iEndIfNextPrintsum----------------------8,'题目：(事件)单击窗体。'(响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。答案：------------------------------------Fori=100To200Forj=2ToSqr(i)..IfiModj=0ThenExitForNextIfj>Int(Sqr(i))ThenSum=Sum+iEndIfNextPrintSum-----------------

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

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

8、0.00000001n=n+1t=t*(-1)/ns=s+tLoopLabel1.Caption="s="&s--------------------------------'题目：(事件)单击窗体。'(响