помогите решить задачи по информатике по редактору Visual Basic

' Задача №1. Создайте новый проект в VB5 или VB6, в модуль формы поместите следующий код:

' СОБЫТИЕ: загрузка формы
Private Sub Form_Load()
' описание переменных
Dim strInput As String
Dim lngNum As Long
' ввод числа
strInput = InputBox("Введите целое число: ")
' преобразование текста в число
lngNum = CLng(strInput)
' вывод результата
If Int(lngNum / 3) = (lngNum / 3) Then
MsgBox "Число " & strInput & " делится на 3 без остатка"
Else
MsgBox "Число " & strInput & " не делится на 3 без остатка"
End If
Unload Me
End Sub

' Задача №2. Создайте новый проект в VB5 или VB6, в модуль формы поместите следующий код:

' СОБЫТИЕ: загрузка формы
Private Sub Form_Load()
' описание переменных
Dim lngA As Long
Dim lngB As Long
Dim lngC As Long
Dim lngMin As Long
' ввод чисел
lngA = CLng(InputBox("Введите А: "))
lngB = CLng(InputBox("Введите B:"))
lngC = CLng(InputBox("Введите C:"))
' сравнение A и B
lngMin = IIf(lngA > lngB, lngB, lngA)
' сравнение с C
If lngMin > lngC Then lngMin = lngC
' вывод результата
MsgBox "Минимальное число: " & Format(lngMin, "0")
' закрытие формы
Unload Me
End Sub

' Задача №3. Создайте новый проект в VB5 или VB6, в модуль формы поместите следующий код:

' СОБЫТИЕ: загрузка формы
Private Sub Form_Load()
' описание переменных
Dim dblSpeed As Double
' ввод скорости
dblSpeed = CDbl(InputBox("Введите целое скорость: "))
' вывод результата
If dblSpeed > 60 Then
MsgBox "Водитель нарушил правила дорожного движения, превысив скорость 60км/ч"
Else
MsgBox "Водитель движется с допустимой скоростью ниже 60км/ч"
End If
Unload Me
End Sub