VB期末题搜索分析和总结.docx

--第一套题

【程序设计】

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

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

(响应)编写过程，任意输出n项Fibonacci数列，一行输出4项。

已知前两项的值分别为1,1。从第三项开始后一项是前两项这和。

例如，n值为20，输出结果如图所示。-------------------------------------------------

PrivateSubfac(a()AsDouble,nAsInteger)

DimiAsInteger**********Begin**************

***********End***************EndSub

PrivateSubForm_Click()

Dima()AsDouble,nAsInteger,iAsInteger

n=Val(InputBox(输入需要显示的Fibonacci数列的项数：))ReDima(n)

a(1)=1

a(2)=1

Cls

Callfac(a,n)

n=32:ReDima(n):a(1)=1:a(2)=1

Callfac(a,n)Fori=1TonOutResulta(i)Nexti

EndSub

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

【程序设计】

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

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

(响应)求100~200之间能够同时被3和5整除的数。

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

PrivateFunctionfac(nAsInteger)AsInteger*******Begin************

*******End************EndFunction

PrivateSubForm_Click()

DimiAsInteger,tAsIntegerDimnAsInteger

n=0

Fori=100To200

Iffac(i)ThenPrinti;Nexti

Fori=351To401

Iffac(i)ThenOutResult(i)Nexti

EndSub

PrivateSubOutResult(iAsInteger)DimOUTAsIntegerOUT=FreeFile

OpenApp.Path\15.outForAppendAs#OUTPrint#OUT,i

Close#OUT

EndSub

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

(响应)给定程序的功能是：读入一批整数（以0为结束标志），求其中正数之和。（输入数据用InputBox函数）

如输入：45，-67，-65，-34，24，12，0时，和值为81。-------------------------------------------------

PrivateSubForm_Click()Dimn%,s%

s=0

n=Val(InputBox(请输入第1个数：))**********Fill**********

DoWhile

**********Fill**********If Then

s=s+nEndIf

n=Val(InputBox(请输入下一个数：))

**********Fill**********

Print和值为：;sEndSub

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

【程序填空】

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

题目：计算1-4+9-16+….+81请在【】处填入正确的内容

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

PrivateSubForm_Click()Dims,i,cAsInteger**********Fill**********s=

i=1

c=1Do

**********Fill**********s=s+

c=c*(-1)i=i