1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Option Explicit
Option Base 0
Private Sub CommandButton1_Click()
Dim Tokens
Dim Sys As Long
Dim Idx As Long
Dim dg As Long
Dim NDigit As Long
Dim V As Long
Dim Msg As String
NDigit = 2 'nombre de chiffres
'Tokens = Array("0", "1")'binnaire
'Tokens = Array("0", "1", "2", "3","4","5","6","7")'octale
'Tokens = Array("0", "1", "2", "3","4","5","6","7","8","9")'decimale
'Tokens = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F") 'hexadecimal
Tokens = Array("A", "B", "C", "D")
Sys = UBound(Tokens) + 1
For Idx = 0 To (Sys ^ NDigit) - 1
V = Idx
Msg = ""
For dg = 1 To NDigit
Msg = Tokens(V Mod Sys) & Msg
V = V \ Sys
'If V = 0 Then Exit For 'supprime les zéros devant les nombres positifs 00001
Next
MsgBox Msg & " valeur scalaire : " & Idx
Next
End Sub |
