程序设计题实战解析与解题技巧.pdfVIP

程序设计题

1.求1－100之间所有的质数。

PrivateSubCommand1_Click()

Dimn%,i%,flag%,k%

Forn=1To100Step2

k=Int(Sqr(n))

eSubFormClickDimiabnAsStringnInputBox输入字符iLennForaToibMidnaMidnaMidniaMidniabNextaPrintnEndSub到被或整除的数的和PrivateSubCommand

i=2

flag=0

DoWhilei=k

IfnModi=0Then

flag=1

EndIf

i=i+1

Loop

Ifflag=0Then

Printn

EndIf

Nextn

EndSub

2.计算1－100之间所有整数的和