気分転換にロト6でも買いに行くかなぁ VBA Rndを使ってみた・・・

なんか調子でないし、気分転換にロト６でも買いに行くかなぁ。。。

VBAのRnd関数を使って、出して見るかなぁ。

Option Explicit

Sub test()

    'ヘルプでrndを見ると
    Dim MyValue
    MyValue = Int((6 * Rnd) + 1)        ' 1 から 6 までの乱数整数を発生させます。

    '乱数ジェネレータを初期化するには、Rnd 関数を呼び出す前に、
    '引数を指定せずに Randomize ステートメントを実行してください。
    
    Randomize  '初期化？

    Debug.Print Int((43 * Rnd) + 1)
    Debug.Print Int((43 * Rnd) + 1)
    Debug.Print Int((43 * Rnd) + 1)
    Debug.Print Int((43 * Rnd) + 1)
    Debug.Print Int((43 * Rnd) + 1)
    Debug.Print Int((43 * Rnd) + 1)

    '↑これだと、同じ数値が出てしまうけど。。。

End Sub

実行結果
11
37
17
5
31
21
う〜ん、どうなんだろう？

あとは、人力検索の質問でみんなに聞いてみるかなぁ。

「億万長者ボード」を重ねるだけでロト6が当たる本―わずか1分で当選数字がわかる

ロト6ミラクル・チョイス・カード [ ボルト6 ]

---

種類別の人気商品(広告リンク)です

NIKEナイキ　スウェットパンツ　<ワイド 4月14日...[続きを見る]

manduca ベビーキャリア SkyLi 4月14日...[続きを見る]

黒豆ダイエット　北海道産 「高級光黒大豆」 4月14日...[続きを見る]

銃・病原菌・鉄〈上巻〉―1万3000年にわ 現在人気の 銃・病原菌・鉄〈上巻〉―1万3000年にわたる人類史の謎 など 本・書籍を紹介する(...[続きを見る]

ロード・オブ・ザ・リング コレクターズ・エ 4月14日...[続きを見る]

Canon リモートコントローラー RC- 4月14日...[続きを見る]

【Amazon.co.jp限定】ボブ・ディ 4月14日...[続きを見る]

エルミナージュII ~双生の女神と運命の大 4月14日...[続きを見る]

キャラヒーローズ ジョジョの奇妙な冒険 V 4月14日...[続きを見る]

クロムハーツ CHROME HEARTS 4月14日...[続きを見る]

THERMOS 保温弁当&ケータイマグセッ 4月14日...[続きを見る]

鉄人倶楽部(IRONMAN・CLUB) ハ 4月14日...[続きを見る]

ハートがキュート♪Angelo Jurie 4月14日...[続きを見る]

スフィアライトHID D2C 6000K 4月14日...[続きを見る]

ヘンケルジャパン ロックタイト(LOCTI 4月14日...[続きを見る]

長３Ｈｉソフトカラー封筒　アクア　１００枚 4月14日...[続きを見る]