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
Похожие ответы