No.3ベストアンサー
- 回答日時:
#2>vb2005だと動かないので改良しないといけないですね。
'vb2005コンソールプログラムとしてコンパイル&実行出来るように書き直してみましたが、
'正直改良というほどの修正じゃないですけど・・
Imports System
Class Sample
Shared Sub Main()
Dim A%, B%, C%, D%, E%, F%, G%, H%, I%
Dim I1%, I2%, I3%, I4%, I5%, I6%, I7%, I8%, I9%
Dim List(9) As String
Dim choice As String
Dim NUMLIST As String
NUMLIST = "123456789"
For I1 = 1 To 9
List(1) = NUMLIST
choice = Mid(List(1), I1, 1)
A = Val(choice)
List(1) = Replace(List(1), choice, "")
For I2 = 1 To 8
List(2) = List(1)
choice = Mid(List(2), I2, 1)
B = Val(choice)
List(2) = Replace(List(2), choice, "")
For I3 = 1 To 7
List(3) = List(2)
choice = Mid(List(3), I3, 1)
C = Val(choice)
List(3) = Replace(List(3), choice, "")
For I4 = 1 To 6
List(4) = List(3)
choice = Mid(List(4), I4, 1)
D = Val(choice)
List(4) = Replace(List(4), choice, "")
For I5 = 1 To 5
List(5) = List(4)
choice = Mid(List(5), I5, 1)
E = Val(choice)
List(5) = Replace(List(5), choice, "")
For I6 = 1 To 4
List(6) = List(5)
choice = Mid(List(6), I6, 1)
F = Val(choice)
List(6) = Replace(List(6), choice, "")
For I7 = 1 To 3
List(7) = List(6)
choice = Mid(List(7), I7, 1)
G = Val(choice)
List(7) = Replace(List(7), choice, "")
For I8 = 1 To 2
List(8) = List(7)
choice = Mid(List(8), I8, 1)
H = Val(choice)
List(8) = Replace(List(8), choice, "")
For I9 = 1 To 1
List(9) = List(8)
choice = Mid(List(9), I9, 1)
I = Val(choice)
Console.WriteLine("{0}{1}{2}{3}{4}{5}{6}{7}{8}", A, B, C, D, E, F, G, H, I)
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
End Class
めっちゃうれしい。本当感激♪
ありがとうございます。
Dim A%, B%, C%, D%, E%, F%, G%, H%, I%
から
Next
までを
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
↑
↓
End Sub
この間にかいて
Imports Systemを一番上に書いて
ためしてみたのですが▲を押しても
画面が白くってフリーズするだけでイミディエイト・ウィンドウに文字がでないんですよね・・・・。
なぜでしょうね・・・・。
そんなむずかしい処理をしてるわけでもないと思うんですけどね。
No.4
- 回答日時:
>なぜでしょうね・・・・。
えーっとですね。
#3のプログラムを丸ごとメモ帳でも何でもコピペして適当な名前
例えばlist9.vb とか言う名前で適当な場所に保存してください。
Visual Studio コマンドプロンプト
か(パスが通っていれば)単なるコマンドプロンプトを立ち上げて、
保存した場所に、
cd /d 保存したフォルダ
で移動するか、コマンドプロンプトが立ち上がっているカレントフォルダに先程のファイルをコピー(移動)して下さい。
vbc list9.vb
でコンパイルして
list9
で実行してみて下さい。
No.2
- 回答日時:
'スマートかどうかはわからんけど、作ってみました。
'for ループより再帰を使うとスマートになるかも・・
Public Sub sample()
Dim A%, B%, C%, D%, E%, F%, G%, H%, I%
Dim I1%, I2%, I3%, I4%, I5%, I6%, I7%, I8%, I9%
Dim List(9) As String
Dim choice As String
Dim NUMLIST As String
NUMLIST = "123456789"
For I1 = 1 To 9
List(1) = NUMLIST
choice = Mid(List(1), I1, 1)
A = Val(choice)
List(1) = Replace(List(1), choice, "")
For I2 = 1 To 8
List(2) = List(1)
choice = Mid(List(2), I2, 1)
B = Val(choice)
List(2) = Replace(List(2), choice, "")
For I3 = 1 To 7
List(3) = List(2)
choice = Mid(List(3), I3, 1)
C = Val(choice)
List(3) = Replace(List(3), choice, "")
For I4 = 1 To 6
List(4) = List(3)
choice = Mid(List(4), I4, 1)
D = Val(choice)
List(4) = Replace(List(4), choice, "")
For I5 = 1 To 5
List(5) = List(4)
choice = Mid(List(5), I5, 1)
E = Val(choice)
List(5) = Replace(List(5), choice, "")
For I6 = 1 To 4
List(6) = List(5)
choice = Mid(List(6), I6, 1)
F = Val(choice)
List(6) = Replace(List(6), choice, "")
For I7 = 1 To 3
List(7) = List(6)
choice = Mid(List(7), I7, 1)
G = Val(choice)
List(7) = Replace(List(7), choice, "")
For I8 = 1 To 2
List(8) = List(7)
choice = Mid(List(8), I8, 1)
H = Val(choice)
List(8) = Replace(List(8), choice, "")
For I9 = 1 To 1
List(9) = List(8)
choice = Mid(List(9), I9, 1)
I = Val(choice)
Debug.Print A, B, C, D, E, F, G, H, I
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipse3.5EEでJavaのコンパイ...
-
.jarファイルの中身って書き換...
-
javax.servlet は存在しません...
-
warファイルを展開するとタイム...
-
javaの簡単なソースがコンパイ...
-
java:一括コンパイル後、実行...
-
javaが文字コードの影響でコン...
-
Fortranで書かれたプログラムの...
-
Tomcat6 IE系のみ文字化け
-
TeXで図を挿入できません.助け...
-
エラー クラスファイルのバー...
-
Java 2 SDK SE v1.4.0がダウン...
-
パッケージ化とコンパイルについて
-
emacsでjavaをコンパイルする方法
-
java.lang.ClassNotFoundException
-
eclipseについて
-
String型変数の宣言
-
eclipseの構文エラーについて
-
ANT によるJSPコンパイル方法
-
死にそうです。助けてください...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
.jarファイルの中身って書き換...
-
IIS環境でJAVAを使用したい
-
javaが文字コードの影響でコン...
-
javax.servlet は存在しません...
-
eclipseの構文エラーについて
-
TOMCAT_HOMEって?
-
Eclipse3.5EEでJavaのコンパイ...
-
逆コンパイルの見方について
-
「識別子がクラス名でも名前空...
-
コンパイルエラーに出てくる、i...
-
javaの簡単なソースがコンパイ...
-
Javaのコンパイル結果が表示さ...
-
Java 文字コードのエンコーディ...
-
-deprecationとは?
-
配列に対してsetText()は使えな...
-
JAVAでC/C++の条件コンパイルの...
-
warファイルを展開するとタイム...
-
日本語対応 逆コンパイラについて
-
exlipseでデバックエラーが発生...
-
Javaについて教えてね。
おすすめ情報