Private Sub Command1_Click()
Sub N_Sum(a As Integer)
Dim sum As Integer, i As Integer
sum = 0
For i = 1 To a
sum = sum + i
Next i
MsgBox "1 + 2 + ... + " & a & " = " & sum, , "計算1加到N的總和"
End Sub

Private Sub Form_Activate()
Dim N As Integer
N = InputBox("請輸入N值：", "數值累加")
Call N_Sum(N)
End Sub
arrow
arrow
    全站熱搜

    nini791213 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄