タイトル : 効率的なパンデジタル数作成方法が分かりません 投稿日 : 2017/04/18(Tue) 11:39 投稿者 : nis9036
時々参考にさせて貰っています。nis9036と云います。 仕事でVB.net(VS2010)を使っていますが、特殊な分野のライブラリーの使い方に通じているだけで プログラミングは初心者です。 パンデジタル数(同じ数字が出て来ない数)の効率的な作成方法で相談させて下さい。(仕事とは関係ない事です) パンデジタル数を作成する為に下記の繰り返し処理をやってみたのですが、3桁の場合は良いのですが、 10桁のパンデジタル数を作るとなると処理時間が膨大です。 '3桁パンデジタル数作成方法1 Dim CH() As Char = {"1", "2", "3"} Dim N1, N2, N3 As Integer ListBox1.Items.Clear() For N1 = 0 To 2 For N2 = 0 To 2 For N3 = 0 To 2 If N1 <> N2 And N1 <> N3 And N2 <> N3 Then 'パンデジタル条件 ListBox1.Items.Add(CH(N1) & CH(N2) & CH(N3)) 'パンデジタル数をリストアップ End If Next Next Next 効率的な作成方法をいろいろ探しているのですが、1件Javaのものを見ましたが 他言語のものは理解できませんでした。 何か参考になる様なものでもあれば教えて下さい。 宜しくお願いします。 |