1. (2020高三上·诸暨月考) 有如下VB程序段：

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer, s As Integer

d(1)=1

For i=2 To 10

    d(i)=d(i-1)*i

Next i

For i=1 To 5

    s=s+d(i)

Next i

Text1.Text = Str(s)

End Sub

程序运行时，单击命令按钮Command1后，将会出现的提示信息是（  ）