�� 6

�� 6 �� 

�� 

�� : �� (��) �� ( �� ) ��

�� Command1-label1-label2 � �� Line1 �� :

�� label1-label2 �� Command1 �� :

Private Sub Command1_Click()
Label1 = Rnd
Label2 = Rnd
End Sub

�� Label1 �� Rnd �� .

� �� Command1 �� :

�� : ��

� ��

�� . �� Randomize � �� .

Private Sub Command1_Click()
Randomize
Label1 = Rnd
Label2 = Rnd
End Sub

�� .

�� Rnd

�� Rnd �� 0.56667788 �� 0.56667788 � 2 �� 1.13335576 � �� 1 .

� �� 1-10 �� 11 �� 0-10

� �� Int �� .

�� :

Private Sub Command1_Click()
Randomize
Label1 = Int(Rnd * 10)
Label2 = Int(Rnd * 10)
End Sub

�� Rnd * 10 �� 10 � �� Int � �� .

�� 10 � �� 10 �� .

�� :

�� ̿ �� .

�� Label3 � Text1 � �� :

�� :

Private Sub Command1_Click()
Randomize
Label1 = Int(Rnd * Val(Text1.Text))
Label2 = Int(Rnd * Val(Text1.Text))
End Sub

� �� 10 � �� Text1.Text � �� Val ��

�� Text1 �� .

�� : ��

�� @2006