在窗体上添加个按钮Private Sub Command1_Click()Dim i As Integer, s As Integer, j As Integer, l As IntegerFor i = 2 To 100l = 0For j = 2 To i - 1If i Mod j = 0 Then l = 1Next jIf l1 Then s = s + iNext iPrint "100以内质数和为" & sEnd Sub
Fuction IsSushu(I as integer) as booleanfor J as integer = 2 to cint(Sqrt(I)) ' 任意整数如果除以 2 到它的平方根均不能整除则为质数if I mod J = 0 then exit Functionnextreturn True ' 因为没有被整除过,因此返回 Trueend functionfor I as integer = 1 to 100if IsSushu(I)=true thenSum = sum + inext i身在外地,没有 Basic 测试,你试试吧
Private Sub Command1_Click()For n = 1 To 100If IsPrime(n) = True Then Sum = Sum + nNextPrint SumEnd SubFunction IsPrime(ByVal n As Long) As BooleanDim i As LongFor i = 2 To Int(n / 2)
If n Mod i = 0 Then IsPrime = False: Exit FunctionNextIsPrime = TrueEnd Function
Private Sub Form_Click()Dim i, j, n, s As Integers = 0For i = 1 To 100 For j = 2 To i - 1 If i Mod j0 Then n = 1End IfNext jIf n = 1 Then s = s + iEnd If Next i Print s;End Sub