■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1527-1ランダムな数値を取得するには?匿名15272002-07-10(水) 01:58
     #1528-2RE#1527:ランダムな数値を取得するには?せつら2002-07-10(水) 02:05
     #1529-2RE#1527:ランダムな数値を取得するには?匿名15292002-07-10(水) 02:05
     #1532-2RE#1528:ランダムな数値を取得するには?匿名15322002-07-10(水) 02:20
     #1536-2RE#1532:ランダムな数値を取得するには?せつら2002-07-10(水) 02:25
     #1538-2RE#1532:ランダムな数値を取得するには?LESIA2002-07-10(水) 03:41
#1527-1
ランダムな数値を取得するには?
1〜10の間で実行するとランダムで数値を選びたいのですが可能でしょうか?
#1528-2
RE#1527:ランダムな数値を取得するには?
BASIC 言語には、古くからランダム数値を得る命令が用意されているので、簡単に実現できますよ。

Private Sub Form_Load()
    Randomize
End Sub

Private Sub Command1_Click()
    MsgBox CStr(Int(Rnd * 10))
End Sub
#1529-2
RE#1527:ランダムな数値を取得するには?
> 1〜10の間で実行するとランダムで数値を選びたいのですが可能でしょうか?
可能です
#1532-2
RE#1528:ランダムな数値を取得するには?
> BASIC 言語には、古くからランダム数値を得る命令が用意されているので、簡単に実現できますよ。
> 
> Private Sub Form_Load()
>     Randomize
> End Sub
> 
> Private Sub Command1_Click()
>     MsgBox CStr(Int(Rnd * 10))
> End Sub


それでは1〜10の間でなおかつ奇数の値をランダムで出力は可能でしょうか?
#1536-2
RE#1532:ランダムな数値を取得するには?
奇数? そういうのは、御自分でロジックを考えて組むべきですよ。 可能か?、と聞かれると、
可能だ、という答えしか、普通は返ってきません。 ロジックを考えないで、いったいどこが
プログラムなんだか…。

Private Sub Form_Load()
    Randomize
End Sub

Private Sub Command1_Click()
    MsgBox CStr(Int(Rnd * 5) * 2 + 1)
End Sub

生成される値の範囲を半分にして、加工するだけですね。
#1538-2
RE#1532:ランダムな数値を取得するには?
> それでは1〜10の間でなおかつ奇数の値をランダムで出力は可能でしょうか?

こういう方法もあります。
最下位ビットを立てれば奇数になるってことですね(^^)

Private Sub Form_Load()
    Randomize
End Sub

Private Sub Command1_Click()
    MsgBox CStr(Int(Rnd * 10) Or 1)
End Sub
このページと関連する記事:
#6936-0数値をランダムに取得2000-03-27(月) 14:49
#9722-0ランダムな数値2000-04-19(水) 10:37
#25102-0RE#25100: 描画色をランダムに色を付けたいです。2001-12-04(火) 15:26
#11052-0ランダムに問題表示2000-09-01(金) 15:51
#15524-0データをランダムに読み込むには2001-04-10(火) 17:00
#17003-0ランダム関数2001-07-25(水) 14:28
#20661-0ランダム関数でダブリなをなくす方法2002-04-24(水) 11:11
#9788-0rnd関数について・・・2000-07-18(火) 02:48
#24112-0ランダム表示(できません・・・)2001-10-26(金) 22:25
#18195-0ランダムに数値をとる方法は?2001-10-09(火) 22:25
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)