掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ランダムに表示をするには？ (ID:100051)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
変数を配列にすると簡単ですよ！ 変数の配列は分かりますか？ 宣言は、 Dim flgSyokuji(10) As Integer Dim SyokujiNo(10) As Integer 使い方は、 SyokujiNo1の部分がSyokujiNo(1)、SyokujiNo2の部分がSyokujiNo(2)… という感じになります。 こうすると、 >flgSyokuji1 = rs("flgSyokuji1") >flgSyokuji2 = rs("flgSyokuji2") >flgSyokuji3 = rs("flgSyokuji3") といった部分も簡単にできます。 For i = 1 To 10 flgSyokuji(i) = rs("flgSyokuji" & CStr(i)).Value Next i >その結果を元に、SyokujiNo1〜SyokujiNo10の中からランダムにSyokujiNo …すみません。SyokujiNoを配列にすると配列ではないSyokujiNoは使えません。 ここでは、SyokujiNo→SyokujiNo_Rndとします。 1)1から10までの乱数を発生(仮に、intRansu変数にセットしたとします) 2)SyokujiNo_Rnd = SyokujiNo(intRansu) といった感じでしょうか。 因みに、ランダムのランダム(常に同じ値になると言うことですよね？)は、 Form_Loadイベントなどに、「Randomize」を入れてみてください。 サンプルコードを作る時間がなくてすみません<(__)>
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.