Private Sub btnGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGet.Click
number = CInt(txtNumber.Text)
txtResult.Clear()
For j = 2 To 12
result = number * j
If j.ToString.Length = 1 Then
str1 = "0"
Else
str1 = ""
End If
If result.ToString.Length = 1 Then
str2 = "00"
ElseIf result.ToString.Length = 2 Then
str2 = "0"
Else
str2 = ""
End If
str1 += j.ToString
str2 += result.ToString
txtResult.Text &= number & " x " & str1 & " = " & str2
txtResult.Text &= vbCrLf
Next
End Sub
End Class