VB初心者です。 昇順でループ処理を下記のコードでやりたいのですがアドバイスお願いいたします。 Dim ｘ AS Integer ｘ ＝ 1 Dim ｙ AS Integer ｙ ＝ 2 Dim ｚ AS Integer ｚ ＝ 3 Dim a AS Integer Dim b AS Integer Dim c AS Integer
If x<y then a = y b = x else a = x b = y
If a<z then Listbox.Item.Add(z) c = a else Listbox.Item.Add(a) c = z
If b>c Then Listbox.Item.Add(b) Listbox.Item.Add(c) else Listbox.Item.Add(c) Listbox.Item.Add(b)
# 詳しく見てないけど 要素が x y z の３個から４個へ、あるいは５個６個１００００００００個に増えたら、 現コードでは破綻するのわかってるよね？ 要するにこの手のソート処理は個別変数ですることはまずなくて、配列やリストでするもので、 だったら処理系が最初から用意しているソートルーチンを呼ぶのが手っ取り早いし、 学習目的であっても「＊＊＊ソート」なアルゴリズムを実装するのが普通っす。