VB编程：任给定一年，判断该年是否闰年．

1．任给定一年，判断该年是否闰年，并根据给出的月份来判断是什么季节和该月有多少天。闰年的条件是：年号能被4整除但不能被100整除，或者是能被400整除。
2 求从1000～1100之间的所有素数。（输出的结果显示在文本框中）
分别用以下三种方法实现： For 循环、While 循环与Do 循环

3马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩，每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，一共花了50先令。问男人、女人和小孩各有几人。
4 编写程序，打印如下所示的“数字金字塔”：
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
………
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

5 学校对学习成绩优良的学生将进行奖励，只要满足如下条件之一就可获奖。获奖的条件如下：
1） 所靠5门课的总分超过450分。
2） 每门课的成绩都在88分以上。
3） 前3门（主课）的成绩在95分以上。其他两门（非主课）的成绩都在80分以上。
输入某学生的5门课的成绩s1、s2、s3、s4、s5，判断他是否能够获奖。

(1)'把给定的年当作year
if year mod 4 = 0 then
if year mod 100 = 0 then
if year mod 400 = 0 then
msgbox "yes"
else
msgbox "no"
end if
else
msgbox "yes"
end if
else
msgbox "no"
end if
============================================
(2)
for a = 1000 to 1100
sushu(a)=false
for i = 2 to int(sqr(a))
if a mod i = 0 then
sushu(a)=true
end if
next i
next a
--------------------------------------------
a = 1000
do while a < 1100
i=2
sushu(a)=false
do while i<int(sqr(a))
i=i+1
if a mod i = 0 then
sushu(a)=true
end if
loop
a=a+1
loop
============================================
(4)
for a=1 to 9
for i=1 to a
print i;
next i
for i=a-1 to 1 step -1