BASICの宿題はお前にまかせた at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
400:デフォルトの名無しさん 09/09/23 16:38:53 できたらやってあげたいがな… 401:デフォルトの名無しさん 09/09/26 18:41:31 >>398 テストの前日になって質問ですかｗ とりあえず学校こなくていいよ 402:デフォルトの名無しさん 09/09/29 17:37:29 覆面算 ルール1 文字はそれぞれの桁の文字を表す ルール2 異なる文字は異なる数字を表し、同じ文字は同じ数字を表す ルール3 左端の数字は0ではない ルール4 （パズルとしては）答えが一つとなる 下のプログラムはルール２を完全に考慮していない。 個々の文字は互いに異なるという条件があるからである。 この条件を取り入れるにはこのプログラムをどのように 直したらよいか。該当箇所の変更前と変更後を答えよ。 Option Explicit Sub ex3() Dim a As Integer, b As Integer, c As Integer, d As Integer Dim x As Integer, y As Integer, z As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 For d = 1 To 9 x = a * 100 + b * 10 + b y = d * 100 + d * 10 + c z = a * 1000 + a * 100 + a * 10 + d If x + y = z Then MsgBox "a=" & a & ", b = " & b & ", c = " & c & ", d = " & d End If Next d Next c Next b Next a End Sub

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5402日前に更新/137 KB
担当:undef