vb中刚才提问过的s=1-2+3...4+5-...+99-100

Question

写程序计算s=1-2+3-4+5....+99-100
s=1
for i=1 to 100
if   then    'if后面填入什么表达式啊
s=s+i
else
s=      'S后面真入什么
end if
next i
print "s=";s

Answer 1

s=0       '这个应该是s=0吧?
for i=1 to 100
if (i%2)!=0  then    
s=s+i
else
s=s-i     
end if
next i
print "s=";s我没学过VB,不过思想是这样的,如果i是奇数就加,是偶数就减

Answer 2

s=0
for i=1 to 100
if  (i mod 2)=1 then    
s=s+i
else
s=s-i   
end if
next i

Answer 3

VB的一点初级教程   http://www.yuandan.net/vb/20/noname.htm
本节主要内容：算术运算符、关系运算符、逻辑运算符、表达式执行顺序

Answer 4

你的题目有点罗唆，并且源码也没有核对，有些有错误正解：if (i mod 2)=1  then    'if后面填入什么表达式啊
s=s+i
else
s= s-i     'S后面真入什么end if

Answer 5

s = 1
  for i = 1 to 100
    if i mod 2 = 1 then 
      s = s + i
    else
      s = s - i   
    end if
  next i
print "s=";s

Answer 6

Private Sub Command1_Click()
    
    Dim i       As Long
    Dim j       As Long
    Dim s       As Long
    
    j = 1
    
    For i = 1 To 5
        s = s + j * i
        j = -j
    Next
    
    MsgBox s
    
End Sub

Answer 7

hehe  
其实就是
For i = 1 To 100 Step 2
    s = s + i - (i + 1)
Next
再化简，就是
For i = 1 To 100 Step 2
    s = s -1
Next
哈哈

Answer 8

呵呵。这道题目，我们高中信息技术会考考试考过~ 
写程序计算s=1-2+3-4+5....+99-100
******************************************
s=1
for i=1 to 100
if   then    'if后面填入什么表达式啊
s=s+i
else
s=      'S后面真入什么
end if
next i
print "s=";s
******************************************
应该是
s=0 
for i =1 to 100 
  if  i mod 2 =1 then 
    s =s +i
  else 
    s=s-i
  end if 
 next i 
print "s=";s

Answer 9

刚才看了一下，楼主做的是为了高二信息技术会考的模拟试题~。 楼上的好多正解，但是高中考的是简单的算法~。我这个答案做出的是满分。郁闷。那个判分系统有问题的，
i mod 2<>0 提示就是不对。非得要写i mod 2 =1

Answer 10

中國的考試就是垃圾。其實就是:
n=任意正整數
if n mod 2 =0 then
    s = -(n/2)
else
    s = n-(n-1)/2
end if