用Basic语言解:-1+2-3+4-5+6-7.....+1994-1995+1996-1997=?大家可以解解看啊~-----这是我解的-----i = -1For o = 1 To 1997A = A + ii = -(i + Sgn(i))Next oMsgBox A --------------------答案得-999哦

Dim i As Integer, hj As Doublehj = 0For i = 1 To 1997 If i Mod 2 = 0 Then hj = hj + i Else hj = hj - i End IfNext iMsgBox hj

For i = 1 To 1997Sum = Sum + (-1) ^ (i) * i Next i Print Sum

n=1997if n/2=n\2 then msgbox n/2else msgbox -(1997+1)/2end if

最简单的解法form1.print "-999"

晕那样都成？那最简单的应是：？-999

放到什么地方可以计算了啊？？

Function YunSuan(ByVal num As Long) As Long If num And 1 Then YunSuan = (-num - 1) / 2 Else YunSuan = num / 2 End IfEnd FunctionPrivate Sub Command1_Click() MsgBox YunSuan(1997)End Sub我感觉这样写运行效率会很高

Public Function yunsuan(ByVal a As Integer, b As Integer) Dim c As Integer For a = 2 To 1996 Step 2 For b = -1 To -1997 Step -2 c = a + b Next b Next a Print cEnd Function阿成的程序，希望能帮助你！..........

10楼的效率我测试了下最快 num and 1 是什么意思？？

我没编程,但我感觉-999不对吧

Msgbox CStr(1997/2 + 1)

......前后两个数的差=1最终的结果是 双数的个数 和 结尾是否是单数...