求大佬怎么用Dreamweaver算出100以内的素数

Question

dim i,z
for i = 1 to 100 and (不知道啦)
if .....
next
求大佬填充

Answer 1

//vb什么的实在不懂，只能帮到这儿了
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim sum As Integer,f As Boolean
For i = 2 To 100
For j = 2 To i - 1
If i Mod j = 0 And i 2 Then
f = True
Exit For
End If
Next
If Not f Then sum = sum + i
f = False
Next
MsgBox sum
End Sub