Ayuda con la tarea de VB

1. Calcula la suma de todos los números impares (pares) entre 1-100.

¿Privado?Sub?Command1_Click()

¿Para?i?=?1?A?99?Step?2

sumj?=?sumj? i

¿Siguiente?i

Para?j?=?2?A?100?Paso?2

sumo?=?sumo ?j

Siguiente?j

Imprimir?"La suma de todos los números impares entre 1-100:";?sumj

Imprimir?"La suma de todos los números pares entre 1-100:" ";?sumo

End?Sub

2. Ingrese tres números en el teclado y extráigalos en orden de mayor a menor.

Privado?Sub?Command1_Click()

a?=?InputBox("por favor?input?a:")

b?=?InputBox(" por favor?input?b：")

c?=?InputBox("por favor?input?c：")

Max?=?IIf(a?gt;?b, ?IIf(a?gt; ?c, ?a, ?c), ?IIf(b?gt; ?c, ?b, ?c))

Min?=?IIf(a?gt ;?b,?IIf(b?gt;?c,?c,?b),?IIf(a?gt;?c,?c,?a))

Suma?=?Val (a)? ?Val(b)? ?Val(c)

Imprimir?Máx.?-?Máx?-?Mín.

Fin?Sub

3. El teclado genera un número (cualquier número real) y utiliza la función por partes para calcular el valor de y=x2 3(xgt; 0), y=-5x x2(xlt; = 0).

¿Privado?Sub?Command1_Click()

x?=?InputBox("por favor?input?x:")

Si?Val(x)? gt;?0? Entonces?Imprimir?x?*?x? ?3

Si?Val(x)?lt;=?0?Entonces?Imprimir?5?*?x? *?x

End?Sub

4. Utilice los botones de opción para diseñar un programa para calcular cuatro operaciones aritméticas. Es necesario utilizar el cuadro de texto para ingresar el número de cálculo. los botones de opción para seleccionar el método de cálculo y utilice la etiqueta para generar los resultados del cálculo.

¿Privado?Sub?Command1_Click()

X?=?Val(Text1.Text)

Y?=?Val(Text2.Text)

p>

k?=?True

Seleccionar?Caso?k

Caso?Opción1.Valor

js?=? X?Y

Caso?Opción2.Valor

Si?Y?gt;?X?Entonces?a?=?X:?X?=?Y:?Y? =?a

js?=?X?-?Y

Caso?Option3.Value

js?=?X?*?Y

Caso ?Else

Si?Y?gt;?X?Entonces?a?=?X:?X?=?Y:?Y?=?a

js?=? X?/?Y

Fin?Select

Label1.Caption?=?js

Fin?Sub