1、
Private?Sub?Form_Click()Dim?i?As?Integer
For?i?=?1?To?10
Print?i;
Next
End?Sub
2、
Private?Sub?Form_Click()Dim?i?As?Integer
For?i?=?10?To?1?Step?-1
Print?i;
Next
End?Sub
3、
Private?Sub?Form_Click()Dim?i?As?Integer,?s?As?Long
For?i?=?1?To?100?Step?2
s?=?s?+?i
Next
Print?"100以內奇數和為";?s
End?Sub