FOR循环例题(带答案)资料.pdfVIP

【例1】 计算并显示 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 【例2 】 计算并显示 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 【例3 】 计算并显示 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 【例4 】 找出 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 【例5 】 找出 100－999 之间的所有“水仙花数” 。所谓水仙花数是指一个三位 3 3 3 数，各位数字的立方和等于该数本身。 （如 153＝1 ＋5 ＋3 ）并输出 这些数字，统计有多少个。