【至急】簡単な割算の余りの合計を求めるVBS

質問

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

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

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

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

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

回答No.1

singlecat · ベストアンサー

こんな感じ？

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

お礼

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

補足

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

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

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

・・・ぜんぜんちがいます？（_ _;）

回答No.2

Gizensha

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

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