Red de conocimiento informático - Problemas con los teléfonos móviles - ¡vb tarea! ! ! ¡Hazlo con vb! ! ! ¡Urgente! ! ! ¡Ayuda! !

¡vb tarea! ! ! ¡Hazlo con vb! ! ! ¡Urgente! ! ! ¡Ayuda! !

Respondido por otros antes

Atenuar T como único

Subcomando privado1_Click()

Descargarme

End Sub

Private Sub Command2_Click()

Atenuar i como entero, j como entero, tmpStr como cadena

Para i = 1 a 30

j = Int((90 - 65 + 1) * Rnd + 65)

Aleatorizar

tmpStr = tmpStr & Chr(j)

Text1.Text = tmpStr

End Sub

Sub privado Form_Load()

Me.Caption = "Práctica de mecanografía" p>

Comando1.Caption = "Fin"

Comando2.Caption = "Generar"

Text1.Text = "" 'Carácter original

Text2 .Text = "" 'Por favor escriba

Text3.Text = "" 'Hora

Text4.Text = "" 'Precisión

Timer1.Enabled = Falso

Timer1.Interval = 100

End Sub

Sub privado Timer1_Timer()

T = T + 0,1

Text3.Text = Format(T, "0.0 segundos")

Fin SubPrivate Sub Text2_Change()

Atenuar tmpStr1 como cadena, tmpStr2 como cadena

Dim tmpStr como cadena, i como entero, n como entero

En caso de error, reanudar siguiente

Si no está Timer1.Enabled entonces

Timer1.Enabled = True

Finalizar si

tmpStr1 = Texto1.Text

tmpStr2 = Texto2.Text

Si Len(tmpStr2) >= 30 Entonces Timer1 Habilitado = Falso

Para i = 1 a Len(tmpStr2)

Si Mid(tmpStr2, i, 1) = Mid(tmpStr1, i, 1) Entonces

n = n + 1

Finalizar si

Text4.Text = Format(n / Len(tmpStr1), "0.00%")

Fin del subtítulo