用VB编程:输入一个数N，若此数是整数则求S=1-1/3+1/5-1/7+……1/(2*N+1)，若不是整数则要求重新输入，直到输入整数为止。

用VB编程:输入一个数N，若此数是整数则求S=1-1/3+1/5-1/7+……1/(2*N+1)，若不是整数则要求重新输入，直到输入整数为止。

Private Sub Command1_Click()

Dim N As Double
Dim i As Integer, j As Integer
Dim S As Double

'判断是否为数字型
If IsNumeric(Me.Text1.Text) = False Then
MsgBox "请输入数字！"
Exit Sub
End If

If N <> CInt(N) Then
MsgBox "请输入整数！"
Exit Sub
End If

N = Me.Text1.Text
j = 1
S = 0

'计算
For i = 0 To N
S = S + 1 / (2 * i + 1) * j
j = j * (-1)
Next

Me.Label1.Caption = "公式S=1-1/3+1/5-1/7+……1/(2*N+1)的值为：" & S

End Sub

Private Sub Form_Load() Dim a As Double Dim i As Integer Dim j As Double a = Val(InputBox("请输入一个整数")) While Int(a) <> a a = Val(InputBox("请输入一个整数")) Wend For i = 3 To 2 * a + 1 Step 2 j = j + 1 / i Next j = 1 - j MsgBox j End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息