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