Question

VB 编程计算s=1-2+3-4+5-.....+99-100

Answer 1

Function ss(tos As Integer) As Integer ' tos参与计算的最后一个数
Dim i As Integer
ss = 0
For i = 1 To tos
If i Mod 2 = 0 Then
ss = ss - i
Else
ss = ss + i
End If
Next
End Function
ss(100) 的值为-50

Answer 2

dim I as interger
dim j as interger
dim s as interger
s=0
j=-1
for i = 1 to 100
j=j*(-1)
s=s + i*j
next i
debug.print s