vb题库程序设计.docx

、一 程序设计

【程序设计】

1.题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：两个数为15、20，结果显示5

要求使用Do...Loop语句来实现。答案：Do

r=mModn

n=rLoopfun=n

n=r

Loopfun=n

2.题目：判断一个数是否是素数。答案： DimiAsInteger

Prime=TrueFori=2ToInt(Sqr(m))

IfmModi=0ThenPrime=False:ExitFor

Nexti

3,题目：(事件)单击窗体。

(响应)求10!的值，并将结果输出到窗体上。将结果存入变量SUM中。

答案：

DimiAsIntegersum=1Fori=1To10sum=sum*iNext

Printsum

4,题目：(事件)单击窗体。

(响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。答案：

DimiAsInteger

Fori=1To100sum=sum+iNextPrintsum

5,题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。答案：

DimyAsDouble

y=1DimiAsInteger

精心整理

精心整理

精心整理

Fori=1TomIfiMod2=0Theny=y*i

EndIfNextfun=y

6,题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：mark大于等于90显示优秀

mark小于90且大于等于80显示良好

mark小于80且大于等于70显示中等

mark小于70且大于等于60显示及格

mark小于60显示不及格要求使用Select语句来实现。答案：SelectCasemark

CaseIs=90

fun=优秀CaseIs=80fun=良好CaseIs=70fun=中等CaseIs=60fun=及格CaseElsefun=不及格EndSelect

7,题目：(事件)双击窗体(响应)求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：

DimiAsInteger

Fori=1To100IfiMod2=1Thensum=sum+iEndIf

NextPrintsum

8,题目：(事件)单击窗体。

(响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。答案：

Fori=100To200

Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfjInt(Sqr(i))ThenSum=Sum+i

EndIfNext

PrintSum

9,题目：将一个十进制整数m转换成→r(2－16)进制字符串。

方法：将m不断除r取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串

chr函数：将ascii码转换为对应字母。答案： DimstrDecR$,iDecR%

strDecR=DoWhileidec0iDecR=idecModibaseIfiDecR=10Then

strDecR=Chr$(65+iDecR-10)strDecRElse

strDecR=iDecRstrDecREndIf

idec=idec\ibaseLoopTrDec=strDecR

10,题目：(事件)单击按钮。

(响应)随机产生N个两位正整数（N由输入对话框输入，且N0），求出其中的最大数和最小数，并在标签框Label1

上显示最大数与最小数的差。

答案：

x=InputBox(请输入x)n=1

t=xs=x

DoUntilAbs(t)0n=n+1

t=t*(-1)/ns=s+t

LoopLabel1.Caption=s=s

题目：(事件)单击窗体。

(响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用dowhile...loop语句完成程序答案：

DimiAsInteger

i=1p=1

DoWhilei=9p=p*iIfiMod2=1Then

s=s+1/pEndIf

i=i+1

Loop

Printssum=s

题目：(事件)单击窗体。

(响应)求从100到1000之间所有是3的倍数的数之和，当和大于3000时，停止计算并输出和。请将结果输出