Red de conocimiento informático - Problemas con los teléfonos móviles - Programa VB para encontrar raíces reales y virtuales de una ecuación cuadrática

Programa VB para encontrar raíces reales y virtuales de una ecuación cuadrática

Interfaz:

Código: Privado?Sub?Command1_Click() Dim?a?As?Single,?b?As?Single,?c?As?Single,?d? Como?Etiqueta única8.Caption?=?"" Etiqueta9.Caption?=?"" a?=?Val(Text1.Text):?b?=?Val(Text2.Text):?c?=?Val(Text3) .Texto) d?=?b?^?2?-?4?*?a?*?c Si?d?=?0?Entonces

Etiqueta8.Caption?=?"x1=x2 ="?amp;?-b?/?(2?*?a) ElseIf?d?gt;?0?Then

Etiqueta8.Caption?=?"x1="?amp;?( -b?-?Sqr(b?^?2?-?4?*?a?*?c))?/?(2?*?a)

Etiqueta9.Caption?=?" x2="?amp;?(-b? ?Sqr(b?^?2?-?4?*?a?*?c))?/?(2?*?a) Else

Label8.Caption?=?"x1="?amp;?-b?/?(2?*?a)?amp;?"-"?amp;?Sqr(4?*?a?*?c? -?b?^?2)?/?(2?*?a)?amp;?"i"

Etiqueta9.Caption?=?"x2="?amp;?-b?/ ?(2?*?a)?amp;?" "?amp;?Sqr(4?*?a?*?c?-?b?^?2)?/?(2?*?a)?amp ;?"i" End?If

End?Sub

Efecto de ejecución

上篇: ¿Cambiará el valor del ID del dispositivo USB VID PID? 下篇: ¿Por qué el vídeo almacenado en caché de UC muestra que el archivo de vídeo no existe?

Artículos populares