Как написать программу, которая будет решать задачи по квантовой физике с использованием всех её законов и форм

s As string
v As string
t As string
s = TextBox
v = TextBox
t = TextBox

' щелчок на кнопке Вычислить
Private Sub Command1_Click()
   Dim dist As Integer  ' дистанция, метров
   Dim min As Integer   ' время, минуты
   Dim sek As Single    ' время, секунды
   Dim v As Single      ' скорость
   
   ' получение исходных данных из полей ввода
   dist = Val(Text1.Text)
   min = Val(Text2.Text)
   sek = Val(Text3.Text)
 
   ' дистанция и время не должны быть равны нулю
   If (dist = 0) Or ((min = 0) And (sek = 0)) Then
        Label5.Caption = "Нужно задать дистанцию и время."
        Exit Sub
   End If
   
   ' вычисление
   v = (dist / 1000) / ((min * 60 + sek) / 3600)
 
   ' вывод результата
   Label5.Caption = "Дистанция: " + Format$(dist) + _
                    " м" + Chr(13) + _
                    "Время: " + Format$(min) + " мин " + _
                     Format$(sek) + " сек " + Chr(13) + _
                    "Скорость: " + Format$(v, "0.00") + _
                    " км/час"
   ' функция Chr() возвращает символ по значению
   ' числового кода в Ascii
End Sub
 
' щелчок на кнопке Завершить
Private Sub Command2_Click()
   ' закрытие главной формы
   Unload Form1
End Sub
 
' нажатие клавиши в поле Дистанция
Private Sub Text1_KeyPress(KeyAscii As Integer)
   ' KeyAscii - код символа, соответствующего нажатой клавише.
   ' Если символ недопустимый, то процедура заменяет его
   ' на символ с кодом 0. В результате этого символ в поле
   ' редактирования не появляется.
   Select Case KeyAscii
      Case 48 To 57, 8  ' цифры 0 - 9 и <Backspace>
      Case 13
         ' при нажатии клавиши <Enter> курсор переводится
         ' в поле Время:Минут
         Text2.SetFocus
      Case Else
         KeyAscii = 0   ' остальные символы не отображаются
   End Select
End Sub
 
' нажатие клавиши в поле Время:Минут
Private Sub Text2_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 48 To 57, 8  ' цифры 0 - 9 и <Backspace>
      Case 13
         ' при нажатии клавиши <Enter> курсор переводится
         ' в поле Время:Секунд
         Text3.SetFocus
      Case Else
         KeyAscii = 0   ' остальные символы не отображаются
   End Select
End Sub
 
' нажатие клавиши в поле Время:Секунд
Private Sub Text3_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 48 To 57, 8  ' цифры 0 - 9 и <Backspace>
      Case 44, 46       ' десятичный разделитель
         KeyAscii = 46
         If InStr(Text3.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case 13           ' клавиша <Enter>
         ' при нажатии клавиши <Enter> устанавливается
         ' фокус на кнопку Вычислить
         Command1.SetFocus
      Case Else
         KeyAscii = 0    ' остальные символы не отображаются
   End Select
End Sub