Составить программу на знание таблицы умножения

Cls
 
ochki% = 0       'переменная оценки за тест
 
For s% = 1 To 10              'цикл
   Randomize Timer             'объявление генератора случайных чисел
   chislo1% = 0                  'переменная первого множителя
   chislo2% = 0                  'переменная второго множителя
   Do
      If chislo1% = 0 Then
         chislo1% = Int(Rnd * 10)    'полученине первого множителя
      Else
         Exit Do
      End If
   Loop
   Do
      If chislo2% = 0 Then
         chislo2% = Int(Rnd * 10)   'полученине второго множителя
      Else
         Exit Do
      End If
   Loop
 
   Print "Чему равно произведение "; chislo1%; "x"; chislo2%; "?"
   INPUT rezult%
   If rezult% = chislo1% * chislo2% Then        'сравнение произведения
      Print "ответ правильный"
      ochki% = ochki% + 1                    'увеличение оценки
   Else
     Print "ответ неверный"
   End If
Next
Print: Print "Ваш балл за таблицу умножения ="; ochki%
Print "Конец теста."

Cls
 
ochki% = 0
 
For s% = 1 To 10
   Randomize Timer
   chislo1% = 0
   chislo2% = 0
   
   
chislo1: chislo1% = Int(Rnd * 10)
      If chislo1% = 0 Then GoTo chislo1
   
chislo2: chislo2% = Int(Rnd * 10)
      If chislo2% = 0 Then GoTo chislo2
   
 
   Print "chemu ravno "; chislo1%; "x"; chislo2%; "?"
   INPUT rezult%
   If rezult% = chislo1% * chislo2% Then
      Print "otvet pravilniy"
      ochki% = ochki% + 1
   Else
     Print "otvet neveren"
   End If
Next
Print: Print "Vash ball ="; ochki%
Print "Konec testa"