Программа-тест. Как менять надписи Label от вопроса к вопросу - VB

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

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

Visual Basic. Подскажите пожалуйста как решить задачу. Есть несколько лейболов как сделать так что бы при нажатии на кнопку далее открывался следующий лейбл а при нажатии на кнопку предыдущий соответственно предыдущий лейбл. При этом порядок следования лейблов при новом открытии программы изменялся ??? если можно то код. Спасибо )

Решение задачи: «Программа-тест. Как менять надписи Label от вопроса к вопросу»

textual
Листинг программы
Option Explicit
Dim txt, nQ As Integer
 
Private Sub Command1_Click()
    NextPrev 1
End Sub
 
Private Sub Command2_Click()
    NextPrev -1
End Sub
 
Private Sub Form_Load()
    txt = Array("Первый", "Второй", "Третий", "Четвертый", "Пятый", "Шестой", "Седьмой")
    Randomize
    Unsort txt
    Label1.Caption = txt(nQ)
End Sub
 
Private Sub NextPrev(ByVal n As Integer)
    nQ = nQ + n
    If nQ > UBound(txt) Then nQ = 0 Else If nQ < 0 Then nQ = UBound(txt)
    Label1.Caption = txt(nQ)
End Sub
 
Private Sub Unsort(List)
    Dim i As Long, pos As Long, tmp, min As Long, max As Long
    min = 0: max = UBound(List)
    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = List(pos)
        List(pos) = List(i)
        List(i) = tmp
    Next i
End Sub

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


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

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

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