No.5
- 回答日時:
乱数とは乱数表の頭から順番に決まった値を取ってきます。
なので、RNDだけだと毎回決まった値になるわけです。
RNDMIZEを一番最初に記述するだけでシステムタイムから乱数の
デフォルト位置を変える作業が行われます。
昔のVBではRNDMIZE 値で乱数のデフォルトを明示しなくてはなりませんでしたが、.NETでは暗黙的にやってくれるみたいです。
参考URL:http://www.atmarkit.co.jp/fwin2k/tutor/cformwsh0 …
No.3ベストアンサー
- 回答日時:
配列の使い方は既出の回答で分かると思います。
Dim AA(5,5) as string
の2次元配列でもいいし、AA(5) BB(5)の1次元配列2つでもOKです。
それを全部定義した後で、RNDOMIZE関数で乱数表のデフォルトを
変えれば起動ごとに違う乱数を取ってきます。
以下はサンプルです。
Dim AA(5) As String
Randomize -Time
AA(1) = "1"
AA(2) = "2"
AA(3) = "3"
AA(4) = "4"
AA(5) = "5"
X = CInt(Rnd(1) * 4 + 1)
Me.Label1.Caption = AA(X)
この回答への補足
お手数かも知れませんが、Randomize関数の記述の仕方を教えてもらえないでしょうか?持っている参考書のは載っていないので・・。
補足日時:2006/11/26 20:23No.1
- 回答日時:
乱数で配列をバラバラにしてというのは一々、配列をしなおしているというようなことでしょうか?
なんか複雑怪奇にしていることがうまくいかない理由か、それとも乱数の発生を同じにしているとかその辺でしょうかね。
・乱数でバラバラにするのではなく、選択する値を毎回ランダムにする
・乱数の種を二つに分ける
で下記のようにしてみるのはどうでしょう。
Dim AA(1 To 5)
Dim BB(1 To 5)
Dim x1 As Integer,x2 as Integer
Dim y1 As Integer,y2 as Integer
AA(1) = "りんご"
AA(2) = "みかん"
AA(3) = "きゅうり"
AA(4) = "なす"
AA(5) = "うんこ"
BB(1) = "ringo"
BB(2) = "mikan"
BB(3) = "kyuuri"
BB(4) = "nasu"
BB(5) = "unko"
x1 = Int(Rnd * 5) + 1
y1 = Int(Rnd * 5) + 1
x2 = Int(Rnd * 5) + 1
y2 = Int(Rnd * 5) + 1
MsgBox (AA(x1) & "/" & BB(y1) & Chr(10) & AA(x2) & "/" & BB(y2))
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) pythonのmap、結果の利用は1度だけ? 5 2022/06/11 12:33
- Excel(エクセル) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 3 2022/08/21 20:51
- 英語 "not to worry"の元の表現等について 1 2023/06/22 14:44
- ビデオカメラ ドライブレコーダー内蔵電池劣化後、USB端子からの給電で、ドラレコ設定に入れない。 6 2023/02/21 20:14
- Excel(エクセル) 上から順にすべてのデータを抽出したい 3 2023/08/25 15:29
- Excel(エクセル) Excelヘルプの原文を表示する最速の方法(手順)には? 1 2023/08/11 11:30
- 教えて!goo 回答者のグレード表示が反映されるのには、時間がかかるのですか? 5 2023/04/01 02:47
- バッテリー・充電器・電池 AA乾電池について教えてください 5 2022/11/07 22:50
- Excel(エクセル) Excel 複数列のある文字を優先して1列に表示したいです 2 2022/12/03 12:07
- Visual Basic(VBA) セルが空白だった時の処理 5 2022/09/01 07:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA で、0から?1から?
-
IF関数でEmpty値を設定する方法。
-
パソコンキーボードで時分秒を...
-
変数を動的に作るには?
-
VBAで配列の計算
-
C#の質問
-
VB.net 引数で配列変数を渡す際...
-
動的配列が存在(要素が有る)か...
-
C言語 重複しない4ケタの乱数...
-
配列の要素数を超えた参照のコ...
-
VBでbyte配列型のインスタンス...
-
10進数を4桁のバイト配列に格納...
-
複数のテキストボックスに同じ...
-
c# 他プロセス起動 リダイレク...
-
VBで作った乱数を一度も重複さ...
-
Visual C++ でコントロールを...
-
C#での画像送信プログラム(ネ...
-
ComboBoxのItem追加
-
【MFC】GetCount()とGetSize()...
-
C言語で3次元配列の課題をして...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで配列の計算
-
パソコンキーボードで時分秒を...
-
IF関数でEmpty値を設定する方法。
-
EXCEL VBA で、0から?1から?
-
変数を動的に作るには?
-
動的配列が存在(要素が有る)か...
-
VB.net 引数で配列変数を渡す際...
-
遅延バインディングを使用でき...
-
VBで作った乱数を一度も重複さ...
-
複数のテキストボックスに同じ...
-
配列の要素数を超えた参照のコ...
-
C言語 重複しない4ケタの乱数...
-
For文と配列
-
C#の質問
-
VBでbyte配列型のインスタンス...
-
Excel VBAで配列の途中から(X)M...
-
マップチップの当たり判定の出し方
-
ジャグ配列とは
-
五目並べのプログラムを配列と...
-
10進数を4桁のバイト配列に格納...
おすすめ情報