用VB编写程序,输入一个正整数n,求所有大于1且小于n,同时与n互质的数,存入一个数组并每行5个的格式输出

同时与n互质的数 ------这个不太明白?能说一下吗? 下面1000以内质数算法.
Private Sub Command1_Click()
Text1.Text = ""
For i = 1 To 1000
k = 1
For j = 2 To i / 2
If i Mod j = 0 Then k = 0
Next j
If k = 1 Then
'Print i
Text1.Text = Text1.Text & i & " "
End If
Next i
End Su