VisualBasic на форме TextBox для ввода цифры ограничить вводимое число от 1 до 40 - VB

Формулировка задачи:

Пробовал по-разному и никак не удаётся.. К примеру так:

If N > 0 Or N < 41 Then N = N.Text Else MsgBox "Это ложь!" End If

Ни как не придумаю как сие организовать.. Раньше, лет 25 назад казалось просто, да и язык был просто Бейсиком... Здесь же в Визуал среде - туплю не по-детски, Да ещё не могу придумать - как вводящего цифру неправильно - заставить ввести число другое, а если он ступит раза три - вовсе закрыть программу.

Помогите пожалуйста, а то уж сдавать работу надо скоро, а я застрял как ВинниПух.

Решение задачи: «VisualBasic на форме TextBox для ввода цифры ограничить вводимое число от 1 до 40»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
 
    Dim str As String
    Dim temp As Integer
    
    str = Text1.Text
    
    If IsNumeric(str) = False Then
        MsgBox "Bad"
        Exit Sub
    End If
    
    temp = Val(str)
    
    If Not (temp >= 1 And temp <= 40) Then
        MsgBox "Bad"
        Exit Sub
    End If
    
End Sub

Оцени полезность:

13 голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы