7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Cls
Dim i As Long, s As String, TotalNum As Long
TotalNum = Val(InputBox("输入总和", , 1000))
For i = 1 To TotalNum / 2
If TotalNum / i - (i - 1) / 2 < 1 Then Me.Caption = "循环到" & i: Exit For
If TotalNum Mod i = 0 Then
If i Mod 2 = 1 Then '连续个数为奇数
s = TotalNum / i - (i - 1) / 2 & "到" & TotalNum / i + (i - 1) / 2
Print s
End If
ElseIf TotalNum Mod i = i * 0.5 Then '连续个数为偶数
s = TotalNum / i - (i - 1) / 2 & "到" & TotalNum / i + (i - 1) / 2
Print s
End If
Next
End Sub