七行プログラミング part4
■ このスレッドは過去ログ倉庫に格納されています
0133デフォルトの名無しさん
NGNG> Sub Main(): Randomize: MsgBox "運勢は" & Split("大吉 中吉 小吉 末吉 吉 凶 " + _
> "大凶", " ")(Rnd * 6): End Sub
大凶と大吉が出にくいぞ。(対オリジナル)
> Sub Main(): Randomize: MsgBox "運勢は" + Mid("大中小末 ", Rnd * 4 + 1, 1) & _
> Mid("吉凶", Rnd + 1, 1): End Sub
"中凶", "小凶", "末凶" ってなんだ ?
■ このスレッドは過去ログ倉庫に格納されています