在窗体放一个按钮
Private Sub Command1_Click()
Dim n As Long,i As Long,sum As Double,sum0 As Double
n = Val(InputBox("输入一个正整数"))
Do While i
在窗体放一个按钮
Private Sub Command1_Click()
Dim n As Long,i As Long,sum As Double,sum0 As Double
n = Val(InputBox("输入一个正整数"))
Do While i