mina_shariat
Member
حذف
آخرین ویرایش:
Option Explicit
Private Sub Command1_Click()
Dim a(0 To 4) As Integer
a(1) = 2
a(2) = 5
a(3) = 7
a(4) = 9
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
Print a(i) * 100 + a(j) * 10 + a(k)
Next k
Next j
Next i
End Sub
Option Explicit
Private Sub Command1_Click()
Dim a(0 To 4) As Integer
a(1) = 2
a(2) = 5
a(3) = 7
a(4) = 9
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
If Not (a(i) = a(j) Or a(i) = a(k) Or a(j) = a(k)) Then
Print a(i) * 100 + a(j) * 10 + a(k)
End If
Next k
Next j
Next i
End Sub