Создание учебной программы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы