FOR循环例题(带答案).docVIP

计算并显示1到100之间的自然数之和。 Private Sub Form_Click() Dim i As Integer, s As Integer S=0 ‘S是累加器，初值为0 For i = 1 To 100 s = s + i Next i Print s End Sub 计算并显示1到100之间的奇数之和。 Private Sub Form_Click() Dim i As Integer, s As Integer S=0 For i = 1 To 100 Step 2 s = s + i Next i Print s End Sub 计算并显示1到100之间的自然数之和，奇数之和，偶数之和。 Private Sub Form_Click() Dim i As Integer, s1 As Integer, s2 As Integer, s3 As Integer S1=0:s2=0:s3=0 For i = 1 To 100 s1 = s1 + I ‘S1用来放自然数 If i Mod 2 0 Then s2 = s2 + I ‘S2用来放奇数 Else s3 = s3 + I ‘S3用来放偶数 End If Next i Print s1, s2, s3 End Sub 找出1-99之间是7的倍数或者个位数字是7或者十位数字是7的数字，并输出这些数字，统计有多少个。 Private Sub Form_Click() Dim i As Integer, n As Integer n = 0 ‘n 是计数器，初值为0 For i = 1 To 99 If i Mod 7 = 0 Or i Mod 10 = 7 Or i \ 10 = 7 Then Print i n = n + 1 ‘每找到一个符合条件的i值，n 加1 End If Next i Print 共有 n 个 End Sub 找出100－999之间的所有“水仙花数”。所谓水仙花数是指一个三位数，各位数字的立方和等于该数本身。（如153＝13＋53＋33）并输出这些数字，统计有多少个。并求出这些数字之和。 Private Sub Form_Click() Dim i As Integer, A As Integer, B As Integer, C As Integer, _ N As Integer, S As Integer N = 0: S = 0 ‘N是计数器，S 是累加器 For i = 100 To 999 A = i \ 100 B = (i - A * 100) \ 10 C = i - A * 100 - B * 10 ‘A,B,C分别表示i的百位，十位，个位数字 If A ^ 3 + B ^ 3 + C ^ 3 = i Then Print i N = N + 1 S = S + i End If Next i Print 共有 N 个水仙花数, 它们的和是 S End Sub 求 Private Sub Form_Click() Dim i As Integer, s As Single s = 0 For i = 1 To 100 s = s + 1 / i ‘寻找到每次要加的数和循环变量i之间的关系是1 / i Next i Print s End Sub 求 Private Sub Form_Click() Dim i As Integer, s As Single s = 0 For i = 1 To 98 s = s + i / (i + 1) ‘寻找每次要加的数和循环变量i之间的关系 Next i Print s End Sub 求 Private Sub Form_Click() Dim i As Integer, s As Single s = 0 For i = 1 To 100 s = s + i / (2 * i - 1) ‘寻找到每次要加的数和循环变量i之间的关系 Next i