アーティクル

#99 Article 1033 Posted at 1995/12/15 20:24:36 by 夢中ゆわ (MAP2717) [SAHOU.3]

Subject: Re: プログラミング作法・お題３ /1029

VBで。

Dim S(1 To 64) As String

Sub Form_Load ()
Dim A As Integer, I As Integer, J As Integer, C As Integer
Dim M As String, T As String
'パラメタを取得
M = Trim$(Command$)

C = 1
I = 1

'バラしてまとめる
A = InStrB(M, " ")
Do While A
 S(C) = LeftB$(M, A - 1)
 M = Trim$(MidB$(M, A + 1))
 C = C + 1
 A = InStrB(M, " ")
Loop

'ソートする
S(C) = M
For I = 1 To C - 1
 For J = I + 1 To C
  If S(I) > S(J) Then  '芸の無い単純比較
   T = S(I)
   S(I) = S(J)
   S(J) = T
  End If
 Next
Next

For I = 1 To C
 FORM1.Print S(I)
Next

End Sub

＃ＭＡＰ２７１７　夢中ゆわ