Технический форум - Простое число или нет?

Эта простая программа не содержит никаких кнопок. Только текстовое поле для ввода числа, меньшего одного миллиарда. (А больше вы не введете, текстовое поле специально ограничено - 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