用户输入一个正整数n,若n为基数,则计算1+3+5.······+n,若n为偶数,则计算2+3+4.····n之和.

Question

用户输入一个正整数n,若n为基数,则计算1+3+5.······+n,若n为偶数,则计算2+3+4.····n之和.

Answer 1

'在VB中运行以下代码
Sub jisuan()
Dim n As Integer
Dim hesu As Integer
hesu = 0
n = InputBox("请输入一个正整数")
For i = n To 1 Step -2
hesu = hesu + i
Next
'此判断一下输入的数的奇偶性用在显示时的说明用
Dim jiou As String
If n Mod 2 = 0 Then
jiou = "偶数"
Else
jiou = "奇数"
End If
MsgBox n & "以内的" & jiou & "的和为：" & hesu
End Sub