fjzys.bas

来自「这个是简单的用vb编程编的分解质因数的程序和已经编译了的exe文件」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const EM_SETREADONLY = &HCF

Function IsPrime(X As Long) As Boolean
    Dim Y As Long
    IsPrime = True
    For Y = 2 To Sqr(X)
       If X / Y = X \ Y Then
          IsPrime = False
          Y = X + 1
       End If
    Next Y
    
End Function