vb累加程式

Question

1.累加程式 1+2+4+7+...+106=575
2.累加程式1+2+4+5+7+8+...+100+101=3468
誰能告訴我VB的程式碼

Answer 1

Private Sub Command1_Click()    Dim I%, X%, T%, S$        I = 1    Do      I = X + I: T = T + I      X = X + 1: S = S & I & "+"    Loop Until I = 106    MsgBox Left(S, Len(S) - 1) & "=" & TEnd SubPrivate Sub Command2_Click()    Dim I%, X%, T%, S$        I = 1    Do      I = X + I: T = T + I      X = IIf(X = 1, 2, 1)      S = S & I & "+"    Loop Until I = 101    MsgBox Left(S, Len(S) - 1) & "=" & TEnd Sub

Answer 2

Private Sub Form_Activate()
n = Val(InputBox("", "", "106")) '輸入值

For i = 1 To n
Sum = Sum + i
s = s & i & "+"
Next i

Print Sum & " = " & Left(s, Len(s) - 1)
End Sub
----------------------------------------------------------
另類解法高斯法

Private Sub Form_Activate()
n = Val(InputBox("請輸入1加至n", "計算1+...n", "100"))
Print (1 + n) * n / 2
End Sub

Answer 3

阿...我以為兩個的規則是一樣的...

Answer 4

數列的規則 用文字詳述 這樣比較清楚