【程序设计】

题目：事件单击窗体。

响应我国现有人口为13亿，设年增长率为1，

计算多少年后增加到20亿。并将结果输出

在窗体上。将结果存入变量year中。

使用dowhileloop语句完成程序。
PrivateSubForm_ClickDimyearAsI
tegersumAsSi
gleBegi

DimpasdoubleDimrassi
gleP1300000000r001Dowhilep2000000000Pppr
1LoopPri
t“
”
Year

E
d

题目：事件单击窗体。

响应求从100到1000之间所有是3的倍数的数之
和，当和大于3000时，停止计算并输出和。请将结果输
出到窗体上并存入所给变量SUM中。使用for
ext语
句完成程序

PrivateSubForm_Click
DimsumAsI
teger
Begi

sum0
DimiAsI
teger
Fori100To1000
IfiMod30The

sumsumi
Ifsum3000The
ExitFor
E
dIf
fNextiPri
tsumE
d1题目（事件）点击窗体（响应）求1！2！3！…………………10的值，并在窗体上输出，结果存入变量L中PrivatesubformclickDimlaslo
gDimpaslo
gP1Fori1to10Ppillp
extpri
tle
dsub
3题目点击窗体
求100以内偶数的和，并将结果输出在窗体上，将结果存入变量sum中
Privatesubformclick
如果是奇数的和，则
Dimsumasi
teger
……………………
Fori0to100step2
fori1to100step2
Sumsumi
………………
Next
………
Pri
tsum
E
dsub
………………………
题目：单击窗体
求12345………………100的值并将结果输入在窗体上，结果存入变量sum中
Privatesubformclick
Dimsumasi
teger
Fori0to100
Sumsumi
Next
Pri
tsum
E
dsub
题目双击窗体
求151015……………500的和，并将结果输出在窗体上，将结果存入变量sum中
Privatesubformclick
Dimsumaslo
g
Sum0
Fori0to500step5
Sumsumi
Next
Pri
tsum
E
dsub
f题目：求两个数m
的最大公约数p和最小公倍数q

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

PrivateSubForm_Load
Show
DimpqAsI
teger
Dimm
mAsI
teger
DimtrAsI
teger
m21

28
Begi

m
m
Ifm
the
tmm
t
Rmmod

Dowhiler0
m

r
rmmod

Loop
P

q
m

E
d
题目：事件单击窗体。

响应求1020之r