トップページ⇒tech
26コメント6KB

VBの配列のソートのやりかた

■ このスレッドは過去ログ倉庫に格納されています
0001質問NGNG
VBの配列のソートのやりかたがわからないんですが・・
どなたかご存知ですか？
0002質問NGNG
↑もしよかったら教えてください。
お願いします。
0003デフォルトの名無しさんNGNG
１．まず丈夫な縄を用意します。長さは２ｍ程度あれば充分。
２．その縄で、直径５０ｃｍほどの輪を作ってしっかり結びます。
３．作った輪が地上から２．５ｍ位の高さになるように吊します。
４．適当な踏み台を用意してその輪の中にあなたの頭を通します。
５．踏み台を蹴って思い切りぶら下がってください。

どうです、できましたか？
0004デフォルトの名無しさんNGNG
なるほど、こうゆうのをVB厨房っていうのか。
0005デフォルトの名無しさんNGNG
アルゴリズムの解説書を買おうよ。
0006質問NGNG
あの・・理解不能なんですけど・・
0007デフォルトの名無しさんNGNG
私にも、何故あなたが質問スレへ行かず、
こんなスレッドを立てたのかが理解不能なのですが。
0008デフォルトの名無しさんNGNG
アルゴリズムも糞も無いちょ〜簡単なやり方･･･

List1.SortedプロパティをTrueする。
ListBoxに配列をCopy(AddItemね)して行く･･･
ListBoxの内容は、ソートされています･･･
0009質問NGNG
>>8さん
ありがとうございます。

なんですけれど・・
配列って、自分でDimで宣言した配列なんです。
0010デフォルトの名無しさんNGNG
>>1
VB初心者質問スレPart2
http://piza.2ch.net/test/read.cgi?bbs=tech&key=990793224
00118NGNG
>>9
ListBoxの内容をまた戻せば良いんじゃないですか？
0012質問NGNG
>>8さん
あぁなるほど。そうですね。


でも、スマートにソートできる命令とかあるのかと思ってましたが
そういうのはないみたいってことですね・・。
ご意見ありがとうございました。
なんとかやってみます。
0013デフォルトの名無しさんNGNG
>>8
1さんにはそれで十分でしょうね。

ただし、数値をソートする場合は
単純にList1.AddItem(…)とやると
1, 11, 2, 25, 3,…
となってしまうので、
List1.AddItem(Format$(…, "0000"))
などとして、桁をそろえておきましょう。

このスレはこれにて終了でよろしい？
0014デフォルトの名無しさんNGNG
Dim i As Long
Dim j As Long
Dim Data(9) As Long
Dim LB As Long
Dim UB As Long
Dim Swap As Long

Data(0) = 10
Data(1) = 9
Data(2) = 8
Data(3) = 7
Data(4) = 6
Data(5) = 5
Data(6) = 4
Data(7) = 3
Data(8) = 2
Data(9) = 1

LB = LBound(Data)
UB = UBound(Data) - 1

For i = LB To UB
For j = LB To UB
If Data(j) > Data(j + 1) Then
Swap = Data(j)
Data(j) = Data(j + 1)
Data(j + 1) = Swap
End If
Next j
Next i
0015デフォルトの名無しさんNGNG
質問者が調子にのるから、
質問スレ以外で解答するな。ヴォケ！>>13-14
001613NGNG
>>15
タイムスタンプを見てください。
書いているうちに追い越されたのよ。
0017デフォルトの名無しさんNGNG
晒し上げ覚悟で書くけど、ＶＢでクイックソートを実装できなかった。
つーか、ＶＢでツリー構造やリスト構造って実装できるの？
001813NGNG
>>15
14さんもこの行数から見て多分そうでしょうね。
0019デフォルトの名無しさんNGNG
それでこそVBだ。
002015NGNG
正直、スマソ

VB初心者質問スレPart2
http://piza.2ch.net/test/read.cgi?bbs=tech&key=990793224

ageておいた。
続きはこっちで。
0021質問NGNG
>>13 14
ありがとうございました。
0022デフォルトの名無しさんNGNG
>>21
今すぐ首吊って死ね
0023デフォルトの名無しさんNGNG
えー左手に見えますのがプログラム板名物、VB厨房スレでございます。
さて、右手に見えますのが・・・。
0024デフォルトの名無しさんNGNG
>>17
それ全部できるよ
0025デフォルトの名無しさんNGNG
>>17
class
0026デフォルトの名無しさんNGNG
ADO つかっても出来るよ〜〜〜
■ このスレッドは過去ログ倉庫に格納されています