Código fuente Spc
2. Determine cuántos números diferentes hay (no hace falta decirlo). Según la matriz En orden, organice diferentes números de pequeño a grande (este es relativamente simple);
Simplemente escriba el código usted mismo; después de todo, debe aplicar lo que ha aprendido.
Código fuente del archivo Form1.frm:
Versión 5.00
Inicia VB. Formulario Formulario 1
Caption = "Form1 "
Altura del cliente = 3840
Cliente izquierdo = 60
Cliente superior = 345
ClientWidth = 5880
LinkTopic = "Form1 "
Alto de escala = 3840
Ancho de escala = 5880
StartUpPosition = 3 'Valor predeterminado de la ventana
Iniciar VB. Texto del cuadro de texto 2
Alto = 3375
Izquierda = 1680
Bloqueado = -1 'Verdadero
Multilínea = -1 'Verdadero
Barra de desplazamiento = 2 pies vertical
TabIndex = 1
Superior = 360
Ancho = 4095
Fin
Inicia VB. TextBoxText1
Alto = 3375
HideSelection = 0 'Falso
Izquierda = 120
MultiLine = -1 'Verdadero
Barra de desplazamiento = 2 pies vertical
TabIndex = 0
Superior = 360
Ancho = 1455
Fin
Inicie VB. Etiqueta Etiqueta2
BackStyle = 0 'Transparent
Caption = "Matriz de salida:"
Alto = 255
Izquierda = 1680
TabIndex = 3
Superior = 120
Ancho = 1095
Fin
Iniciar VB. Etiqueta Etiqueta1
BackStyle = 0 'Transparent
Caption = "Matriz de entrada:"
Alto = 255
Izquierda = 120
TabIndex = 2
Superior = 120
Ancho = 1095
Fin
Fin
Atributo VB_Name = "Form1 "
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = Falso
Subtexto privado 1 _ KeyPress (KeyAscii es un número entero)
Si KeyAscii = 8, entonces envíe el texto 1. Text = " "
Si KeyAscii & lt48 o KeyAscii & gt57 entonces KeyAscii = 0 'Determina si la entrada es un número.
Conector final
Subtexto privado 1 _ KeyUp (el código de clave es un número entero, Shift es un número entero)
Marcar I como un número entero
Atenuar cadena como cadena
Atenuar temp1 como cadena
Atenuar temp2 como cadena
Atenuar temp3 como cadena
Atenuar StrA como cadena
Atenuar StrB como cadena
Atenuar StrC como cadena
Str = Text1. Texto
Si Len(Str)>= 3 y Len(Str)<120, determine si se cumple el formato de entrada.
Para i = 0 a 2
Si numérico (mid (str, len (str)-I, 1)) = false, salga para 'Agregar espacios automáticamente.
Entonces
Si i = 3, entonces
Texto1. text=Cadena&" "
Texto1. SelStart = Len(Str) + 1
SpcNum = Len(Str)/4 'Para obtener la matriz.
Para i = 1 a SpcNum
temp1 = Mid(Str, (i - 1) * 4 + 1, 3)
si Val(temp 1 )<100 y luego vaya al siguientei
StrA = Mid(temperatura1,1,1)
StrB = Mid(temp1,2,1)
StrC = Medio(temp1, 3, 1)
temp2 = temp2 & amp_
Stella& ampStrB & ampStrC & amp”& ampStella& ampStrC & ampStrB & amp”& amp_
StrB & ampStella& ampStrC & amp”& ampStrB & ampStrC & ampStella& amp”& amp_
StrC & ampStrC & ampStrC ampStrB & amp”& ampStrC & ampStrB & ampStrB & amp”& ampChr(13) + Chr(10)
Texto 2. Texto = temp2
Siguiente
Terminará si...
Terminará si...
Finalizar conector