フォームをランダムに呼び出すには？ (ID:111285)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 送信を押してないのに投稿されてしまいました。 乱数箇所は一度変数に格納してから、比較しないといけませんね。 Dim intR As Integer intR = Int(Rnd(1)*5)+1 Select Case intR