Utilice el método de escritura vb para encontrar los valores máximo y mínimo en abc
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 p>
MsgBox ("Máximo" amp; a)
MsgBox ("Mínimo" amp; c)