Error VB6 al calcular el perímetro de un rectángulo
El tipo de datos es incorrecto, no debe ser tipo carácter (cadena), debe ser tipo número real (simple) o entero (entero), y luego convertirse a caracteres cuando se muestra
Private Sub Command1_Click()
Dim chang As Single, kuan As Single, mianji As Single, zhouchang As Single 'Definir variables de largo, ancho, área y perímetro
chang = Val (Text1. Text) 'Obtiene la longitud a través del cuadro de texto 1
kuan = Val(Text2.Text) 'Obtiene el ancho a través del cuadro de texto 2
Si chang lt; kuan lt; = 0 Entonces 'Juzga que el largo y el ancho no pueden ser menores o iguales a 0
MsgBox "Ingrese el valor correcto", vbOKCancel, "Mensaje de error" 'Si es 0, an aparecerá un mensaje de error
Text1.SetFocus ' Definir posición del cursor
Else
mianji = chang * kuan 'Calcular área
zhouchang = 2 * (chang kuan) 'Calcular perímetro
End If
Label2.Caption = Str(mianji) 'Área de salida
Label6.Caption = Str(zhouchang ) 'Perímetro de salida
End Sub
Los únicos cambios son la línea DIM y las dos últimas líneas de la subrutina