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

解決

---

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

編集 削除

---

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

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 = 配列名(乱数値)  

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

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

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。