2023年vb题库程序设计题讲解.doc

题目：(事件)单击窗体

(响应)用输入框输入一自然数，判断是正数、负数

或零，并根据输入的数用消息框显示正数、负数

或零。

n=InputBox(输入一个自然数)

Ifn0Then

result=正数

ElseIfn0Then

result=负数

ElseIfn=0Then

result=零

EndIf

MsgBox输入的数据n为：result

题目：编写函数fun，函数的功能是：判断一个字符是

字母字符、数字字符还是其他字符，并做相应的显示。

字母字符显示字符串字母

数字字符显示字符串数字

其他字符显示字符串其他

规定使用IF语句来实现。

IfUCase(n)=AAndUCase(n)=ZThen

fun=字母

ElseIfn=0Andn=9Then

fun=数字

Else

fun=其他

EndIf

题目：编写函数fun，函数的功能是：根据一个百分制

成绩mark（整数），显示相应五级制的评估。条件如下：

mark大于等于90显示优秀

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

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

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

mark小于60显示不及格

规定使用IF语句来实现。

PrivateFunctionfun(markAsInteger)AsString

**********Program**********

**********End**********

EndFunction

Ifmark=90Then

fun=优秀

ElseIfmark=80Then

fun=良好

ElseIfmark=70Then

fun=中档

ElseIfmark=60Then

fun=及格

Else

fun=不及格

EndIf

题目：编写函数fun，函数的功能是：判断一个字符是

字母字符、数字字符还是其他字符，并做相应的显示。

字母字符显示字符串字母

数字字符显示字符串数字

其他字符显示字符串其他

规定使用SelectCase语句来实现。

PrivateFunctionfun(nAsString)AsString

**********Program**********

**********End**********

EndFunction

SelectCasen

CaseaToz,AToZ

fun=字母

Case0To9

fun=数字

CaseElse

fun=其他

EndSelect

题目：编写函数fun，函数的功能是：当x的初值为10，

每年增长率为千分之八，计算多少年以后x的值能达成y，

并显示所需年数的值（变量名必须为n）。

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

x=10

n=0

DoWhilexy

x=x*1.008

n=n+1

Loop

fun=n

题目：编写函数fun，函数的功能是：计算两个正整数的

最大公约数，并显示。如：

两个数为15、20，结果显示5

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

Do

r=mModn

Ifr=0ThenExitDo

m=n

n=r

Loop

fun=n

编写函数fun，函数的功能是：求1~1000以内能

同时被m、n整除的数的总和并显示。

Sum=0

Fori=1To1000

IfiModm=0AndiModn=0Then

Sum=Sum+i

EndIf

Nexti

fun=Sum

题目：编写函数fun，函数的功能是：求从m到n的乘积并显示，

Product=1

Fori=mTon

Product=Product*i

Nexti

fun=Product

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

(响应)一球从100米高度自由落下，每次落地返回

原高度的一半，求第10次落地时，共通过多

少米？并将结果在窗体上输出。

Dimj,iAsInteger

s=0

j=100

Fori=2To10

j=j/2

s=s+2*j

Next

s=100+s

Print(CStr(s))

题目：