ランダムに、、

picture1.picture　
にランダムに絵（a.bmp b.bmp)を50%50%の確立で表示させるにはどうすればよいでしょうか？
また、30％70％の場合はさせるにはどうすればよいでしょうか？？

No.2 ベストアンサー 回答者： taka_tetsu 回答日時： 2002/06/21 17:58

３パターン以上に分けるのであればSelect Caseがいいと思いますが、２パターンであればIfでいいのでは？

If Int(Rnd*10) < 5 Then
picture1.picture=load(a)
Else
picture1.picture=load(b)
End If

この回答へのお礼

なるほど。こちらのほうが簡単ですね。
有難うございます。

お礼日時：2002/06/21 18:11

No.1 回答者： taka_tetsu 回答日時： 2002/06/19 18:25

Rnd関数で乱数を発生させます。

発生する乱数は0～1の範囲の小数なのでこれを10倍し、Int関数で整数部を取得します。

で、結果が0～4、5～9で処理を分ければOKです。

3:7なら0～2、3～9という具合に。

この回答への補足

ということは
select case Int(Rnd*10)
case 1
picture1.picture=load(a)case 1
case 2
picture1.picture=load(b)
end select
でよろしいのでしょうか？
うちにvbがないので確かめられません．

補足日時：2002/06/20 16:39