VB 階層倒數和

Private Sub Command1_Click()

Dim n As Double

Dim sum As Double

Dim temp_number As Double

n = 100

temp_number = 1

For i = 1 To n Step 1

temp_number = temp_number * i

sum = sum + 1 / temp_number

Next i

Print sum

End Sub

n 太大會發生溢出錯誤

上一篇:美的多聯機外機怎麽設置模式優先

下一篇:找壹首歌,應該是梅艷芳的.