プロが教えるわが家の防犯対策術!

いつも御世話になっております。
どうぞお詳しい方、至急教えてください。

VBAで下記の回答を教えてください。
Q1:1~100 までの整数を2で割った余りの合計を返す関数をつくりなさい。

Q2:Q1で作成した関数を利用して、1~100までの整数を2で割った余りの合計をさらに2で割ったあまりを返す関数を書きなさい。

VBAの使い方も良く分かりませんので、
できましたら1行の回答では無く、完成したスクリプト(?)での回答をお願いします。

相当に急いで困っております。どうぞ宜しくお願い致します!!

A 回答 (2件)

こんな感じ?



ans = 0
For i = 1 To 100
ans = ans + (i Mod 2)
Next
ans = (ans Mod 2)

この回答への補足

素早いお返事有難うございます!
本当に助かります!

これをVBAで動作させるのはどうしたら良いのでしょう?

Sub test()
ans = 0
For i = 1 To 100
ans = ans + (i Mod 2)
Next
ans = (ans Mod 2)
End Sub

・・・ぜんぜんちがいます?(_ _;)

補足日時:2009/01/28 22:52
    • good
    • 0
この回答へのお礼

ありがとうございました。
無事できました。m(*_ _*)m

お礼日時:2009/02/04 07:27

> できましたら1行の回答では無く、完成したスクリプト(?)での回答をお願いします。



つまりは質問の丸投げで答えをくれと?
急いでいる理由と報酬によってはお手伝いしてあげなくもないですよ。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!