输出1-50之内的奇数 用VB怎样编写??急求!!!!!!!!!!!

Private Sub Form_Load()
Show
For i = 1 To 50 Step 2
n = n + 1
Print i;
If n Mod 5 = 0 Then ’这个分支是控制每行输出5个
Print
End If
Next
End Sub

if a%2<>0

楼上这样没错，不过小弟我喜欢用 “i mod 2＝1 ”做条件判断，

我喜欢用 “i mod 3＝0 ”做条件判断
赫赫

Private Sub Form_Click()
Dim i As Integer, s As Integer
For i = 1 To 50 Step 2
Print i;
Next i
End Sub