两道vb编程题，求解😂😂

Answer 1

第一题：

Private Sub Command1_Click()

  For i = 499 To 3 Step -2

    If prime(i) Then

      Print i;

      s = s + i

      k = k + 1

      If k = 10 Then Exit For

    End If

  Next i

  Print

  Print "500以内最大的10个素数之和＝"; s

  Print

  End Sub

Function prime(n)

  prime = False

  For i = 3 To Sqr(n) Step 2

    If n Mod i = 0 Then Exit Function

  Next i

  prime = True

End Function

第二题：

Private Sub Command2_Click()

  t = 1

  For i = 2 To 100 Step 2

    t = t / i

    s = s + t

    If t < 0.00001 Then Exit For

  Next i

  Print "s=1/2+1/(2*4)+...+1/(2*4*6*...*" & i & ")="; s

End Sub