2021年vb题库程序设计.doc

程序设计

'【程序设计】

1.'题目：编写函数fun，函数功能是：计算两个正整数最大公约数，并显示。如：

'两个数为15、20，成果显示"5"

'规定使用Do...Loop语句来实现。

答案：Do

r=mModn

Ifr=0ThenExitDo

m=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

Next

fun=y

----------------------

6,'题目：编写函数fun，函数功能是：依照一种百分制成绩mark（整数），显示相应五级制评估。条件如下：

mark不不大于等于90显示"先进"

mark不大于90且不不大于等于80显示"良好"

mark不大于80且不不大于等于70显示"中档"

mark不大于70且不不大于等于60显示"及格"

mark不大于60显示"不及格"规定使用Select语句来实现。

答案：SelectCasemark

CaseIs>=90

fun="先进"

CaseIs>=80

fun="良好"

CaseIs>=70

fun="中档"

CaseIs>=60

fun="及格"

CaseElse

fun="不及格"

EndSelect

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

答案：----------------------

DimiAsInteger

Fori=1To100

IfiMod2=1Then

sum=sum+i

EndIf

Next

Printsum

----------------------

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

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

答案：------------------------------------

Fori=100To200

Forj=2ToSqr(i)

IfiModj=0ThenExitFor

Next

Ifj>Int(Sqr(i))Then

Sum=Sum+i

EndIf

Next

PrintSum

------------------------------------

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

办法：将m不断除r取余数，直到商为零，以反序得到成果。下面写出一转换函数，参数idec为十进制数，ibase为要转