Minggu, 14 Agustus 2011

Permutasi vb6




Option Explicit
Dim id As
Integer Dim N As Integer Dim perm() As Integer
Function
Engine(i As Integer)    Dim t As Integer    Dim j As Integer
     id = id + 1    perm(i) = id    If (id = N) Then
stampaj    For j = 1 To N       If (perm(j) = 0) Then
         Engine (j)       End If    DoEvents    Next j
   id = id – 1    perm(i) = 0 End Function
Private Sub
cmdClear_Click()   List1.

Tidak ada komentar:

Poskan Komentar

Related Posts Plugin for WordPress, Blogger...