在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
n=0
For i=1 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next i
Text1.Text=Str(n)
End Sub