关于VB程序填空的问题

'代码功能: 求 1! + 2! + ……10!的值?
'请在【】处填入正确的内容?
Private Sub Form_Click()
'**********SPACE**********
t=1
s = 1
For I = 2 To 10
t = t * I
'**********SPACE**********
s=s+t
'**********SPACE**********
Next I
Print s
End Sub

'根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),
'及格(60分以上),不及格几个等级。
'
'请在【】处填入正确的内容?

Private Sub Command1_Click()
x = Val(Text1.Text)
If x >= 90 Then
Print "优秀"
'**********SPACE**********
ElseIf x >= 75 Then
Print "良好"
ElseIf x >= 60 Then
'**********SPACE**********
Print "及格"
'**********SPACE**********
Else
Print "不及格"
End If
End Sub

Private Sub Form_Click()
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------

'题目：(事件)单击窗体。
' (响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。
' 结果存入变量S中
'-------------------------------------------------
'注意：请在指定的事件内编写代码。
'-------------------------------------------------
Dim s As Integer
s = 0
'********* Program ************
t=1
For I = 1 To 5
t = t * I
s=s+t
Next I
'********** End *****************
YZJ (s)
End Sub

Private Sub Form_Click()
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目： (事件)单击窗体。
' (响应)求sum=1+4+4+16+64+1024...前8项的和,
' 请将sum结果值输出到窗体上。使用
' do while...loop语句完成程序
'-------------------------------------------------
'注意：请在指定的事件内编写代码。
'-------------------------------------------------
Dim sum As Long
'***************** Program **************

sum=1+4+4+16+64+1024...
这是什么规律？？没看出来

'*************** End *************************
Call YZJ(sum)
End Sub

(1)
rnd()或者rnd
随机数函数
#1
写文件，文件标记
eof(1)
文件尾
(2)
text2.text
文本2=文本1的计算结果
"9"
小于0或者大于9
0
取消输入