问几个vb编程问题！！急！！

就是vb.net
1 用for语言编写程序
s=1/2! -1/3!+1/4!-1/5!……+（-1）^n+1次方/（n+1）!
!是阶乘的意思
2 用do while语句编写上面那个求和的算式
终止条件改为最后一个数据项绝对值小于10的-5次方

3 输入一个正整数，判断他是几位数，并分别输出每位数字
这个是用inputbox函数接受输入

4 输出由1，2，3，4组成的四位数，并统计共多少种组合，允许有相同数字出现
这个用4重for循环来做

第1个:
Private Sub Command1_Click()
Dim s!, i%, j%, n%, m%, l%
n = Val(InputBox("请输入N值!"))

l = 1

For i = 2 To n + 1
m = 1
For j = 1 To i
m = m * j
Next
s = s + l * (1 / m)
l = l * -1
Next

Print s
End Sub

第2个:
Private Sub Command2_Click()
Dim s!, i%, j%, n%, m%, l%
n = Val(InputBox("请输入N值!"))
l = 1
i = 1

Do
i = i + 1
m = 1
For j = 1 To i
m = m * j
Next
s = s + l * (1 / m)
If s < 10 ^ -5 Then Exit Do
l = l * -1
Loop While i <= n

Print s
End Sub

第3个:
Private Sub Command3_Click()
Dim n%, i%, s$
n = Val(InputBox("请输入正整!"))
s = CStr(n)
Print "你输入的整数的位数为:"; Len(s)
For i = 1 To Len(s)
Print Mid(s, i, 1)
Next
End Sub

第4个:
Private Sub Command4_Click()
Dim i%, j%, m%, n%, k%