VB程序设计
第一题
题目：（事件）单击窗体
（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As Integer
For i = 2 To 50
If (i Mod 2)=0 Then
S=s+i
End If
Next
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 =1To 10
For j=1 To i
k=k*j
Next
s=s+k
k=1
Next
Print(CStr(s))
第三题
题目：（事件）单击窗体
（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中
代码：Dim i As Integer
For i =1 To 100
If i Mod 2 =0 Then
Sum=sum+i
End If
Next
Print sum
第四题
题目：（事件）单击窗体
（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。将结果存入变量M中。
代码：Dim i,j As Integer
Dim s As Long
For i =10 To 15
s=1
For j = i To i +2
s=s*j
Next
m=m+s
Next
Print (CStr(m))
第五题
题目：（事件）双击窗体
（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As Integer
For i=1 To 100
If i Mod 2 = 1 Then
sum = sum + i
End If
Next
Print sum
第六题
题目：（事件）单击窗体
（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,
结果输出在窗体上
代码：Dim s As Single
For i=1 To 10
a=i*i
Sum =1/a + Sum
Next
Print Sum
第七题
题目：（事件）双击窗体
（响应）求1+1*2+1*2*3+….+1*2*3*….*10,
并将结果存到变量S中
代码：Dim s As Long
j=1
For i = 1 To 10
j= j*i
Sum = Sum + j
Next
Print Sum
第八题
题目：（事件）单击窗体
（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
将结果存入变量J中
代码：Dim j As Single
Dim i As Single
j=0
For i = 1 To 100
k=(-1)^(i+1)/i
j=k+j
Next i
Print j
第九题
题目：（事件）双击窗体
（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。
代码：Dim s As Long
s=20
For s= 21 To 263
b=s+1
Sum=Sum+b
Next
Print Sum
第十题
题目：（事件）单击窗体
（响应）求出100以内所有素数的和，并将结果输出
到窗体上，并存入所给变量SUM中
代码：Dim sum As Integer
For i = 1 To 100
For j = 2 To i - 1
Exit For
Next j
Next i
If i Mod j = 0 Then
End If
If j - i Then
sum = sum + i
End If
Print sum
第十一题
题目：（事件）单击窗体
（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。将结果存入变量M中。
代码：Dim m As Long
For i = 1 To 6
t =(i+9)*(i+10)*(i+11)
m=m+t
Next
Print m
第十二题
题目：（事件）单击窗体
（响应）求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中
代码：Dim l As Long
l=1
For i=10 To 20
For j=2 To i-1
If i Mod j = 0 Then
Exit For
End If
Next j
If j = i Then
l=l*i
End If
Next i
Print l
第十三题
题目：（事件）单击窗体
（响应）求50以内所有偶数的和，并在窗体上输出来。
代码：Dim s As Integer
s = 0
For i = 2 To 50 Step 2
s = s + i
Next i
Print s
第十四题
题目：（事件）单击窗体
（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…….的前十项，并求其和。
代码：Dim s As Single
Dim a ()
Dim b ()
Dim c ()
a(1) = 2
b(1) = 1
c(1) = a(1) / b(1)
a(2) = 3
a(2) = 2
a(2) = a(2) / b(2)
s=s+c(1)+c(2)
For i = 3 To 10
a(i)=a(i-1)+a(i-2)
b(i)=b(i-1)+b(i-2)
c(i)= a(i)/ b(i)
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
本文来源：https://www.2haoxitong.net/k/doc/783773d13186bceb19e8bbff.html
文档为doc格式