Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB, por favor dame algún consejo

Programación VB, por favor dame algún consejo

Según su pregunta, todavía es una cuestión de coincidencia y no coincidencia de los tipos de datos que definió. Si m y n se definen como tipos variantes como las definiciones en la imagen que muestra, la declaración de asignación m. = 3. 141592 * (p/s)^2 Los datos predeterminados en ambos lados de (p/s)^2 son el tipo de mutación, por lo que no habrá error. Si se define como SINGLE, entonces los tipos de datos en ambos. Los lados no coinciden y la tarea seré I.

Arriba, realmente deberías prestar atención a algunos problemas que necesitan atención

Puedes consultar el código correspondiente que escribí 'definir un proceso de cálculo de área

Sub?mjjs(a? ?As?Single, ?b?As?Single, ?c??? As?Single) 'Definir dos variables para almacenar el valor del área, dos variables auxiliares y el radio Dim?SN?As?Single, ?SW?As?Single Dim?P?As?Single,?S?As?Single Dim?R1?As?Single,?R2?As?Single

P?=?(a? ?b? ?c)? /?2

S?=?(P?-?a)?*(P?-?a)? (P?-?b)?*?(P?-?c))

R1?=?S?/?P

R2?=?(a?*? b?*?c)?/? (4?*?S)

'El área del círculo tangente

SN?=?3.141592?*?R1?^ ?2

'El área del círculo circunscrito

SW?=?3.141592?*?R2?^?2

'Asignada al texto cuadro

Texto4.Text?=?SN

Texto5.Text5.=? Texto4.=?S?/?S

Texto4.=?

Texto4 .=?SN

Texto4.=?SN

Text4.=?SN/? p>

Text5.Text.=?SW

Fin?Sub

Privado?Sub?Command1_Click() ¿Atenuado? a?As?Único,?b?As?Único,?c?As?Único

a? =?Val(Texto1.Texto)

b?=?Val(Texto2) .Text)

c?=?Val(Text3.Text) ¿Llamar?mjjs(a,?b ,?c)

Fin?