Случайный арифметический пример

@Softkhoz · Регистрация: 23.08.2013

Студворк — интернет-сервис помощи студентам

Требуется запрограммировать User форму так, чтобы про нажатии на кнопку в Label отображался случайно выбранный арифметический пример, решаемый в уме. А при втором нажатии этот же пример, но уже с решением. Далее возникал бы новый пример и т. д.
Я закодил это таким образом:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Private Sub CommandButton1_Click()
 
Dim k As Integer 'случ от 1 до 20
Dim l As Integer 'случ от 1 до 20
Dim m As Integer 'случ от 1 до 9
Dim n As Integer 'знак действия
Dim o As Integer 'поряд след-я операндов
Dim p As Integer 'первич. результат
Dim q As Integer '1-й операнд окна
Dim r As String    'знак дейст. окна
Dim s As Integer '2-й операнд окна
Dim t As Integer 'результат окна
 
   k = 1 + 20 * Rnd()
   l = 1 + 20 * Rnd()
   m = 1 + 9 * Rnd()
   n = 4 * Rnd()
   o = 2 * Rnd()
   
Select Case n
   
Case 0
   r = "+"
   p = k + l
   
   
   If o = 1 Then
      q = Application.Max(k, l)
      s = Application.Min(k, l)
   Else
      q = Application.Min(k, l)
      s = Application.Max(k, l)
   End If
   
Case 1
   r = "-"
   p = k + l
   q = p
   
   If o = 1 Then
      s = Application.Max(k, l)
      
   Else
      s = Application.Min(k, l)
      
   End If
   
Case 2
   r = "*"
   p = k * m
   
   
   If o = 1 Then
      q = Application.Max(k, m)
      s = Application.Min(k, m)
   Else
      q = Application.Min(k, m)
      s = Application.Max(k, m)
   End If
      
Case Else
   r = "/"
   p = k * m
   q = p
   
   If o = 1 Then
      s = Application.Max(k, m)
      
   Else
      s = Application.Min(k, m)
      
   End If
   
End Select
 
   If InStr(Label1.Caption, "=") > 0 Then
   
      Label1.Caption = q & r & s
      
   Else
      t = Application.Evaluate("=" & Label1.Caption)
      
      Label1.Caption = Label1.Caption & "=" & t
      
   End If
 
End Sub

Но код конечно примитивный. И примеры вовсе не случайны - при каждом открытии книги они повторяются снова и снова.
А что предложите вы?

@Sasha_Smirnov · 12.10.2013, 15:06

Написать программу для младших школьников, проверяющую знание ими таблицы умножения от 2 до 12

Только ответы там враз по пять (а не по одному) плюс хронометраж минус форма (кнопка прямо в документе).

Сообщение от Softkhoz

они повторяются снова и снова

Поставьте сразу после объявлений

Visual Basic
1
Randomize

@Softkhoz · 12.10.2013, 15:52 **[ТС]**