在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程：
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 0 Step -2
Counter=Counter+1
Next j
Next i
Labell.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是
16
在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程：
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 0 Step -2
Counter=Counter+1
Next j
Next i
Labell.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是
16
