請大大幫幫忙 小弟快不行了 VB快搞死我了

小弟已經畢業好久，VB也好久沒碰了
有2題請大大幫幫忙 拜託了
Module Module1
Sub Main()
Dim a, b As Integer
Dim i As Integer
Dim j As Integer
Console.Write("請輸入起始值：")
a = Console.ReadLine()
Console.Write("請輸入終止值：")
b = Console.ReadLine()
For i = 1 To 3
For j = 1 To 3
Console.Write(CStr(a) & "x" & CStr(b) & "=" & IIf(a * b < 10, " ", "") & CStr(a * b))<br>Next

Console.WriteLine()

Next
Console.WriteLine("請按enter結束")
Console.ReadLine()
End Sub


End Module
寫出來跟題目不一樣 請大大能幫修改一下嗎? 感激不盡