Найти все делители числа 1234
Язык Visual Basic 2010
Помогите!!!

Sub Main()    Dim i, n As Integer    Dim s As String    s = ""    n = 1234    For i = 1 To Int(n / 2)        If n Mod i = 0 Then            s = s + Str(i) + " "        End If    Next i    MsgBox sEnd Sub