¿Cuáles son los métodos para usar la programación VB para encontrar la suma de n, s=1-2 3-4 5-6...n?

El primer tipo (cálculo de contraste

Private Sub Command1_Click()

Timer1.Enabled = True

Timer1.Interval = 1 ' Calcule el tiempo empleado una vez

End Sub

Private Sub Form_Load()

Text2.Text = "0" 'Inicialización del método de cálculo

Text3.Text = "0" 'Inicialización de inicio del cálculo

Text4.Text = "1" 'Número de veces que inicializa el cálculo

End Sub

Sub privado Timer1_Timer()

Atenuar a como entero, b como cadena

Si Val(Text4.Text) lt = Val(Text1.Text) Entonces

i; = Val( Texto4.Texto)

b = Texto2.Text

Si b = 0 Entonces

Texto2.Text = "1"

Texto3 .Texto = Texto3.Texto i

ElseIf b = 1 Entonces

Texto2.Texto = "0"

Texto3.Texto = Texto3.Texto - i

Finalizar si

Text4.Text = Val(Text4.Text) 1

Else

Timer1.Enabled = False

End If

End Sub

El segundo tipo (cálculo regular) toma menos tiempo

Private Sub Command1_Click()

Atenuar a como entero

a = Val(Text1.Text)

Si un Mod 2 = 0 entonces

Text2.Text = -1 * a / 2

Else

Texto2.Text = -1 * (a - 1) / 2 a

Finalizar si

Subtítulo final