WAP to display first ten odd no

Private Sub Command1_Click()
Dim r As Integer
Dim n As Integer
n = 1
Do
r = n Mod 2
If r = 1 Then Print n
n = n + 1
Loop Until n > 10
End Sub


Posted by: Wasim Javed