Red de conocimiento informático - Problemas con los teléfonos móviles - Maestro de programación VB, urgente, urgente. En el examen. Gracias.

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

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