Private Sub Command1_Click() Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0: i = 2 Do While i <= 8 t = 1 k = 1 While k <= i t = t * k k = k + 1 Wend 展开
Private Sub Command1_Click() Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0: i = 2 Do While i <= 8 t = 1 k = 1 While k <= i t = t * k k = k + 1 Wend s = s + t i = i + 2 Loop Print sEnd Sub更多VB代码请关注 收起
