Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 27.10.2016, 10:51   #1 (permalink)
iks2
Member
 
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Простое число или нет?

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

Старый 27.10.2016, 10:51
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Давайте я вам помогу найти схожие с вашей темы

Что скрывает число Пи
Преследует число 666

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 21:31.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.