Visual Basic 6.0 Кто хочет стать миллионером, сдлеать, чтобы варианты ответа были в разных местах - VB
Формулировка задачи:
Решение задачи: «Visual Basic 6.0 Кто хочет стать миллионером, сдлеать, чтобы варианты ответа были в разных местах»
textual
Листинг программы
Private Sub Form_Load() Randomize Timer NewGame End Sub Sub NextQ(CurQ) If CurQ > 15 Then Call Win: Exit Sub Shape1.Top = 5400 - 270 * (CurQ - 1) Label1(0).Caption = Q(CurQ) Dim r(4) As Integer, Rand As Integer, tmp As Integer For i = 1 To 4 r(i) = i Next i For i = 1 To 4 Rand = Int(Rnd() * 4) + 1 If i <> Rand Then tmp = r(i) r(i) = r(Rand) r(Rand) = tmp End If Next i For i = 1 To 4 Label1(i).Caption = Ans(CurQ, r(i)) If RA(CurQ) = r(i) Then tmp = i Label1(i).BackColor = vbBlack Next i RA(CurQ) = tmp Label1(5).Caption = Money(CurQ - 1) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д