Создание учебной программы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д