帮我做下VB的题目，谢谢。

1，循环语句：
For I = -3 To 20 Step 4
的循环次数6。
2，循环语句：
For I = -3.5 To 5.5 Step 0.5
的循环次数19。
3，循环语句：
For I = -3 To 20 Step 0
的循环次数无穷。
4，下面程序运行后的结果是10100 该程序的功能是把十进制数20转换成2进制输出
Private Sub Command1_Click ( )
Dim x $, n%
n =20
x = ’’’’
Do While n < >0
a = n Mod 2
n = n\2
x = Chr (48 + a ) &x
Loop
Print x
End Sub

5，下面程序运行后的结果是22，484，该程序的功能是求最小公倍数和最大公约数。
Private Sub Command1_Click ( )
Dim x%, y% , z%
x = 242: y= 44
z = x * y
Do Until x = y
If x >y Then x = x –y Else y = y-x
Loop
Print x, z/x
End Sub

6,给定年份，下列程序用来判断该年是否为闰年，请在划线处将程序补充完整。
提示：闰年的条件可以是年号被4整除但不能被100整除，或者能被400整除。
Private Sub Command6_Click ( )
Dim y As Integer
y = InputBox (“请输入年号”)
If ( y Mod 4 =0 and not y Mod 100 or ( y Mod 400 = 0) Then
Print “是闰年”
Else
Print “是普通年份”
End