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

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


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

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

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