|
分類:[VB.NET/VB2005 以降]
2009/12/04(Fri) 14:26:23 編集(投稿者)
2009/12/04(Fri) 14:26:16 編集(投稿者)
Visual Basic2008で乱数を小さい順に並べ替えるプログラムがわかりません。
Visual Basic2008でテキストボックスに何個データを並び替えるか（例えば１０個など）を入力すると以下の様な乱数を外部から読み込んで、並べ替えたデータを保存先を選択して、保存する方法がわかりません。
例)乱数の例
1283
9983
9021
882
839
91
22
375
1128
763
2887
1922
773
6
738
11
982
563
7332
89732
98
83
27
8663
673
7382
887
9361
82873
7
上の数は、30個ありますが、個数が増えても(例えば1000個)並び変えられるようなプログラムにしたいです。
プログラムは、以下のようにしたいのですが。
『FormにツールボックスからOpenFiledialogとSaveFiledialogを張り付ける。
Private Sub・・・・・・
(1)変数の定義や初期設定を行う。
OpenFileDialog1.ShowDialog()
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
(2)この間にデータを入力するプログラムを書く。
データを入力すためにはInput(1,・・・・)を使う。
FileClose(1)
(3)この間に並び替えをするプログラムを書く。
SaveFileDialog1.ShowDialog()
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
(4)この間に結果を出力するプログラムを書く。
結果を出力するためにはPrintline(1,・・・・)を使う。
FileClose(1)
End Sub」
(1)〜(4)にどんなプログラムにすればよいかがわかりません。
|
