vb题：编程计算100以内素数的和

Answer 1

Private Sub Form_Load()
Show
Dim n, i, k As Integer '定义n , i , k为整数型
s = 0                  '赋值s 为0
For n = 1 To 100       '枚举 for循环 n 从1到100

k = 0                  '赋值k 为0
For i = 1 To n         '嵌套for循环 i为除数
If n Mod i = 0 Then    '如果 i 能整除n
k = k + 1              '（k为可以整除n的个数） 则k加1
End If
Next i                 '结束for循环


If k = 2 Then          '如果 k等于2 （由于素数只有两个能够整除的除数，为素数的特性）
s = s + n              's相当于累加器，将满足k=2条件的n加起来
End If

Next n                 '结束for循环

Print s                '输出s
End Sub

以上是我的一种枚举的方法，还有多种解法，希望可以帮助你。

要理解这段代码并不难，主要理解：

双重循环有这几特点:

一是:一旦进入内循环,要把内循环做完才能持行外循环代码,除非你是用exit for 强制退出
二是:外循环做一次,内循环要做完,强制性退出(Exit for)的除外

Answer 2

 Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 2 To 100
    For j = 2 To i
        If i Mod j = 0 Then
           Exit For
        End If
     Next
     If i = j Then
        k = k + i
     End If
Next
MsgBox k

End Sub

追问

S=1!+2!+3!+n!的和，用function

怎么编程

追答

看另一题