Вывод таблицы умножения в VB.NET

Вывод таблицы умножения в RichTextBox на Visual Basic.NET

Добавим на форму кнопку(Button) и рич(RichTextBox), можно и TextBox, но в свойствах придется сделать MultiLine = True

Код кнопки :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, p As Integer
' В цикле перебираем все возможные варианты, которые приведены в таблице умножения
For a = 1 To 10
For b = 1 To 10
p = a * b ' Ответ
RichTextBox1.Text += a & " * " & b & " = " & p & vbCrLf ' Выводим нашу таблицу
Next
RichTextBox1.Text += vbCrLf ' Отделяем блоки
Next
End Sub

Что получилось :

tablemat Вывод таблицы умножения в VB.NET

Скачать исходник

Урок №16 - Создание браузера VB.NET  | Содержание | ПОКА НЕТ