Red de conocimiento informático - Problemas con los teléfonos móviles - Error VB6 al calcular el perímetro de un rectángulo

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