ＶＢ６での配列の SORT の使い方

質問

お世話になります。

下記のように、配列にランダムな数値を入れて、それを昇順、降順にしたいのですが、この場合の SORT の使い方を教えて欲しいです。

　Dim YUI(100) As Integer
　　YUI(1) =88:YUI(2) =53:YUI(3) =7
～ YUI(98) =13:YUI(99) =2:YUI(100) =94

下記のような並べ替えをしていますが、SORT を使った場合の書き方を教えて下さい。

Dim I1,I4,D7 As Integer
For I1 = 1 To 100 - 1
For I4 = I1 + 1 To 100
If YUI(I1) < YUI(I4) Then
D7 = YUI(I4)
YUI(I4) = YUI(I1)
YUI(I1) = D7
End If
Next I4
Next I1

回答No.2

pkh4989 · ベストアンサー

VBにはソートを行う関数やメソッドなどはないようですね。
以下は配列ソートの例 (ご参考に)
http://www.geocities.co.jp/SilkRoad/4511/vb/sort.htm

お礼

ＶＢは案外、不便？

早速の御回答有難う御座いました。

回答No.1

n-jun

◆ VB.NETでのソートについて
http://chaichan.web.infoseek.co.jp/vbtips/VBMemo2007-03-28.htm
VB6.0にSORTってありましたっけ？

お礼

ウーン、無かったですか？
残念。
早速の御回答有難う御座いました。