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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д