//冒泡排序'
X是一组有值数组
For i = 0 To X.Count - 1
For j = X.Count - 1 To 1 Step -1
If X(j) < X(j - 1) Then
Temp = X(j)
X(j) = X(j - 1)
X(j - 1) = Temp
End If
Next
Next
'阶乘求和 1!+2!+3!+4!...=sum
Dim i, j As Integer
Dim s, t As Long
Dim n = InputBox("n的值")
For i = 1 To n
t = 1
For j = 1 To i
t = t * j
Next j
s = s + t
Next i
TextBox6.Text = s