Вычесть из числа рандомное, но так, чтобы результат не стал отрицательным - VB

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

Private Sub Command3_Click()
i = 0
Label3.Caption = Int(Rnd(20) * 20)
Label2.Caption = Label2.Caption - Label3.Caption
If Label2.Caption = i Then Label4.Visible = True
 
End Sub

Нужно что бы число не уходило в минус

Решение задачи: «Вычесть из числа рандомное, но так, чтобы результат не стал отрицательным»

textual
                            Листинг программы 
                        
                            Label3.Caption = Int((20)*rnd+1)

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

15 голосов , оценка 4 из 5

Похожие ответы