程序设计复习题Word格式.docx

程序设计复习题Word格式.docx

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

PrivateSubForm_Click（）

DimsumAsInteger

*****************Begin**************

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

CallTestFunc（sum）

EndSub

PrivateSubTestFunc（iAsInteger）

DimOUTAsInteger

OUT=FreeFile

OpenApp.Path&

"

\out.txt"

ForOutputAs#OUT

Print#OUT,i

Close#OUT

答案

DimiAsInteger

sum=0

fori=100to1000

ifimod3=0then

sum=sum+i

ifsum>

3000then

exitfor

endif

i=i+1

next

Printsum

（事件）双击窗体。

（响应）求1+5+10+15+……+500的和，并将结果输出到窗体上。

将结果存入变量SUM中

PrivateSubForm_dblClick（）

DimsumAsLong

sum=1

*******Begin**********

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

TestFunc（sum）

Fori=5To500

IfiMod5=0Then

sum=sum+i

EndIf

Next

Printsum+1

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

存储到变量S中。

PrivateSubForm_DblClick（）

DimsAsLong

********Begin*******

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

TestFunc（s）

PrivateSubTestFunc（iAsLong）

\6.out"

i=20

Whilei<

=263

s=s+i

i=i+1

Wend

Print（CStr（s））

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

PrivateSubForm_dblClick（）

DimsumAsInteger

********Begin***********

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

\25.out"

DimiAsInteger

Fori=1To100

IfiMod2=1Then

Printsum

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

将结果存入变量S中

DimsAsDouble

**********Begin**********

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

PrivateSubTestFunc（iAsDouble）

\12.out"

s=1

Fori=1To10

s=s*i*i

Next

（响应）求出100~200之间，能被5整除，但不能被3整除的数。

并求所有数之和，存入变量中SUM中

sum=0

**********Begin*********

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

TestFunc（sum）

\17.out"

Fori=100To200

If（（iMod5）=0）And（（iMod3）<

>

0）Then

Print（CStr（i））

（响应）求出50以内所有奇数的和。

*******Begin*******

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

\19.out"

Fori=1To50

（事件）单击窗体。

（响应）求200~300之间既能被3整除又能被7整除的数。

并求出所有数之和存入变量SUM中

*****************Begin************

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

\2.out"

Fori=201To300

If（（iMod3）=0）And（（iMod7）=0）Then

（响应）求1+2+3+……+100的值，并把结果输出在窗体上。

结果存入变量SUM中

--------