Maestro de programación VB, urgente, urgente. En el examen. Gracias.
Rellena los espacios en blanco 3
El primer espacio en blanco n mod 3=2 y n mod 4=3 y n mod 5=4 y n mod 6=5 y n mod 7= 0
Segunda salida vacía para
Imprimir gráficos
Private Sub Form_Click()
Atenuar mientras
Atenuar a As Long
a = InputBox("Ingrese un valor:", "Enter", 0)
Si esNumeric(a) Entonces
Para i = 1 A
Si i lt; a Entonces
Imprimir Espacio(i - 1) amp "*" Espacio((a - i) * 2) amp; "*"
Else
Imprimir espacio(i - 1) amp "*"
Finalizar si
Siguiente
Else
MsgBox "Ingrese valor ilegal"
End If
End Sub
Referencia del algoritmo de binario a decimal
p>' Propósito: Convertir binario a decimal
' Entrada: Bin (número binario)
' Tipo de datos de entrada: Cadena
' Salida :BIN_to_DEC (número decimal)
' Tipo de datos de salida: Largo
' El número máximo de entrada es 111111111111111111111111111111 (31 1s), y el número máximo de salida es 2147483647 p>
Función pública BIN_to_DEC(ByVal Bin como cadena) mientras
Atenuar i mientras
Para i = 1 a Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 Val(Mid(Bin, i, 1))
Siguiente i
Función final