次回は簡単な関数を１つ使ってみたいと思います。今回紹介する関数は「乱数」です。
乱数とは、何の規則性もないでたらめな数を発生させることですが、これが案外
重宝します。ＶＢＡでは「Rnd」という関数を使います。
まず、新しいユーザーフォームにコマンドボタン１とテキストボックス１を
張り付けて下さい。コマンドボタン１のキャプションをプロパティウインドウで
「明日の気分」と書いてみましょう。テキストボックス１には例によって
フェイスマークを表示しますので、表示したいサイズに合わせた大きさに設定
して下さい。
それではコマンドボタンをＷクリックしてコード画面に移動して、こんな
コードを書いてみましょう。
Randomizeステートメントは乱数を初期化するステートメントでこれを入れると
ＶＢＡを立ち上げるたびに違う乱数の初期値を与えます。これがないと、いつも
同じ乱数からスタートしてしまいます。次のRndで０～１未満の小数の乱数が発生
します。これを Rnd()*3 で３倍し、０～３未満の小数の乱数に変換します。
そして、これをInt関数で整数値化すると、０か１か２の正数が発生することに
なります。後は、発生した数値に応じて表示フェイスマークを変えます。
さぁ、実行してみてましょう。
ご意見・ご感想は
