Private Sub Form_Click()
x = InputBox("较小的数")
y = InputBox("较大的数")
For a = x To y
For i = 2 To Sqr(a)
r = a Mod i
If r = 0 Then
Exit For
End If
Next i
If i > Sqr(a) Then
Text1 = Text1 + Str(a)
s = s + a
End If
Next a
Text2 = Val(s)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024