129：单击窗体。求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中
Dim j As Integer Dim k As Integer Dim b As Integer b = False
For i = 2 To 100 b = False j = Int(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
130:求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 i
Sum = Sum + i End If Next
Print Sum
131:已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上 Private Sub Form_Click() Dim s As Single Dim I as integer S =0
For I =1to 10 S= s+1/(i^2) Next Print (s) End Sub
132:在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和。 Private Sub Form_Click() Dim s As Single
Dim i, j, k, m as Integer S =0 I = 2 J = 1
For k = 1 to 10 M = j
Print (cstr (i)) & \J =i I =i+m S =s+i/j next End Sub
133: 一球从100米高度自由落下，每次落地返回,原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。 Private Sub Form_Click() Dim s As Single 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))
End Sub
134: 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))
136： 求出具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，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 Next
137：把一元钞票换成一分、二分和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 Dim I,j,k as integer For i=1 to 100 For j=1 to 50
For k=1 t0 20
If ((i+2*j+k*5)=100) Then Print(CStr(i)) Print(CStr(j)) Print(CStr(k)) n = n + 1 End if Next Next Next
138:公鸡3元1只，母鸡5元1只，小鸡一元3只，怎样用100元买。100只鸡。把结果输出到窗体上。将答案数存放在变量N中 Dim i as integer Dim j as integer Dim k as integer For i = 1 to 20 '母鸡
For j = 1 to 33 ' 公鸡
For k = 3 to 100 ' 小鸡
If ( ( k mod 3 ) = 0 ) and ( ( i *5+j*3+k / 3) = 100 ) and ( ( i +j +k =100) Print (cstr(i)) Print (cstr(j) Print (cstr(k)) N = n +1 End if Nxet Next Next
139:编写代码功能如(图1)。将结果存入变量S中。 Dim i As Integer For i = 1 To 10 s = s + i * i Next
Print (CStr(s))
140:编写代码功能如(图1)。将结果存入变量S中 Dim i as integer S = 1
For i = 1 to 10 S = s * i * i Next
Print (cstr(s))
141: 求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 Dim i, j, k, s As Integer For i = 1 To 5 k = 1
For j = 1 To i k = k * j Next s = s + k Next
Print (CStr(s))
142: 编写程序求10×11×12+11×12×13+…+15×16×17的结果，并将结果输出到窗体上。将结果存入变量M中 Private Sub Form_Click() Dim m As Long 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)) End Sub
143: 生成一个一维数组(10个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 Dim a(9) as integer Dim i , s as integer a(0) = 15 a(1) = 23 a(2) = 72 a(3) = 43 a(4) = 96 a(5) = 23 a(6) = 3 a(7) = 65 a(8) = 88 a(9) = 17 Max = a(0) Min = a(0) S = 0
Fot i = 0 to 9
If a(i) > max then Max = a(i) End if
If a(i) < min then Min = a(i) End if S = s + a(i) Next
Aver = int(s / 10) Print (cstr(max)) Print (cstr(min)) Print (cstr(aver))
144:在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中 Dim i as integer Dim j as integer Dim s as integer For j = 100 to 200 For j = 2 to sqr (i) If (i mod j ) = 0 then Print (cstr(i)) Sum =sum + i Exit for End if Next Next