哪位朋友会解VB程序的题，我这有几道题，急需答案，考试用，多谢了，急急急！！！！

程序题（63）
Private Sub Form_click()
a = 0
For j = 1 To 10
a = a + j Mod 2
Next j
Print a
End Sub
运行后，输出的结果是_______。

程序题（64）
下面事件过程的功能是求S＝1＋（1＊2）＋（1＊2＊3）＋…＋（1＊2＊…＊n）的值，
根据选择答案在横线上填上适当内容。
Private Sub Command1_Click()
Dim n%, i%, j&, s&
n = InputBox("n=")
j = 1: s = 0
For i = 1 To n
j = j*i
s=______
Next i
Print "s="; s
End Sub

程序题（65）
下列运行后，输出的结果是7,请填空
Private Sub Form_click()
Dim s%, i%
s = 0
i = 100
Do While i <= 120
If (i \ 3) * 3 = i Then
s = s + 1
i = i + 1
_______
i = i + 1
Loop
Print s
End Sub

程序题（66）
Private Sub form_click()
s = 0
i = 1
Do While i <= 10
If i Mod 2 <> 0 Then
s = s + i
i = i + 1
Else
i = i + 1
End If
Loop
Print s
End Sub
运行后，输出的结果是_______

程序题（67）
从键盘上输入一个整数(1~32767)，输出它是几位数，并顺序输出它的各个数位上的数字。请填空
Private Sub Command1_Click()
Dim a$, n As Integer, i%
a = InputBox("a=?")
Print a
_____________________
Print n
For i = 1 To n
Print Mid(a, i, 1);
Next
End Sub

程序题（68）
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(ByVal x As Integer, ByVal y As Integer) As Integer
M = IIf(x > y, x, y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 100
b = 200
Print M(b, M(b + a, a))
End Sub
程序运行后，单击命令按钮，输出结果为______________。

程序题（69）
在窗体上画一个名称为Command1的命令按钮，编写下列程序：
Private Sub Command1_Click()
Dim a As Integer
Static b As Integer
a=a+b
b=b+4
Print a,b
End Sub
程序运行后，单击该命令按钮三次后，屏幕上显示的值是________。

程序题（70）
在窗体上画一个名称为Command1的命令按钮，编写下列程序：
Private Sub Command1_Click()
Dim a As Integer，b As Integer
a=45:b=36
do until a=b
if a>b then a=a-b else b=b-a
loop
Print a
End sub