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