Publicx0, x, i, j, zAsDoubleПроцедура инициализации приложения
Public y As String
Private Sub clr_Click()
inp.Text = "" Процедура очистки текстовых полей
out.Text = ""
Возможно вы искали - Курсовая работа: Передача звука по локальной сети
EndSub
Внешний вид окна приложения с введёнными данными
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim val As String
Похожий материал - Курсовая работа: Переопределение назначений клавиш на клавиатуре в операционной системе Windows
val = Chr(KeyAscii)
Select Case cmb.ListIndex
Case 0
Select Case val
Case "0"
Очень интересно - Статья: Перепрошивка BIOS
inp.Text = inp.Text & "0"
Case "1"
inp.Text = inp.Text & "1"
End Select
Case 1
Вам будет интересно - Контрольная работа: Перетворення координат, операції масштабування в бібліотеці Opengl
If val >= "0" And val <= "9" Then
If val >= "8" And val <= "9" And inp.Text = "" Then
Exit Sub
Else
End If
Похожий материал - Курсовая работа: Перетворення чисел з однієї системи числення в іншу
inp.Text = inp.Text & CStr(val)
Else
End If
Case 2