Sub Main()
Dim sum, i, n As Integer
Console.WriteLine("=求到100可以被n整除的整數=")
Console.WriteLine()
Console.Write("請輸入1到100的整數n:")
n = CInt(Console.ReadLine())
If n >= 1 And n <= 100 Then
Do While sum + n <= 100
sum += n
Console.Write("{0},", sum)
i += 1
If i Mod n = 0 Then
Console.WriteLine()
End If
Loop
Console.WriteLine()
End If