Question

VB编程这题有人会吗帮忙下谢谢！！好的就直接采纳了

Answer 1

Function isprime(ByVal n As Long) As Boolean
    isprime = True
    If n = 2 Or n = 3 Then Exit Function
    If n Mod 2 = 0 Then isprime = False: Exit Function
    For i = 3 To Sqr(n) Step 2
        If n Mod i = 0 Then isprime = False: Exit Function
    Next
End Function
Private Sub Command1_Click()
    Me.Cls
    Dim n&, i&, msg$
    Randomize
    n = CLng(InputBox("输入正整数", , Int(Rnd * 100000)))

    For i = 2 To n \ 2
        If isprime(i) And isprime(n - i) Then
            msg = n & "可以分解为两个素数之和" & vbCrLf & n & "=" & i & "+" & n - i & vbCrLf & i & " 和 " & n - i & "都是素数。"
            Exit For
        End If
    Next
    If msg = "" Then msg = n & "不能分解为两个素数之和"
    Me.Print msg
End Sub