昇順においてのループ処理

Question

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)

Comments

[y_waiwai]

しつもんはなんでしょうか

[miwaboy]

上記のコードでループ処理を行いたいのですが、どう直せばよろいですか？

[y_waiwai]

ループ処理で何をするんでしょうか。
意味がわかりません

[miwaboy]

ループ処理で昇順をつくりたいのですが、どうすればいいですか？

[YAmaGNZ]

x、y、zと3つの数字を昇順でListBoxに追加したいということですか？

[miwaboy]

そうです

Answer 1

リストボックスに追加のループはどのようにすればいいですか？

Comments

[YAmaGNZ]

追加する材料を配列やList等、ループで使えるような入れ物にセットしてください。

[miwaboy]

セットしました

[YAmaGNZ]

そうですか

Answer 2

まずは、何をループで処理したいのか明確にしましょう。
ループを使ってソートを行いたいのか、ListBoxへの追加をループで行いたいのか
どの処理でループを使うのかは分かりませんが、ループを使うということは処理対象は配列やListなどになりますので、まずはデータをそれらに格納することから考えてください。

Comments

[miwaboy]

リストボックスへの追加をそれぞれ変数に格納したのですがループ処理はどうすればいいですか？

[YAmaGNZ]

どのようなコードを書いたのですか？
私が貴方がどのようなコードを書いたのか知るすべは、あなたからの情報のみです。

初心者とのことですが、配列やFor文などの理解はされているのでしょうか？

[miwaboy]

下記のコードです。

Dim s(2)AS Integer
s(0) =　1
s(1) =　2
s(2) =　3
Dim a AS Integer
Dim b AS Integer
Dim c AS Integer

For i=0　TO　2
For j=0 TO 2
If s(i) ＞　s(j+1) Then
a =　s(i)
b =　s(j+1)
else
a =　s(j+1)
　　　 b =　s(i)
endif
Listbox.item.Add(a)
next
next

[YAmaGNZ]

ソートとComboBoxへの追加は別にしましょう。
また、値は３つ固定なのでしょうか？

[miwaboy]

いや、本来は10個の値です。
最初は少ない値の個数でできるようにすれば値が増えてもできるはずです。

[YAmaGNZ]

ソートに関しては「VB.NET 配列 ソート」等検索すれば、いろいろ方法が出てきますので参考になるかと思います。
また、ComboBoxへの追加はソート済の配列をループで回して順番に追加すればよろしいかと思います。

[YAmaGNZ]

また、配列に関しても10個と数が決まっているのであればいいのですが、可変するのであればListを使用されるのをお勧めします。