���� ���� ������ ������� ���� 6 �� ����� ������� ���� ������� ��� ����

��� ������� ����� for

������� ��� ��� ���� ����� ���� ���� ����� �� ����� �����

�� ���� ����� ���� � ���� ���Text1- Command1 � ���� ������ ������� :

����� ������ ��� ������� �� ���� ����� ���� ���� ����� ������� ������� ��� Command1 �� ����� ��� �������� � ���� ��� �� �����  Text1 � ���� ��� ������ ������� ��� ����� ����� Form1 ������ ����  ���� ��� ��� ���� ��� ����� ��� ������ Form1 ��� ���� ��� ��� Lode � ���� ����� ������ :

 

Private Sub Form_Load()
Command1.Caption = "�����"
Text1.Text = ""
Me.Caption = " ��� �������"
End Sub

��� ����� �������� ����� �������� ������� :

���� �� ���� �� ���� ���� Text1 ���� ���� ������ � �� ������ ����� ������ ���� ����� ������ :

Text1.Alignment = 1

��� ������� �� ����� ������ �� ����� 1 � ��� ��� ���� ���� �� ��� ������ ������ ������ :

Text1.Alignment = 0

��� ������� ���� ���� �� ��� ������  �� ����� 0 � ��� ��� ���� ���� �� ����� ������ ������ :

Text1.Alignment = 2

��� ������� ���� ���� �� ��� �� ����� 2

��� �� ��� ����� �� ����� 0 �� ��� ������ � ������ �� 1 � ����� �� 2 ������ �� ������� ��� ����� ����� Alignment  ��� ��� ����� ��� ������ :

���� ������� .

������ ����� ������� :

Private Sub Form_Load()
Command1.Caption = "�����"
Text1.Text = ""
Me.Caption = " ��� �������"
Text1.Alignment = 1
End Sub

� ��� ��� ���� ����� ������� ��� ������� �������

�� ������ ������ :

Private Sub Form_Load()
Command1.Caption = "�����"
Text1.Text = ""
Me.Caption = " ��� �������"
Text1.Alignment = 1

Text1.RightToLeft = True
Me.RightToLeft = True
End Sub

��� ����� ����� ����� ����� ������ ���� ����� ���� ������ � ���� ���� ���� ���� ���� ����� ������1 ���� ������ .

���� �� ���� ����� ���� ���� ������ ������� �������� �� 1-100 ����� Text1 .���� ����� ��� ��� �������� For � ���� ������ ������� ���� ���� ����� ��� ����  Command1 � ���� � ���� �� ��� - ����� ��� ����� �� ���Click  -:

Private Sub Command1_Click()
For i = 1 To 100
Text1.Text = Text1.Text & i & " - "
Next i
End Sub

� ��� ��� ����� :

For i = 1 To 100

���� �� ������� i  ����� 1 ��� 100

� ����� �������� ���� ���� ���� i ����� 1 �� ���� ����� � ����� ��� ��� Next i ������ ���������� ���� ������� ��� 2 � ���� �� �� ��� ��� Next i ����� 1 .

Text1.Text = Text1.Text & i & " - "

���� ������ ���� �� ��� ����� ������� (������� ������� ��� Text1 ) ��� �� ����� Text1  � ���� ����� ���� �������  i  - ���� �� ����� - � �� ���� ����� ������� ( - ) ��� ���� ����� ������  � ���� ����� ���� � ������� & �� ����� ����� ��� �����  � ������ ��������� �������� (+) .

Next i

� ������  ��� ����� ������ � ���� ������ ��� ����� ��� ���� ������ �������.� ���� ������� ��� �� ��� ��� ����� 100  .

� ����� ��� �������� ���� ������� :

 ����� �������� ���� ������� i ����� 1 � �� ����� ����� ������ ��� ����� ���� Text1 ���� ��� ���� ���� ��� �� ���� � �� ����� ����� Text1 ���� i ���� �� 1 � �� ���� ������� (-)  ����� ����� ������� ����� ���� ���� (Next i) ��� ������ ���� i ��� ���� ����� ��� ����� ����� ����� � ������ ������ �� ��� 2  � ����� ���� ������� ����� �� ���� ( 1 - ) ���� �� ����� ��� ��� � ����� �������� �������� ��� ���� ������ �� ���� ���� 2 ���� ������� ������� � ���� ����� ������� (-) � ����� ������ � ����� ������ ������� ��� ����� 3 � ���� ������ ����� ����� ���� 1-2-  � ����� ���� ���� ������� � �� 3 � ����� ����� (-) � ���� ������ ��� �� ��� ��� ����� 100

� ��� ����� ����� �������� ����� ������� ������� :

� ����� ��� �� ��� ������� �������� ����� ���� ���� ����� �� ������ ����� ��� ���� ������ ����.

�� ������� Text1 � ���� �� ������� ����� MultiLine � ������ True

� ��� ����� �������� ����� ���� ����� :

���� �� ��� ���� Text1 �� ���� ����� ��� �� ���� ���� ����� ����� Text1 .

� ���� ��� ���� Text1  � ���� ������� ������� ScrollBars � ����� ��� Vertical.

� ���� ������ ����� ���� ����� ������� :

� ������ ���� ����� ����� ���� ���� ������ ������ ���� ���� ��� ���� ����� ������� ������� ��� 300 ����  . ������ ��� ����� ������� ���� ���� � ������ ����� ��� ������� ��� ������ :

Private Sub Command2_Click()

For i = 1 To 500 Step 2
Text1.Text = Text1.Text & i & " - "
Next i

End Sub

 ����� ��� �� ������  (For i = 1 To 500 Step 2) � ������ ����� ������� �� 1 ��� 500 � ����� ������� �� 2 �� ����� �� ��� 2 � ��� ����� ������� ����� ��� .����� ��� ��� ����� 1 � �� ����� ���� 2 � ����� ����� ������ 3 � �� ����� ���� 2 � ����� ����� 5 � ������ ������ ����� ����� ������� ����� ���� 2 .

� ���� ������ ��� ��� ������� ��� ������ :

Private Sub Command3_Click()
For i = 200 To -100 Step -3
Text1.Text = Text1.Text & i & " � "
Next i
End Sub

���� ��� ���� ������ ������� �� 200 ��� -100 �� ������ � ���� ����� 3 �� ���� 3 �� �� ��� .

 

������� ���� :  ����� �������� ������ �� ������ ���� ���� � ����� ��� ������ ����

 

���� ����� ������ ������ ���������@2006