wtuqi
2/23/2020 - 6:12 AM

算法

//冒泡排序'
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