VB题五，高手请进，急急急急！！！！（有三题，希望你们能一一做出来，谢谢）

一题．设计一个显示个人爱好的应用程序，运行后界面如图2-4所示。具体要求：
⑴ 窗体的标题为“个人爱好” 。
⑵ 窗体上添加一个列表框，用来显示信息。
⑶ 窗体上添加两个框架，第一个放两个单选按钮，第二个放四个检查框，文本如图所示。
⑷ 窗体上添加按钮，单击按钮，在列表框添加项目，分别显示性别和爱好。
前三步楼主会吧, ⑷ 的代码:
Private Sub Command1_Click()
List1.AddItem "性别"
List1.AddItem "爱好"
End Sub

二题.7． 编程将一维数组 A(n) 中数组元素循环向后移动一个位置，最后一个元素移到第一个元素位置上
Private Sub Form_Click()
Dim a(1 To 100)
For n = 1 To 100
a(n) = n
Next n
temp = a(100)
For m = 100 To 2 Step -1
a(m) = a(m - 1)
Print a(m)
Next m
a(1) = temp
End Sub

三题，9．编程计算1!+2!+…6！的值，并将结果输出到窗体上。要求：n!由函数实现。
Private Sub Form_Click()
result = 0
For i = 1 To 6
result = result + sum(i)
Next i
Print result
End Sub

Function sum(n)
a = 1
For b = 1 To n
a = a * b
Next b
sum = a

End Function

15分！！
就要回答这么多题 ？？

难到是不难但是分太少了
加分再说