某Visual Basic程序如下:
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后,Text1显示 ① ,Text2显示 ② 。