vb题库-程序设计.docxVIP

、一 程序设计 【程序设计】 1.题目：编写函数 fun，函数的功能是：计算两个正整数的最大公约数，并显示。如： 两个数为 15、20，结果显示5 要求使用 Do...Loop 语句来实现。答案：Do r=mModn n=rLoop fun=n n=r Loop fun=n 2.题目：判断一个数是否是素数。答案： DimiAsInteger Prime=True Fori=2ToInt(Sqr(m)) IfmModi=0ThenPrime=False:ExitFor Nexti 3,题目：(事件)单击窗体。 (响应)求 10!的值，并将结果输出到窗体上。将结果存入变量 SUM 中。 答案： DimiAsInteger sum=1 Fori=1To10 sum=sum*i Next Printsum 4,题目：(事件)单击窗体。 (响应)求 1+2+3+……+100 的值，并把结果输出在窗体上。结果存入变量 SUM 中。答案： DimiAsInteger Fori=1To100 sum=sum+i Next Printsum 5,题目：编写函数 fun，函数的功能是：求 1 到 m 之间的偶数之积。答案： DimyAsDouble y=1 DimiAsInteger 精心整理 精心整理 精心整理 Fori=1Tom IfiMod2=0Then y=y*i EndIf N