Демонстрационная программа

'Имя файла: Mnoziteli.vbs
'Программа нахождения всех простых множителей целого положительного числа
'Программа учитывает множество условий неправильного ввода
IF boolic THEN  'если мы ввели число, то...
    x=CDbl(x)
    x2=CLng(x) 'CLng округляет число до целого
    If CDbl(x2)-x<>0 Then  ' если число не целое изменим флаг
                                   boolic=false
    End if                         
 If boolic and (x>1) Then   'если мы ввели мы ввели число целого типа, большее 1
                            m=2
                            i=0
                                    
                               s="Простые множители числа "&x&":"&vbCrLf
    While m<=x   'ищем простые множители числа и записываем их в строку s
                             If x Mod m=0 Then
                       s=s&" "&m
                              x=x/m
                      i=i+1
              Else m=m+1
                   End If
                           Wend
                        If i=1 Then
 MsgBox "Число "&x1&" нельзя разложить на простые”&“множители, так как оно само является простым числом.",,"Результат:"
                   Else 
                       Msgbox s,,"Результат:"
                   End If
    ElseIf  boolic and (x=1) Then    ' если введённое число равно 1, то...
         MsgBox "Число 1 нельзя разложить на простые множители,"&_
               " так как оно само является простым числом.",,"Результат:"
           Else        
  MsgBox "Вы ввели неправильное значение x",vbCritical,"Ошибка"
         End If
ELSE   ' если введённое значение не числовое...
         MsgBox "Вы ввели неправильное значение x",vbCritical,"Ошибка"
End If

x = 666
boolic = True
 
If boolic Then  'если мы ввели число, то...
    x = CDbl(x)
    x2 = CLng(x) 'CLng округляет число до целого
    If CDbl(x2) - x <> 0 Then ' если число не целое изменим флаг
        boolic = False
    End If
    If boolic And (x > 1) Then 'если мы ввели мы ввели число целого типа, большее 1
        m = 2
        i = 0
 
        s = "Простые множители числа " & x & ":" & vbCrLf
        While m <= x 'ищем простые множители числа и записываем их в строку s
            If x Mod m = 0 Then
                s = s & " " & m
                x = x / m
                i = i + 1
            Else: m = m + 1
            End If
        Wend
        If i = 1 Then
            MsgBox "Число " & x1 & " нельзя разложить на простые”&“множители, так как оно само является простым числом.", , "Результат:"
        Else
            MsgBox s, , "Результат:"
        End If
    ElseIf boolic And (x = 1) Then   ' если введённое число равно 1, то...
        MsgBox "Число 1 нельзя разложить на простые множители," & _
        " так как оно само является простым числом.", , "Результат:"
    Else
        MsgBox "Вы ввели неправильное значение x", vbCritical, "Ошибка"
    End If
Else   ' если введённое значение не числовое...
    MsgBox "Вы ввели неправильное значение x", vbCritical, "Ошибка"
End If