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

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

�� ���� ����� ���� � ���� ��� ������� ������� Command1-Shape1-Shape2-Shape3-Shape4-Shape5-Shape6-Shape7-Shape8-Shape9-Shape10  ������ ��� ������:

���� ����� ��� ���� ������ ��� ��� ���� ������ �� �������� ���� ��� �� 11 ��� ��� ��� 10 ���� ���� � ��� �� ���� ���� ���

������� �� ������� �� ����� BackColor  ��� ��� �����  � ���� ���� :

Shape1.BackColor = &H8000000D

� ��� &H8000000D  ��� ������ ��� ��� ����� �� ���� ���� � �� ��� ��� :

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

�� �� ������ ��� ����� ����� ��� ������ ������ � ������ Select All

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

�� �� ������ ��� ����� ����� ��� ������ ������ � ������ Copy

�� �� ����� �� ����� �� ����� ������ ��� ������ ������ � �� ������ Paste

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

Shape1.BackColor = &HFF0000

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

������� �� ���� ��� ������ ���� ������� ��� ���� ���� ��� ������ ���� ��� �� 10 ��� �� ����� ���� ���� �� ��� ����� 0 ���� ����� ����� � ���� ������� ���� ����� �����  � ��� 1 ���� ����� ������ � ���� ������� ������� ����� ����

�� ������ ������� ��� ���� Command1 �� ���� ������ �������  :

Private Sub Command1_Click()


Dim a As Integer
Randomize
a = Int(Rnd * 10)
If a = 0 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &H80000004
Shape3.BackColor = &H80000004
Shape4.BackColor = &H80000004
Shape5.BackColor = &H80000004
Shape6.BackColor = &H80000004
Shape7.BackColor = &H80000004
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 1 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &H80000004
Shape4.BackColor = &H80000004
Shape5.BackColor = &H80000004
Shape6.BackColor = &H80000004
Shape7.BackColor = &H80000004
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 2 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &H80000004
Shape5.BackColor = &H80000004
Shape6.BackColor = &H80000004
Shape7.BackColor = &H80000004
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 3 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Shape5.BackColor = &H80000004
Shape6.BackColor = &H80000004
Shape7.BackColor = &H80000004
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 4 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Shape5.BackColor = &HFF0000
Shape6.BackColor = &H80000004
Shape7.BackColor = &H80000004
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 5 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Shape5.BackColor = &HFF0000
Shape6.BackColor = &HFF0000
Shape7.BackColor = &H80000004
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 6 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Shape5.BackColor = &HFF0000
Shape6.BackColor = &HFF0000
Shape7.BackColor = &HFF0000
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 7 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Shape5.BackColor = &HFF0000
Shape6.BackColor = &HFF0000
Shape7.BackColor = &HFF0000
Shape8.BackColor = &HFF0000
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 8 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Shape5.BackColor = &HFF0000
Shape6.BackColor = &HFF0000
Shape7.BackColor = &HFF0000
Shape8.BackColor = &HFF0000
Shape9.BackColor = &HFF0000
Shape10.BackColor = &H80000004
ElseIf a = 9 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &HFF0000
Shape3.BackColor = &HFF0000
Shape4.BackColor = &HFF0000
Shape5.BackColor = &HFF0000
Shape6.BackColor = &HFF0000
Shape7.BackColor = &HFF0000
Shape8.BackColor = &HFF0000
Shape9.BackColor = &HFF0000
Shape10.BackColor = &HFF0000
End If

End Sub

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

Dim a As Integer
Randomize
a = Int(Rnd * 10)

����� ����� ����� ����� a �� ����� ������

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

����� ������ ����� ���� a �� ���� ��� ������ ���� � ���� �� 10 - �� ����� ����� �� 0-9 �� ���� ����� - � �� ���� ������� ������� ����� ��� ���� ��� ����� Int .

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

If a = 0 Then
Shape1.BackColor = &HFF0000
Shape2.BackColor = &H80000004
Shape3.BackColor = &H80000004
Shape4.BackColor = &H80000004
Shape5.BackColor = &H80000004
Shape6.BackColor = &H80000004
Shape7.BackColor = &H80000004
Shape8.BackColor = &H80000004
Shape9.BackColor = &H80000004
Shape10.BackColor = &H80000004
ElseIf a = 1 Then

 ����� ����� ���� �� ��� ����� If ���� �� ��� a ���� 0 �� ��� ���

����� ������ ��� ��� ����� ����� ����� ��� ������ ��� (&HFF0000) ���� ����� ������.

� �� ����� ������ ��� �� ��� ����� ������ ���� ��� ������� ��� ����� ������ &H80000004 .

� ����� ������ ��� ���� a ����� 1 ��� ��� ������� ���� �����

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

 

� ���� ��� ����� ������ � �� ��� � �� ���� End If  �� ����� ����� � ��� ����� ������� �� ���� �������� .

 

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

 

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