VB程序设计练习题
题目：（事件）单击窗体
第一题、
（响应）编写程序求101112111213…151617的结果
题目：（事件）单击窗体
并将结果输出到窗体上。将结果存入变量M中。
（响应）求50以内所有偶数的和，并在窗体上输出来。
代码：DimijAsI
teger
将结果存入变量S中。
DimsAsLo
g
代码：DimIAsI
teger
Fori10To15
Fori2To50
s1
IfiMod20The

ForjiToi2
Ssi
ssj
E
dIf
Next
Next
mms
Pri
tCStrs
Next
第二题
Pri
tCStrm
题目：（事件）双击窗体
第五题
（响应）求s112123…123…10并将结果存入变量S中
题目：（事件）双击窗体
代码：DimijAsI
teger
（响应）求100以内奇数的和，并将结果输出在窗体上。
DimkAsLo
g
将结果存入变量SUM中。
k1
代码：DimiAsI
teger
s0
Fori1To100
Fori1To10
IfiMod21The

Forj1Toi
sumsumi
kkj
E
dIf
Next
Next
ssk
Pri
tsum
k1
第六题
Next
题目：（事件）单击窗体
Pri
tCStrs
（响应）已知S11419116125…1100
第三题
结果输出在窗体上
题目：（事件）单击窗体
代码：DimsAsSi
gle
（响应）求100以内偶数的和，并将结果输出在窗体上。
Fori1To10
将结果存入变量SUM中
aii
代码：DimiAsI
teger
Sum1aSum
Fori1To100
Next
IfiMod20The

Pri
tSum
Sumsumi
第八题
E
dIf
题目：（事件）单击窗体
Next
（响应）求1121314…1991100的值。
Pri
tsum
将结果存入变量J中
第四题
代码：DimjAsSi
gle

f
DimiAsSi
gle
代码：DimlAsLo
g
j0
l1
Fori1To100
Fori10To20
k1i1i
Forj2Toi1
jkj
IfiModj0The

Nexti
ExitFor
Pri
tj
E
dIf
Nextj
第九题
IfjiThe

题目：（事件）双击窗体
lli
（响应）s202122…263求s的值，并将结果存储到变量S中。
E
dIf
代码：DimsAsLo
g
Nexti
s20
Pri
tl
Fors21To263
Next
bs1
Pri
ts
SumSumb
第十五题
Next
题目：（事件）单击窗体
Pri
tSum
（响应）求200300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中。
第十题
题目：（事件）单击窗体
代码：DimsumAsI
teger
（响应）求出100以内所有素数的和，并将结果输出
sum0
到窗体上，并存入所给变量SUM中
Fori200To300
代码：DimsumAsI
teger
IfiMod30A
diMod70The

Fori1To100
sumsumi
Forj2Toi1
E
dIf
ExitFor
Next
Nextj
Pri
tsum
Nexti
第十七题
IfiModj0The

题目：（事件）双击窗体
E
dIf
（响应）求12345并将结果输出到窗体上。
IfjiThe

结果存入变量S中
sumsumi
代码：DimsAsI
teger
r