s = s+c(i) Next Print s 第十五题 题目：（事件）单击窗体
（响应）求200~300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中。 代码：Dim sum As Integer sum = 0
For i = 200 To 300
If i Mod 3 = 0 And i Mod 7 = 0 Then sum = sum +i End If Next Print sum 第十六题 题目：（事件）双击窗体
（响应）求出100~200之间，能被5整除，但不能被3整除的数。 并求出所有数之和，存入变量SUM中 代码：Dim sum As Integer sum=0
For i = 100 To 200
If i Mod 5 = 0 And i Mod 3<> 0 Then sum = sum +i End If Next Print sum 第十七题 题目：（事件）双击窗体
（响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。 结果存入变量S中 代码：Dim s As Integer s = 0 t = 1
For i = 1 To 5 t = i*t
Sum = sum + t Next Print Sum 第十八题 题目：（事件）双击窗体
（响应）求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。 将结果存入变量SUM中 代码：Dim sum As Integer
sum = 0
For i = 3 To 300 Step 3 sum= sum +i Next i Print sum
第二种方法：当step为2的时候： Dim s As Integer Dim i As Integer For i=2 To 50 Step 2 s = s+i Next i Print s 第十九题 题目：（事件）单击窗体
（响应）求10!的值，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim sum As Long Dim i As Integer sum = 1
For i = 1 To 10 sum = i*sum Next Print sum 第二十题 题目：（事件）单击窗体
（响应）求出100以内所有素数的和，并将结果输出到窗体上，
并存入所给变量SUM中
代码：Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b = False
For i = 2 To 100 b = False
j = CInt(Sqr(i)) For k = 2 To j
If i Mod k = 0 Then b=True End If Next
If b = False Then sum=sum+i End If Next
Print sum 第二十一题 题目：（事件）单击窗体
（响应）求200~300之间既能被3 整除又能被7整除的数。并求出所有数之和 存入变量SUM中 代码：Dim i As Integer For i =201 To 300
If ((i Mod 3)=0)And((i Mod 7)=0) Then Print(CStr(i)) sum = sum +i End If Next Print sum 第二十二题 题目：（事件）单击窗体
（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 将结果存入变量S中 代码：Dim i As Integer s=0
For i = 1 To 10 s = s + 1/(i^i) Next Print(s) 第二十三题 题目：（事件）单击窗体
（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…..的前10项，并求其和。 代码：Dim i ,j,k,m As Integer s=o i=2 j=1
For k = 1 To 10 m = j
Print （CStr(i)）& “/” & CStr(j) j = i i=i+m s=s+i/j Next 第二十四题 题目：（事件）单击窗体
（响应）一球从100米高度自由落下，每次落地返回。原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。 代码：Dim j,i As Integer s=0
j=100
For i = 2 To 10 j=j / 2 s=s+2*j
Next s=100+s
Print(CStr(s)) 第二十五题 题目：（事件）双击窗体
（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量s 中。 代码：Dim i As Integer i = 20
while i <=263 s=s+i i=i+1 Wend
Print(CStr(s)) 第二十六题 题目：（事件）双击窗体
（响应）求 s=1+1*2+1*2*3+…+1*2*3*…*10，并将结果存到变量S中 代码：Dim i,j As Integer Dim k As Long k = 1 s=0
For i = 1 To 10 For j = 1 To i k = k*j
Next s=s+k k=1 Next
Print(CStr(s)) 第二十七题 题目：（事件）单击窗体。
（响应）求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。并求出所有这样的数的和存入SUM中。 代码：Dim i As Integer Dim j As Integer
For i = 1000 To 9999
j= Val(Mid(Trim( Str(i)), 2, 2)) If j ^ 2 = i Then Print i,
sum = sum + i End If
