E
dIf
s0
Pri
tsum
t1
第十二题
Fori1To5
题目：（事件）单击窗体
tit
（响应）求1020之间所有素数的乘积并输出在窗体上。
Sumsumt
将结果存入变量L中
Next

fPri
tSum
第十八题题目：（事件）双击窗体
（响应）求369121518…300的和，并将结果输出到窗体上。将结果存入变量SUM中
代码：DimsumAsI
tegersum0Fori3To300Step3sumsumiNextiPri
tsum
第十九题题目：（事件）单击窗体
（响应）求10的值，并将结果输出在窗体上。将结果存入变量SUM中
代码：DimsumAsLo
gDimiAsI
tegersum1Fori1To10sumisumNextPri
tsum
第二十二题题目：（事件）单击窗体
（响应）已知S11419116125…1100，结果输出在窗体上。将结果存入变量S中
代码：DimiAsI
tegers0Fori1To10ss1iiNextPri
ts
第二十三题题目：（事件）单击窗体
（响应）在窗体上打印数列21325385138…的前10项，并求其和。代码：DimijkmAsI
teger

s0i2j1Fork1To10mjPri
t（CStri）“”CStrjjiiimssijNext
第二十四题题目：（事件）单击窗体
（响应）一球从100米高度自由落下，每次落地返回。原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。代码：DimjiAsI
teger
s0j100Fori2To10jj2ss2jNexts100sPri
tCStrs第二十七题题目：（事件）单击窗体。
（响应）求出10009999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。并求出所有这样的数的和存入SUM中。代码：DimiAsI
teger
DimjAsI
tegerFori1000To9999jValMidTrimStri22Ifj2iThe
Pri
tisumsumiE
dIfNext第二十八题
f
题目：（事件）双击窗体
Pri
tCStraver
（响应）把一元钞票换成一分、二分、和五分的硬币（每种至少有一枚），求出其所有的换法，第三十二题
把结果输出在窗体上。将所有的换法的数目存入变量N中
题目：（事件）单击窗体。
代码：DimijkAsI
teger
（响应）在窗体上输出100200之间的所有合数。求出所有数之和存入SUM中。
Fori1To100
代码：DimijsAsI
teger
Forj1To50
Fori100To200
Fork1To20
Forj2ToSqri
Ifi2jk5100The

IfiModj0The

Pri
tCStri
Pri
tCStri
Pri
tCStrj
sumsumi
Pri
tCStrk
ExitFor

1
E
dIf
E
dIf
Next
Next
Next
Next
Pri
tsum
Next
第三十一题
第三十八题
题目：（事件）单击窗体。
题目：（事件）：单击窗体。
（响应）生成一个一维数组（10个数r