با حلقه ی

حلقه ی

count = count + 1

Form1.Caption = count

Wend

این مثال میگید

مثال

اگر به سوال خوب دقت کنید متوجه خواهید شد که ما نیاز به

Dim i, cnt, Min, Max As Integer

Private Sub Command1_Click()

Min = Text1.Text

Max = Text2.Text

For i = Min To Max

cnt = cnt + 1

Form1.Caption = cnt

Next

End Sub

Private Sub Form_Load()

cnt = 0

Text1.Text = Empty

Text2.Text = Empty

Command1.Caption = "Start"

End Sub