Вывести на экран таблицу умножения - VB

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

Вывести на экран таблицу умножения для чисел от 1 до 10.

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

textual
                            Листинг программы 
                        

                            Option Explicit
Dim I, j, p As Integer
 
Private Sub Command1_Click()
    For I = 1 To 19 'строки
            For j = 1 To 10 'столбцы
                p = I * j
                Print I; "*"; j; "="; p,
            Next j
    Print
    Next I
 
End Sub
                        

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

14 голосов , оценка 3.857 из 5

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