Тренажер для решения неравенств методом интервалов - VB

Узнай цену своей работы

Формулировка задачи:

Я пытаюсь сделать тренажер для решения неравенств методом интервалов. Нужно, чтобы программа сравнивала значения, которые рандомно появляются в Textbox1 и TextBox2 ( x и y ), выбирала меньшее из них, и если пользователь вводит в Textbox3 меньше и TextBox4 большее, то появлялось бы MsgBox ("Все правильно"), а иначе ("Ошибка") P.S. Код для кнопки в PowerPoint, если это важно

Решение задачи: «Тренажер для решения неравенств методом интервалов»

textual
Листинг программы
Option Explicit
Const r = 90: Dim j$(), res As Boolean, sm&(1), WithEvents cb1 As CommandButton, WithEvents cb2 As CommandButton, tx As TextBox, l1 As Label, l2 As Label, l&, t&, w&, h&
Sub Summator(ByVal Butt As Boolean)
    j = Split(tx)
    Do While j(1) = ">": res = j(0) > j(2): Exit Do: Loop: Do While j(1) = "<": res = j(0) < j(2): Exit Do: Loop
    res = IIf(res = False And Butt = False, True, res And Butt)
    sm(Abs(Not res)) = sm(Abs(Not res)) + 1
    l1.Caption = Split(l1.Caption, "в:")(0) & "в: " & sm(0) & "/" & sm(1)
    Select Case sm(0) - sm(1)
    Case Is > 5: l2.Caption = Split(l2.Caption)(0) & " Адепт"
    Case Is > 10: l2.Caption = Split(l2.Caption)(0) & " Демиург"
    Case Is > 20: l2.Caption = Split(l2.Caption)(0) & " Экстрасенс"
    Case Else: l2.Caption = Split(l2.Caption)(0) & " Лошок"
    End Select
    ReTx
End Sub
Private Sub cb1_Click(): Summator 1: End Sub
Private Sub cb2_Click(): Summator 0: End Sub
Sub ReTx(): Randomize: tx = Fix(Rnd * 100) & Choose(Fix(Rnd * 2) + 1, " > ", " < ") & Fix(Rnd * 100): End Sub
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Set tx = Controls.Add("vb.TextBox", "tx"): With tx: .Move l, t, w, h: l = l + w + r: .Visible = 1: .Locked = 1: End With
    Set cb1 = Controls.Add("vb.CommandButton", "cb1"): With cb1: .Move l, t, w, h: l = l + w + r: .Caption = "Верно": .Visible = 1: End With
    Set cb2 = Controls.Add("vb.CommandButton", "cb2"): With cb2: .Move l, t, w, h: l = l + w + r: .Caption = "Не верно": .Visible = 1: End With
    Set l1 = Controls.Add("vb.label", "l1"): l = r: t = t + h + r * 2: w = r * 40: With l1: .Move l, t, w, h: l = l + w + r: .Caption = "Счетчик верных/не верных ответов: 0/0": .Visible = 1: End With
    Set l2 = Controls.Add("vb.label", "l2"): l = r: t = t + h + r * 2: w = r * 40: With l2: .Move l, t, w, h: l = l + w + r: .Caption = "Статус: ": .Visible = 1: End With
    Me.Caption = "Тренажер для мозгоф"
    ReTx
End Sub
Private Sub Form_Unload(Cancel As Integer): Cancel = Abs(MsgBox("Понравилась программа ?", 68) = vbNo): End Sub

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

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