For ___ Next
For I% = 1 to 10 (% - )
Print I%
Next I%
, , , .
. .
Private Sub Form_Click()
Dim I As Integer
For I=0 to Screen.FontCount - 1
FontName = Screen.Fonts (I)
Print ; Screen.Fonts (I)
Next I
End Sub
. ,
Do
Loop Until
.
Private Sub Form_Load ()
Do
X$ = InputBox$ (?)
Loop Until X$ = VB
End Sub
Break Run|End . Exit Do ( Exit For), .
1. . :
Do Until
Loop
Do While
Do
Loop Until
Do
Loop While
.
Do Do
Loop Until N>5? Loop While N <=5
Do While
Do
Loop While
Do While
Loop
,
Do While X<=0 and txtDisplay.Text=
?
?
Loop
While /Wend
While
.....
Wend
, While x>0
S = S+x
Wend
. Wend While. Do __ Loop .
If Then
, If N>=0 and N<=9 Then Print Ok
If __ Then , If __ Then.
While Wend
Do While x=0
Loop
While x=0
Wend
If Then (Enter) Else - End If | If Then Else If Then . . . Else End If |