Diseño del curso de VB, por favor ayúdenos a comentar la declaración.

Form1.Show 'Mostrar ventana: Form1

Descargarme 'Descargar ventana de Form1

End Sub

Privado Sub Timer1_Timer() 'Control de tiempo

Índice estático como entero 'Define una variable plástica estática llamada índice

Dim i As Integer 'Define i como una variable entera

If Index lt；gt; 11 Then 'Si el índice no es igual a 11

Label3(Index).Visible = True 'Display: Label3(i)

Index = Index 1 'Suma 1 al valor del índice

De lo contrario 'Si el índice es igual a 11

Para i = 0 a 10

Label3(i).Visible = Falso 'Ocultar etiqueta3 (i)

Siguiente i

Índice = 0

Finalizar si

Finalizar sub

Subcomando privado1_Clic ()

Dim i As Integer

For i = 1 To rec_total 'i from 1 to rec_total Bucle de ejecución

Obtener #1, i, stu 'Leer archivo (# 1 a rec_total). stu 'Lee los datos del i-ésimo registro del archivo (#1) en la variable de estructura stu

If Trim(Text1.Text) = Trim(stu.xingming) Then 'Si la lectura de xingming es el mismo que el de Texto1 El texto es el mismo. Recortar eliminará los espacios del principio y del final de una cadena.

rec_no = i

Get #1, rec_no, stu 'se puede omitir aquí, porque se ha leído con Get #1, i, stu y rec_no = i, por lo que ambos Los datos de la estructura del estu son los mismos.

Text2.Text = stu.shoujihaoma 'Shoujihaoma se muestra en Text2.Text.

Finalizar si

Siguiente i

Atenuar j como entero

Para j = 0 a 10

Etiqueta3 (j) = Mid(Text2.Text, j 1, 1) 'Tome 1 carácter comenzando desde el carácter j 1 en Text2.Text y muéstrelo con Label3(j), generalmente escrito como: Label3(j).Caption = Mid ( Texto2.Texto, j 1, 1). Pero la siguiente oración Label3(j).Visible = False oculta Label3(j) para que no puedas verla. Esto significa que no entiendes la intención del autor, jaja.

Label3(j).Visible = False 'Debe ser: Label3(j).Visible = True

Label3(j).ForeColor = vbRed 'Cambiar el color de fuente de Label3( j) Poner en rojo.

Siguiente j

Timer1.Interval = 500 'Excite el reloj una vez cada 500 ms (es decir, 0,5 segundos)

End Sub

Público Sub display() 'Define esta subrutina, pero no la uses. Su función es:

Obtener #1, rec_no, stu 'Leer datos, construir xingming y shoujihaoma de stu

Con stu 'Poner Texto1 y Texto2 respectivamente para mostrar

Texto1 = .xingming: Texto2 = .shoujihaoma

Terminar con

Fin Sub

Subcomando privado2_Click()

Temporizador1. Enabled = True 'El reloj está disponible, por lo que se repetirá a tiempo: Subrutina "Private Sub Timer1_Timer()"

End Sub