Const N = 10
Private Sub quick(A() As Variant, B As Variant, C As Variant)
  If B < C Then
    S = A(B)
    I = B
    J = C + 1
    Do While 1
      Do
          I = I + 1
      Loop While A(I) < S
      Do
          J = J - 1
      Loop While A(J) > S
      If I >= J Then Exit Do
      T = A(I): A(I) = A(J): A(J) = T
    Loop
    A(B) = A(J): A(J) = S
    
    quick A(), B, J - 1
    quick A(), J + 1, C
  End If
End Sub
Private Sub Command1_Click()
Dim A(N)
A(0) = 41: A(1) = 24: A(2) = 76: A(3) = 11: A(4) = 45
A(5) = 64: A(6) = 21: A(7) = 69: A(8) = 19: A(9) = 36

quick A(), 0, N - 1
Picture1.Cls
For K = 0 To N - 1
  Picture1.Print A(K)
Text1.Print A(K)
Next
End Sub
いきなり貼り付けてすいません。
ソートコードの最後のＰｉｃｔｕｒｅ１．ＣｌｓとＰｉｃｔｕｒｅ１．Ｐｒｉｎｔ　Ａ（Ｋ）とＫの
変数の目
的の意味を教えてください。これだとオブジェクトが必要ですと表示されます。たびたび申し訳
ないです。。

> いきなり貼り付けてすいません。
> ソートコードの最後のＰｉｃｔｕｒｅ１．ＣｌｓとＰｉｃｔｕｒｅ１．Ｐｒｉｎｔ　Ａ（Ｋ）とＫ
の
> 変数の目
> 的の意味を教えてください。これだとオブジェクトが必要ですと表示されます。たびたび申し訳
> ないです。。
そのFormにはPictureコントロールはありますか？
画面にPictureがないといわれてるのではないですか？

>Ｐｉｃｔｕｒｅ１．Ｐｒｉｎｔ　Ａ（Ｋ）
Pictureに変数A()の内容をPrintしようとしているのです。
Kはその前のFor K=0 to N -1　文から
A()のK番目の値を表示しようとしてるのでしょうね

前のスレにも書きましたが、まずヘルプで調べる癖をつけたほうがいいです。
ピクチャーボックスコントロールについて調べれば、そのプロパティやイベント等
どんな設定ができるかは書いてあります。
それでわからなければ、どこの部分がわからないのか記述するようにしたほうが
いいと思います。
.Cls はPictureの内容をクリアします。

自分のフォームにはコマンドとテキストしかないです。ここの部分でエラーがでてるんですが
・・・ピクチャーの部分をテキストに変えてみたんですが実行できないです。

> 自分のフォームにはコマンドとテキストしかないです。ここの部分でエラーがでてるんですが
> ・・・ピクチャーの部分をテキストに変えてみたんですが実行できないです。
ならばPictureでも貼り付けてテストしてみましたか？
何度も何度も言ってますが、ヘルプは見たんですか？
テキストにかえてやったからといって
それぞれのコントロールのプロパティなりメソッドなりありますから、
単純にうまくはいかないでしょう。
テキストで進めるのであれば、テキスト用に書き換えないとね

他力本願では進まないですよ。

それこそ講師の先生に聞いたらどうですか？
そのために講師はいるのではないのですか？

マルチポストは禁止です。
hhttp://www2.moug.net/bbs/program/20060412000002.htm
hhttp://www2.moug.net/bbs/program/20060413000002.htm

「ここのルールを守って投稿する」という宣言は嘘ですか？
>掲示板ご利用に際し                             　　　　
>　　    １．インターネット上での一般的な［ネチケット］を守って頂ける事。
>　　(1) VB初心者友の会等他サイトに投稿され、さらに、こちらにも投稿されるような事は
>　　　　一般的に（マルチポストと呼ばれ）マナー違反です。マルチポスト自体を特に問題
>　　　　にしたくありませんが、マルチポストされる方は、インターネット上のマナーをご存知
>　　　　無い方か、知っていても守らない方のどちらかになると思います。
>　　　　従って、マルチポストに限らず、インターネット上のマナーを守らない方、知らない方
>　　　　という事になります。（特にこういったQ&A掲示板では礼儀知らずとして嫌われます。）
>　　　　少なくても、最初に書き込んだ掲示板で２〜３日は回答を待ちましょう。又、書き込んだ
>　　　　すべての掲示板に、返信・解決報告は必ずして下さい。

貴方は↓で講師に聞くからコードくれといっていたのでまずは講師に聞いたらどうです？
hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?no=6217&reno=6216&oya=6191&mode=m
sgview&page=0

講師に聞いた方が、掲示板で聞くよりよっぽど早いし理解も深まるでしょう。
分からないところをピンポイントで聞けますからね。