���� ���� ������ ������� ���� 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 |