Question

求算法与程序设计VB填空题答案（见补充说明）急！！！！！！

'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。

'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
Private Sub Form_Click()

Dim s As Single ' s变量用于存放计算结果
Dim p As Single
Dim i As Integer '定义一个循环变量
'给s赋初值
s = (1)
'给p赋初值

p = (2)
For i = 1 To 8
p = p * i
s = (3)
Next i
Print "s="; s

End Sub

'填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中。
'然后在窗体上显示这10个数的平均值。

'注：学生运算结果有可能跟样图中数值不一致。
'注：请不要更改源程序结构，删除（1）、（2），并在对应位置填写正确的代码。

Private Sub Command1_Click()
Dim a(9) As Integer
Dim s As Single
Dim i As Integer
Me.Cls
s = 0
Randomize
For i = 0 To (1) Step 1
a(i) = Int(Rnd * 100)
Print a(i)
Next i
For i = 0 To 9
s = (2)
Next i
Print "这10个自然数的平均值="; s / 10

End Sub

'举重比赛中，60公斤级选手体重不能超过60公斤。
'填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；
'当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。

'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
Private Sub Command1_Click()
Dim t As Single '定义变量t，值由文本框Text1读入

t = Val((1))

If (2) Then

Label1.Caption = "超重！不能参赛！"

Else

Label1.Caption = "合格，可以参赛！"

（3）

End Sub

Answer 1

(1) 0
(2) 1
(3) s+p

(1) 9
(2) s+a(i)

(1) Text1.Text
(2) t>60
(3) End If