tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 効率的なパンデジタル数作成方法が分かりません
投稿日: 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のものを見ましたが
他言語のものは理解できませんでした。
何か参考になる様なものでもあれば教えて下さい。
宜しくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)
おなまえ
タイトル (できるだけ短く簡潔に)
メッセージ   図表モード   注意! 全角で40文字以内 (下記テキストボックスの範囲内) 【改行処理】 を必ずして下さい。   【マルチポスト】(複数の掲示板で同じ質問をする事) 【返信】(お礼) のできない方の投稿は、お断りします。 [注意事項]をよく読んでから投稿して下さい。    URLの投稿 は、最初の1文字を除いて ttp://hanatyan.sakura.ne.jp/ のようにして投稿して下さい。
暗証キー (英数字で8文字以内)
投稿キー (投稿時 投稿キー を入力してください)
  • 当掲示板をご利用になる場合は、必ず【掲示板ご利用に際し】をよく読んでからご利用願います。

  •   プレビュー
  • 質問される前に【当サイト内外の検索】を使って下調べをして下さい。

  • ★★★ 下記から自分の投稿記事を[修正]することができます ★★★
    処理 記事No 暗証キー
      累計    本日 昨日
    [.NET用掲示板] [VB6.0用掲示板] [サンプル投稿用掲示板] [雑談用掲示板]   [ツリー表示へ] [注意事項] [ワード検索] [Home]