關於部落格
開心就好 ,生活就是要活的自在快樂 。 

  • 1366

    累積人氣

  • 0

    今日人氣

    0

    追蹤人氣

VB

Private Sub Cmd1_Click()

Dim i As Single

 

For i = 1 To T1

  Sum = Sum + 1 / i

Next i

 

L2 = Sum

End Sub

 

Private Sub Form_Load()

    Form1.Caption = "1+1/2+1/3+ ... +1/N之和"

    L1.Caption = "N="

    L1.FontSize = 13

    L3.Caption = "1+1/2+1/3+ ... +1/N="

    L3.FontSize = 13

    L2.Caption = ""

    L2.FontSize = 15

    Cmd1.Caption = "計算"

    Cmd1.FontSize = 15

    T1.Text = ""

    T1.FontSize = 15

   

End Sub

 

EX:   N =1 2  執行結果如下圖

相簿設定
標籤設定
相簿狀態