VB题库程序设计.docx

VB题库程序设计.docx

《VB题库程序设计.docx》由会员分享，可在线阅读，更多相关《VB题库程序设计.docx（28页珍藏版）》请在冰豆网上搜索。

VB题库程序设计

程序设计

〖第1题〗『程序设计』（5分）（题号:

148）

'题目：

（事件）单击窗体。

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

'将结果存入变量L中。

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

DimjAsInteger

DimbAsBoolean

l=1

b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=True

EndIf

Next

Ifb=FalseThen

l=l*i

EndIf

b=False

Next

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

Next

Printj

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

〖第3题〗『程序设计』（5分）（题号:

131）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，

'结果输出在窗体上。

'将结果存入变量S中

答案：

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

DimiAsInteger

s=0

Fori=1To10

s=s+1/（i^i）

Next

Print（s）

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

〖第4题〗『程序设计』（5分）（题号:

152）

'【程序设计】

'题目：

（事件）双击窗体。

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

'果在窗体上输出。

将结果存入变量SUM中。

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

Dimj（1To20）AsInteger

Fori=1To20

Ifi<3Then

j（i）=i

Else

j（i）=j（i-1）+j（i-2）

EndIf

sum=sum+j（i）

Next

Printsum

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

〖第5题〗『程序设计』（5分）（题号:

157）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）求10!

的值，并将结果输出到窗体上。

'将结果存入变量SUM中。

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

sum=1

Fori=1To10

sum=sum*i

Next

Printsum

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

〖第6题〗『程序设计』（5分）（题号:

489）

'题目：

（事件）单击窗体。

'（响应）已知sum=1-1/3!

+1/5!

-1/7!

+1/9!

'请将sum结果值输出到窗体上。

'使用dowhile...loop语句完成程序

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

DimnAsInteger

i=1

p=1

DoWhilei<=10

p=p*i

IfiMod2=1Then

n=n+1

sum=sum+（-1）^（n-1）/p

EndIf

i=i+1

Loop

Printsum

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

〖第7题〗『程序设计』（5分）（题号:

154）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）求100以内偶数的和，并将结果输出在窗体上。

'将结果存入变量SUM中

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

Fori=1To100

IfiMod2=0Then

sum=sum+i

EndIf

Next

Printsum

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

〖第8题〗『程序设计』（5分）（题号:

134）

'【程序设计】

'题目：

（事件）双击窗体。

'（响应）s=20+21+22+…+263，求s的值，并将结果

'存储到变量S中。

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

i=20

Whilei<=263

s=s+i

i=i+1

Wend

Print（CStr（s））

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

〖第9题〗『程序设计』（5分）（题号:

142）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）编写程序求10×11×12+11×12×13+…+15×16×17的结果，

'并将结果输出到窗体上。

'将结果存入变量M中

'注意：

请在指定的事件内编写代码。

答案：

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

Dimi,jAsInteger

DimsAsLong

Fori=10To15

s=1

Forj=iToi+2

s=s*j

Next

m=m+s

Next

Print（CStr（m））

〖第1题〗『程序设计』（5分）（题号:

149）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）求1!

+2!

+3!

+……+10!

的值，并在窗体上输出。

'结果存入变量L中。

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

DimsAsLong

DimjAsInteger

s=1

Fori=1To10

s=s*i

l=l+s

Next

PrintStr（l）

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

〖第2题〗『程序设计』（5分）（题号:

146）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）求50以内所有偶数的和，并在窗体上输出出来。

'将结果存入变量S中。

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

Fori=2To50

If（iMod2）=0Then

s=s+i

EndIf

Next

Print（CStr（s））

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

〖第3题〗『程序设计』（5分）（题号:

140）

'【程序设计】

'题目：

（事件）双击窗体。

'（响应）编写代码功能如（图1）。

'将结果存入变量S中

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

s=1

Fori=1To10

s=s*i*i

Next

Print（CStr（s））

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

〖第4题〗『程序设计』（5分）（题号:

484）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）求从100到1000之间所有是3的倍数的数之

'和，当和大于3000时，停止计算并输出和。

请将结果输

出到窗体上,并存入所给变量SUM中。

使用for...next语

'句完成程序

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

sum=0

fori=100to1000

ifimod3=0then

sum=sum+i

ifsum>3000then

exitfor

endif

endif

i=i+1

next

Printsum

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

〖第5题〗『程序设计』（5分）（题号:

156）

'【程序设计】

'题目：

（事件）双击窗体。

'（响应）求3+6+9+12+15+18+……+300的和，并将结

'果输出到窗体上。

将结果存入变量SUM中。

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

Fori=3To300

IfiMod3=0Then

sum=sum+i

EndIf

Next

Printsum

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

〖第6题〗『程序设计』（5分）（题号:

412）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）输出所有的三位数，它满足该数中有某两位

'为相同的数，且该数是一个完全平方数。

'求出所有这些数的和，并将结果存入变量SUM中。

'注意：

请在指定的事件内编写代码。

答案：

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

dimaasinteger,basinteger

dimb3asinteger,b2asinteger,b1asinteger

fora=10to31

b=a*a

b3=b\100

b2=（b\10）mod10

b1=bmod10

ifb1=b2orb1=b3orb2=b3then

?

a,b

sum=sum+b

endif

nexta

?

sum

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

〖第7题〗『程序设计』（5分）（题号:

487）

'【程序设计】

'题目：

（事件）单击窗体。

'（响应）已知s=1+1/3!

+1/5!

+1/7!

+1/9!

请将s结果值

'输出到窗体上。

使用dowhile...loop语句完成程序

'注意：

请在指定的事件内编写代码。

答案：

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

DimiAsInteger

i=1

p=1

DoWhilei<=9

p=p*i

IfiMod2=1Then

s=s+1/p

EndIf

i=i+1

Loop

Prints

sum=s

〖第8题〗『程序设计』（5分）（题号:

496）

'【程序设计】

'题目：

（事