Создание учебной программы - VB
Формулировка задачи:
Здравствуйте. Имею такую проблему. До некоторого времени с basic знакомиться не приходилось, но вот пришлось. Учебное задание, не для себя и мопед не мой, если что. По заданию в методичке нужно написать программу на бейсике для расчета полива картошки или еще чего. В этой же методичке дан пример кода:
Понятно, что скомпилировать это не получится никак. Ни о каких Sub и End Sub не упоминается вообще. Но как из этого можно слепить хоть какое-то подобие exeшника или макроса к excel. Спасибо.
Решение задачи: «Создание учебной программы»
textual
Листинг программы
Option Explicit
Dim WithEvents t As TextBox, WithEvents b As CommandButton
Private Sub b_Click()
Dim k$, y&, e&, d#
Let d = 150
Let k = InputBox("Введите K", , 90)
If Not IsNumeric(k) Then k = 0
If MsgBox("игрик надо вводить ?" & vbLf & _
"По умолчанию стоит " & d, vbYesNo Or vbInformation) = vbYes Then
Let y = InputBox("Введите Y", , d)
If Not IsNumeric(y) Then y = 0
Else: Let y = d
End If
Metka:
Let e = k * y
t = "e = k * y . Ответ: " & "y = " & y & ", e = " & e
Let y = y + 10
If y <= 250 Then GoTo Metka
End Sub
Private Sub Form_Load()
Me.Caption = "расчет водопотребления картофеля"
Set t = Controls.Add("vb.TextBox", "t")
With t: .Move 100, 100, 4000, 500
.Text = ""
.Visible = 1
End With
Set b = Controls.Add("vb.CommandButton", "b")
With b: .Move 100, 800, 4000, 500
.Caption = "Продолжить"
.Visible = 1
End With
End Sub