用Visual Basic编程计算1-2+3-4+5-6···±n的值，n由文本框输入。

来源：百度知道编辑：UC知道时间：2024/06/15 18:48:36

代码怎么写？求求各位编程大大，帮个忙啊``

设：n=50

dim a as integer
a=0
for i = 1 to 50
if i/2 <> int(1/2) then
a=a+i
else
a=a-i
end if
next i
print a

如图所示，加一个输入框中，设置。名称设置为Text1.

再加一个按钮用于计算，双击按钮，编辑代码。加上如下代码。

Private Sub Command1_Click()

Dim a As Integer

a = 0

For i = 1 To Text1

If i / 2 <> Int(1 / 2) Then

a = a + i

Else

a = a - i

End If

Next i

Print a

End Sub

运行时，你输入一个数，按计算，就可以输出计算的结果了。

呵呵，分不要加给我了。代码是上面人的写的。只是改了一点。