¡Programación VB!
Tipo de estudiante
El nombre es Sting*8
Sexo*2 en forma de cadena
Edad Igual que la edad
La fracción es un número entero
Cadena de teléfono *12
Tipo de fin
Luego, en el evento de clic del botón de comando del formulario, escriba lo siguiente código en:
Subcomando privado 1_Click()
Dim estudiante1 es un estudiante, no es un entero largo y Dim shuru es un tipo de cadena
Dim fileno es un número entero
fileno = FreeFile
no = 0
Abre la aplicación. Caminos y caminos. " \ f 1 . txt " Para aleatorio como fileno Len = Len(estudiante 1)
Recortar mientras hace (shuru)& gt"Completo"
Estudiante 1. Nombre = InputBox("Ingrese nombre")
Estudiante 1. Género = inputbox("EnterGender")
Estudiante 1. Edad = inputbox("EnterAge")
Estudiante 1. Puntuación = InputBox("puntuación de entrada ")
Estudiante 1. Tel = InputBox("Ingrese número de teléfono")
No = No + 1
Ingrese número de archivo, número, estudiante 1
Shuru = InputBox("También ¿Quieres entrar?")
Lazo
Conector final