ASCII коды десятичных чисел - VB
Формулировка задачи:
Имеется кнопка, при нажатии на которую выводится код элемента по ASCII таблице. То есть код есть только у целого числа. Я написал код, но не знаю, как сделать так, чтобы если я вводил дробное значение, то высвечивалось сообщение "Введите целое число", но если буква, то считало код. И как еще сделать, чтобы если число не входит в диапазон от 0 до 255, то тоже была ошибка? Пробовал через if и все такое, но постоянно ошибки. Подскажите, пожалуйста, как это сделать!
Листинг программы
- Dim N As String
- N = TextBox1.Text
- If IsNumeric(N) Then
- TextBox2.Text = Chr(N)
- Else
- TextBox2.Text = Chr(Asc(N) + 1)
- End If
Решение задачи: «ASCII коды десятичных чисел»
textual
Листинг программы
- Dim N
- N = Textbox1.Text
- If Not (IsNumeric(N)) Then
- Textbox2.Text = Asc(N)
- Else
- If N >= 0 And N <= 255 Then
- Textbox2.Text = Chr(N)
- Else
- MsgBox "Введите целое число [0,255]"
- End If
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д