Тренажер таблицы умножения на Visual Basic - VB

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

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

Доброго времени суток! помогите в написании простого тренажера таблицы умножения, где значения множителей будут вводиться рандомно, сам пробовал, но постоянно возникают проблемы с кодом

Решение задачи: «Тренажер таблицы умножения на Visual Basic»

textual
Листинг программы
Option Explicit
Dim WithEvents t As TextBox, WithEvents c As CommandButton
Dim l1, l2, tt
 
Private Sub t_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
 
Sub NewExample()
    l1.Caption = Fix(Rnd * 10) & "    X"
    l2.Caption = Fix(Rnd * 10) & "    ="
    tt = Timer: t = 0: t.SelLength = 1: t.SetFocus
End Sub
 
Private Sub c_Click()
    tt = Timer - tt
    If Val(l1) * Val(l2) = t.Text Then
        MsgBox "Правильно !" & vbLf & _
        "Время на обдумывание ответа составило " & Fix(tt) & " сек"
    Else: MsgBox "Неправильно"
    End If
    NewExample
End Sub
 
Private Sub Form_Activate()
    Randomize Timer
    NewExample
End Sub
 
Private Sub Form_Load()
    Const r = 500, rr = r / 2
    Dim i&, v
    Set l1 = Controls.Add("vb.label", "l1")
    Set l2 = Controls.Add("vb.label", "l2")
    Set t = Controls.Add("vb.textbox", "t")
    Set c = Controls.Add("vb.commandbutton", "c")
    For Each v In Array(l1, l2, t, c)
        With v: i = i + 90
            .Move i, rr, r, rr: .Visible = 1: i = i + r
        End With
    Next
End Sub

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


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

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

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