Private Sub Form_Click() Dim n As Integer Dim sum As Integer sum = 0 n = Val(InputBox("输入一个整数:")) sum = 0 For i = 1 To n '此处修改 sum = sum + (-1) ^ (i + 1) * i '此处修改 Next i Print sum End Sub
Private Sub Form_Click() Dim n As Integer Dim sum As Integer sum = 0 n = Val(InputBox("输入一个整数:")) For i = 0 To n sum = sum + (-1) ^ (i - 1) * i Next i Print sum End Sub
第2个回答 2009-10-18
Private Sub Form_Click() Dim i# i# = InputBox("输入n") If i# <= 0 Then MsgBox "输入有误!" Exit Sub End If If ( i# And 1 ) = 0 Then MsgBox "结果为-1" Else MsgBox "结果为1" End If End Sub