Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice el método de escritura vb para encontrar los valores máximo y mínimo en abc

Utilice el método de escritura vb para encontrar los valores máximo y mínimo en abc

1, x = a e y = b

Debe escribirse como

x = a

y = b

2, x = b E y = a

Debe escribirse como

x = b

y = a

3, Si x lt; c Entonces 'Si x lt; c, entonces es correcto,' Entonces ¿Qué pasa si c lt; pero c gt?

x = c

End If

Esto se puede lograr escribiendo código como este:

Dim a As Integer, b As Integer, c As Integer, Temp As Integer

a = InputBox("Enter a ")

b = InputBox("Enter b")

c = InputBox("Enter c")

'Guarde el valor mayor de A, B a A

Si a lt; b entonces

Temp = a

a = b

b = Temp

End If

'Guardar el valor mayor en A y C en A

If a lt c Then

Temp = a

a = c

c = Temp

End If

'A través de las dos declaraciones IF anteriores, A guarda el valor máximo de los tres números

'Guardar el valor mayor en B y C en B

Si b lt; c entonces

Temp = b

b = c

c = Temp

End If

'En este momento A, B y C se han guardado como números grandes, medianos y pequeños respectivamente

MsgBox ("Máximo" amp; a)

MsgBox ("Mínimo" amp; c)