文字をランダムに表示させるには

解決

イラゴ 2003-02-14 18:55:57 No: 106056

指定された場所にいくつかある文章をランダムに表示させはいいいえどちらでもないのオプションボタンを選んでコマンドボタンをおすとまた次の文章が出るようにしたいのですが... 初心者でプログラムがわかりません教えてください

ぢゃわ 2003-02-15 01:11:48 No: 106057

１つの方法として以下のようなやり方があるとおもいます。
ロジック等詳細には書きませんが、参考までに。

1．文章を配列に格納する
  たとえば外部ファイルから１行ずつテキスト取得し
  配列変数などに順次格納していく
  Dim 配列名() as string
  cnt=0
  Do until(0)
     テキスト取得
     if テキストがあれば
       cnt=cnt+1
            Redim Preserve 配列名(cnt)
            配列名(cnt)=テキスト
     else
            exit do
        end if
   loop

２．配列番号の範囲内で乱数を生成する
int(rnd(1)*最大値)+1 で1〜最大値の範囲の乱数生成

３．その乱数の値で配列からテキストデータを取り出す
text = 配列名(乱数値)

４．取り出したテキストを表示する

５．コマンドボタンが押されたらまた２〜４の繰り返し。

だいぶおおまかですが、こんなかんじでできると思います。
初心者ということなのであとはいろいろ調べながら頑張ってみてください。

イラゴ 2003-02-18 02:27:00 No: 106058

ありがとうございますなんとかなりました今は最後の問題をクリックしたあとに診断結果がオプションボタンのチェック数によって変わるプログラムを悩ませていますが…