Простое число или нет?

[iks2]

Простое число или нет?

Эта простая программа не содержит никаких кнопок. Только текстовое поле для ввода числа, меньшего одного миллиарда. (А больше вы не введете, текстовое поле специально ограничено - 9 знаков максимум). Если число простое, то оно будет иметь красный цвет. А нет - чёрный.

Option Explicit
Dim P As Long, d As Long
Dim bul As Boolean
Dim Q As Double

Private Sub txtT_Change()
    P = Val(txtT.Text)
    If P = 1 Then bul = False: GoTo 100
    If P Mod 2 = 0 And P <> 2 Then bul = False: GoTo 100
    
    Q = Sqr(P)
    For d = 3 To Q Step 2
        If P Mod d = 0 Then bul = False: GoTo 100
    Next d
    bul = True: GoTo 100
100
    If bul Then txtT.ForeColor = vbRed Else txtT.ForeColor = vbBlack
End Sub