掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
10個いっぺんに乱数を発生させるには？ (ID：111821)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
どんな感じで使うのかは分かりませんが １０個乱数を発生させテキストに表示させるのなら Private Sub Command1_Click() Dim a As Integer Dim ransu As Integer For a = 0 To 9 Randomize ransu = Int((20 * Rnd) + 1) txt(a).Text = ransu Next a End Sub 参考程度にして後は発展させてみて。 TextBoxはコントロール配列にして10個配置してね。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.