VB程序设计考试题库-考试专用

程序设计题

1、题目：（事件）单击窗体（响应）用输入框输入一自然数，判断就是"正数”、"负数或“零"，并根

据输入得数用消息框显示”正数“、"负数〃或“零”.

2、题目：（事件）单击窗体。（响应）求200〜300之间既能被3整除又能被7整除得数.并求出所

有数之与存入变量SUM中

3、题目：单击窗体。（响应）已知S=l+l/4+l/9+1/16+1/25+-+1/100,结果输出在窗体上。

4、题目：（事件）单击窗体.（响应）在窗体上打印数列2/I,3/2,5/3,8/5,13/8…得前10项，

并求其与，将与保存在变量s中。

5、题目：（事件）双击窗体。（响应）把一元钞票换成一分、二分与五分得硬币每种至少有一枚），求出

其所有得换法，把结果输出在窗体上。将所有得换法得数目存入变量N中

6、题目:单击窗体。）求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中

7、题目：（事件）单击窗体。（响应）生成一个一维数组（10个数组元素依此为：

'15、23、72、43、96、23、3、65、88、17

写程序求出这个数组中得最大值、最小值与平均值，并输出在窗体上。将最大值，最小值，平均值分别存

入变量Max,Min,Aver中

8、题目:(事件)单击窗体。(响应)在窗体上输出100〜200之间得所有合数。求出所有数之与存入

SUM中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。

9、题目：(事件)单击窗体.(响应)求10〜20之间所有素数得乘积并输出在窗体上。将结果存入变

量L中。

10、题目：(事件)单击窗体。(响应)求1-1/2+1/3-1/4+.......+1/99-1/100得值。

将结果存入变量J中。

1题

n二InputBox(〃输入一个自然数”)

Ifn>0Then

result=〃正数"

Elselfn<0Then

result=”负数〃

Elselfn=0Then

result=〃零”

EndIf

MsgBox〃输入得数据”&n&〃为：〃&result

2题

DimiAsInteger

Fori=201To300

If((iMod3)=0)And((iMod7)=0)Then

Print(CStr(i))

sum=sum+i

EndIf

Next

Printsum

3题

DimiAsInteger

s=0

Fori=1To10

s=s+1/(ii)

Next

Print(s)

4题

Dimi,j,k,mAsInteger

s=0:i=2:j=1

Fork=1To10

s=s+i/j

m二j

Print(CStr(i))&〃/〃&CStr(j)

j=i

i=i+m

Next

5题

Dimi,j,kAsInteger

Fori=1To100

Forj=1To50

Fork=1To20

If((i+2*j+k*5)=100)Then

Print(CStr(i))

Print(CStr(j))

Print(CStr(k))

n=n+1

EndIf

Next

Next

Next

6题

Dimi,j,kAsInteger

Fori=1To5

k=1

Forj=1Toi

k=k*j

Next

s=s+k

Next

Print(CStr(s))

7题

Dima(9)AsInteger

Dimi,sAsInteger

a(0)=15：a(l)=23:a(2)=72

a(3)=43:a(4)=96：a(5)=23

a(6)=3：a(7)=65:a(8)=88

a(9)=17：max=a(0)：min=a(0)

s二0

Fori=0To9

Ifa(i)>maxThen

max=a(i)

EndIf

Ifa(i)<minThen

min=a(i)

EndIf

s=s+a(i)

Next

aver=Int(s/10)

Print(CStr(max))

Print(CStr(min))

Print(CStr(aver))

8题

Dimi,j,sAsInteger

Fori=100To200

Forj=2ToSqr(i)

If(iModj)二0Then

Print(CStr(i))

sum-sum+i

ExitFor

EndIf

Next

Next

Printsum

9题

Dimi%,j%,bAsBoolean

1=1：b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=True

EndIf

Next

Ifb=FalseThen

1=1*i

EndIf

b=Fa1se

Next

PrintStr(1)

10题

DimiAsInteger

Fori=1To100

IfiMod2=1Then

j=j+1/i

E1seIfiMod2二0Then

j=j-1/i

EndIf

Next

Printj

11、题目：(事件)单击窗体.(响应)如果一个数得真因子之与等于这个数本身，则称这样得数为“完

全数”。例如，整数28得真因子为1、2、4、7、11,其与就是28。因此28就是一个完全数。请编写一个程

序，求出500以内最大得完全数。并存入变量SUM中。使用for、、、next语句完成程序

12、题目：应用选择法对数组A按升序排列

13、题目：单击窗体。求一个数，它除3余2,除5余3,除7余2,请将满足上面条件得最小数保存

到sum变量中.使用for、、、next语句完成程序.

14、题目:编写函数fun,函数得功能就是：判断一个字符就是字母字符、数字字符还就是其她字符，

并做相应得显示。字母字符显示字符串“字母"，数字字符显示字符串“数字"，其她字符显示字符串“

其她“，要求使用IF语句来实现.

PrivateFunctionfun(nAsString)AsString

'**********Program**********

‘**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(“A")

Printfun("9H)

Printfun(〃&〃)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

DimIAsInteger

Dima(10)AsString*1

DimfinAsInteger

Dimf0utAsInteger

fIn=FreeFile

OpenApp>Path&"\in、dat"ForInputAs#fln

fOut=FreeFile

0penApp、Path&"\out、dat"ForOutputAs#fOut

Fori=1To10

LineInput#fln,a(i)

Print#f0ut,fun(a(i))

Next

C1ose#fIn

Close#fOut

EndSub

15、题目:编写函数fun,函数得功能就是：根据一个百分制成绩mark(整数)，显示对应五级制得评

定.条件如下：

'mark大于等于90显示"优秀"

Jmark小于90且大于等于80显示“良好”

'mark小于80且大于等于70显示“中等”

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

'mark小于60显示“不及格”

'要求使用IF语句来实现。

PrivateFunctionfun(markAsInteger)AsString

'**********Program**********

'********大*End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(90)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

DimsAsString

Dima(10)AsInteger

DimfInAsInteger

DimfOutAsInteger

fin=FreeFile

OpenApp、Path&'*\in>dat'*ForInputAs#fln

fOut=FreeFile

OpenApp、Path&"\out、dat"ForOutputAs#fOut

Fori=1To10

LineInput#fIn,s

a(i)=Val(s)

Print#fOut,fun(a(i))

Next

Close#fIn

Close#fOut

EndSub

16、题目：编写函数fun,函数得功能就是：当x得初值为10,每年增长率为千分之八，计算多少年以

后x得值能达到y，并显示所需年数得值(变量名必须为n).

'要求使用DoWhi1e、、、Loop语句来实现。

PrivateFunctionfun(yAsSingle)AsLong

DimxAsSingle,nAsLong

'**********Program大*********

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

EndFunction

PrivateSubForm_Load()

Show

Printfun(15)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimflnAsInteger

DimfOutAsInteger

fln=FreeFile

OpenApp、Path&"\in、dat"ForInputAs#fln

fOut=FreeFile

OpenApp>Path&〃\out、dat"ForOutputAs#fOut

Fori=1To10

LineInput#fIn,a(i)

Print#fOut,Trim(Str(fun(Vai(a(i)))))

Next

Close#fln

C1ose#fOut

EndSub

17、题目:编写函数fun,函数得功能就是：求从m到n得乘积并显示，'如:m为2,n为4时,显示”

24…存储连乘得乘积得变量必须为Product，要求使用For语句来实现。

PrivateFunctionfun(mAsInteger,nAsInteger)AsLong

DimProductAsDoub1e,tAsInteger

Ifm>nThent=m：m=n：n=t

'**********Program**********

'**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(4,2)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfInAsInteger

DimfOutAsInteger

fln=FreeFile

OpenApp、Path&"\in、dat"ForInputAs#fIn

fOut=FreeFiIe

OpenApp>Path&"\out、dat"ForOutputAs#fOut

Fori=1To10Step2

LineInput#fIn,a(i)

LineInput#fIn,a(i+1)

Print#fOut,Trim(Str(fun(Vai(a(i)),Vai(a(i+1)))))

Next

Close#fIn

Close#fOut

EndSub

18、题目:编写函数fun,函数得功能就是:判断一个数就是否为素数.并显示相应提示。如：

该数为素数时,显示”素数七该数为非素数时，显示“非素数”'要求使用For语句来实现,用布尔型变量

flag作为该数就是否为素数得标志，注意:不得使用Got。语句。

PrivateFunctionfun(mAsLong)AsString

DimflagAsBoolean

'**********Program**********

'**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(225)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfinAsInteger

DimfOutAsInteger

fin=FreeFile

OpenApp>Path&"\in、dat"ForInputAs#fln

fOut=FreeFile

OpenApp、Path&"\out>dat"ForOutputAs#fOut

Fori=1To10Step1

LineInput#fIn,a(i)

Print#fOut,fun(Val(a(i)))

Next

Close#fIn

Close#fOut

EndSub

Next

C1ose#fIn

C1ose#fOut

EndSub

19、题目：编写函数fun,函数得功能就是:求1〜100以内能被m整除或能被n整除得数得总与并显

示。如：

'm为15,n为11时，显示“810"，'存储总与得变量必须为Sum,'要求使用For语句来实现。

PrivateFunctionfun(mAsInteger,nAsInteger)AsLong

DimSumAsLong

'**********Program*****火***♦

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

EndFunction

PrivateSubForm_Load()

Show

Printfun(15,11)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfinAsInteger

DimfOutAsInteger

fIn=FreeFi1e

OpenApp、Path&"\in、dat"ForInputAs#fIn

fOut=FreeFile

OpenApp、Path&"\out、dat"ForOutputAs#fOut

Fori=1To10Step2

LineInput#fln,a(i)

LineInput#fln,a(i+1)

Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))

Next

Close#fIn

Close#fOut

EndSub

20、题目：编写函数fun,函数得功能就是:计算并输出给定整数n得所有因子之与(不包括1与自身).

规定n得值不大于1000?例如：n得值为855时，应输出704.

21、题目:：编写函数fun其功能就是：判断一个整数w得各位数字平方之与能否被5整除，可以被

5整除则返回1,否则返回0

22、题目:编写函数fun其功能就是：根据整型形参m,计算如下公式得值：

'y=l/5+1/6+1/7+1/8+1/9+1/10、、、+l/(m+5)

求：函数中用到得中间变量必须声明为Sing1e类型.

11题

DimiAsInteger

dimsasinteger

Fori=500To1Step—1

s=i

Forj=i—1To1Step—1

IfiModj=0Then

s二s-j

EndIf

Nextj

Ifs=0Then

ExitFor

EndIf

Nexti

Printi

sum二i

12题

Dimi,j,imin,tempAsInteger

Fori=1Ton—1

imin=i

Forj=i+1Ton

Ifa(imin)>a(j)Thenimin=j

Nextj

temp=a(i)

a(i)=a(imin)

a(imin)=temp

Nexti

13题

DimiAsInteger

Fori=2To1000

IfiMod3=2AndiMod5=3AndiMod7=2Then

Printi

ExitFor

EndIf

Nexti

sum=i

14题IfUCase(n))="A"AndUCase(