Visual Basic FAQ

Как узнать четное число или нет?

Option Explicit

Private Sub Form_Load()
Text1 = ""
End Sub

Private Sub Text1_Change()
On Error GoTo NumberErr
Dim intA As Double
Dim strA As String

If IsNumeric(Text1) Then
    intA = Val(Text1)
    strA = IIf(intA Mod 2 = 0, "Четное", "Не четное")
    Label1 = strA
Else
    Label1 = "Введите число!"
End If

Exit Sub

NumberErr:
    Dim Message As String
    If Err.Number = 6 Then
    Message = MsgBox("Слишком большое число!", _
            vbCritical + vbRetryCancel)
        Select Case Message
        Case vbCancel
            End
        Case vbRetry
            Text1 = ""
            Resume Next
        End Select
    End If
End Sub

Запись опубликована on 16.09.2008 at 9:35 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.