VB从键盘任意输入两个正整数x,y,求出所有x与y之间偶数的和

Question

至少四种不同方法，急求，先谢谢了，用VB求

Answer 1

Private Sub Command1_Click()
  Dim x As Integer, y As Integer, s As Integer, i As Integer
  x = InputBox("x=")
  y = InputBox("y=")
  If x Mod 2 = 1 Then x = x + 1
  For i = x To y Step 2
    s = s + i
  Next i
  Print "Sum="; s
End Sub

Private Sub Command2_Click()
  Dim x As Integer, y As Integer, s As Integer, i As Integer
  x = InputBox("x=")
  y = InputBox("y=")
  If x Mod 2 = 1 Then x = x + 1
  i = x
  While i <= y
    s = s + i
    i = i + 2
  Wend
  Print "Sum="; s
End Sub

Private Sub Command3_Click()
  Dim x As Integer, y As Integer, s As Integer, i As Integer
  x = InputBox("x=")
  y = InputBox("y=")
  If x Mod 2 = 1 Then x = x + 1
  Do
    s = s + i
    i = i + 2
  Loop While i <= y
  Print "Sum="; s
End Sub

Private Sub Command4_Click()
  Dim x As Integer, y As Integer, s As Integer, i As Integer
  x = InputBox("x=")
  y = InputBox("y=")
  If x Mod 2 = 1 Then x = x + 1
  If y Mod 2 = 1 Then y = y - 1
  s = (x + y) * (y - x + 2) / 2 / 2
  Print "Sum="; s
End Sub

Answer 2

if x>y then
z=x

x=y

y=z

end if
if x><(int(x/2))*2 then
x=x+1

end if
for i= x to y step 2
s=s+i

next i
print s

追问

不对啊，还有别的方法吗

追答

(x2)
if xint(x/2)*2 then x=x+1
if yint(y/2)*2 then y=y-1
a=x+y
b=(y-x)/2
if b=int(b/2)*2 then
s= a*b

else
s=a*(b-1)+a/2

end
print s