VB试题库—程序设计.pdfVIP

-

程序设计

〖第1题〗『程序设计』(5分)(题号:148)

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

(响应)求10~20之间所有素数的乘积并输出在窗体上。

将结果存入变量L中。

注意：请在指定的事件编写代码。

答案：

DimiAsInteger

DimjAsInteger

DimbAsBoolean

l=1

b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=True

EndIf

Ne*t

Ifb=FalseThen

l=l*i

EndIf

b=False

Ne*t

PrintStr(l)

〖第2题〗『程序设计』(5分)(题号:150)

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

(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。

将结果存入变量J中。

注意：请在指定的事件编写代码。

答案：

DimiAsInteger

Fori=1To100

IfiMod2=1Then

j=j+1/i

ElseIfiMod2=0Then

j=j-1/i

EndIf

Ne*t

Printj

〖第3题〗『程序设计』(5分)(题号:131)

【程序设计】

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

.z.

-

(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，

结果输出在窗体上。

将结果存入变量S中

答案：

DimiAsInteger

s=0

Fori=1To10

s=s+1/(i^i)

Ne*t

Print(s)

〖第4题〗『程序设计』(5分)(题号:152)

【程序设计】

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

(响应)求1+2+3+5+8+13+……前20项的和，并将结

果在窗体上输出。将结果存入变量SUM中。

注意：请在指定的事件编写代码。

答案：

DimiAsInteger

Dimj(1To20)AsInteger

Fori=1To20

Ifi3Then

j(i)=i

Else

j(i)=j(i-1)+j(i-2)

EndIf

sum=sum+j(i)

Ne*t

Printsum

〖第5题〗『程序设计』(5分)(题号:157)

【程序设计】

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

(响应)求10!的值，并将结果输出到窗体上。

将结果存入变量SUM中。

注意：请在指定的事件编写代码。

答案：

DimiAsInteger

sum=1

Fori=1To10

sum=sum*i

Ne*t