Buscando algunas preguntas y respuestas del examen final de VB para estudiantes de primer año

Voy a la escuela en Zhengzhou. Este es nuestro examen. ¡Espero que te sea útil!

1. Preguntas de opción múltiple (***10 puntos)

1. Al hacer referencia a un control en el código, debe utilizar la propiedad ( ) del control.

A. Título B. Nombre C. Texto D. Índice

2. Supongamos variables x = 4, y = -1, a = 7, b = -8, el valor de la siguiente expresión ( ) es "falso".

A. x+a <= b-y B． x > 0 Y y < 0

C. a = b O x>y D. x+y > a+b Y NO (y < b)

3. El rango de enteros aleatorios generado por la expresión Int(Rnd*71)+10 es ( ).

A. (10,80) B. (10,81)C. [10,80]D. [10,81]

4. El valor de retorno de la función Sgn(3.1416) es ( ).

A. -1B. 0 C． 1D． Ninguna de las anteriores es correcta

5.67890 pertenece a datos de tipo ( ).

A． Entero B. Número de coma flotante de precisión simple C. Tipo monetario D. Tipo largo

6. ¿Cuál de los siguientes nombres de variables es correcto ( )?

A． 3S B. Imprimir C. Seleccione Mi nombre D. Seleccione_1

7. Las siguientes declaraciones de asignación ( ) son válidas.

A． suma = suma -suma B． x+2 = x + 2C． x + y = suma D． último = y / 0

8． Los siguientes controles o métodos tienen funciones duales de entrada y salida ( ).

A． Imprimir B. Cuadro de texto C. Botón de opción D. Casilla de verificación

9. Para obtener el contenido del elemento de la lista seleccionado en el cuadro de lista, puede acceder a la propiedad ().

A． Nombre B. Índice de lista C. ListaContar D． Texto

10. El resultado de ejecutar el siguiente código es ().

Subcomando privado1_click()

Dim m(10)

Para k = 1 a 10

m(k) = 11 - k

Siguiente k

x = 5

Imprimir m(2 + m(x))

End Sub

A. 2B． 3C． 4D． 5

2. Preguntas para completar en blanco (10 puntos)

1. Escribe una expresión básica que indique que el número entero n es divisible por 13 y 17.

2. Hay dos cuadros de lista desplegables en la ventana de código: el cuadro de lista a la izquierda y el cuadro de lista de procedimientos a la derecha.

3. Escriba una expresión básica que intercepte "Visual" de la cadena "Visual Basic 6.0".

4. El valor de retorno de la función Len("abcdef") es.

5． Supongamos que a = 2, b = 5, c = -2, d = 100, entonces el valor de a > b >= c Y a < b >= d es .

6． Para cambiar automáticamente el tamaño de la etiqueta para que se ajuste al texto mostrado, establezca la propiedad en Verdadero.

7． Si desea escribir varias declaraciones en una línea, se debe agregar un separador entre cada declaración. El separador de declaraciones en Visual Basic es.

8． Para forzar una declaración explícita de una variable, utilice la declaración __________.

9. En VB, las constantes definidas por el usuario usan la declaración y las variables se declaran usando la declaración.

3. Convierta las siguientes expresiones matemáticas en expresiones VB. (6 puntos)

1. a2+2ab+b2 ____________________

2． ____________________________

3.8exln10 ____________________________

4.2sin(450)cos(450) ____________________________

5. ___________________________________________

6． _________________________________________

4. Para preguntas verdaderas o falsas, marque “√” para las respuestas correctas y “×” para las respuestas incorrectas (10 puntos)

1. En VB, los eventos de control solo pueden activarse mediante operaciones del usuario. ( )

2. Los datos de caracteres utilizan comillas dobles como delimitadores y las comillas dobles en sí no se mostrarán en la pantalla durante la salida. ( )

3. Al guardar un proyecto, los nombres de archivo del archivo de formulario y del archivo del proyecto no pueden ser los mismos. ( )

4. Puede cambiar el tamaño del control usando el mouse y el teclado, o modificando el código. ( )

5． En el mismo procedimiento, los arrays y las variables simples pueden tener el mismo nombre. ( )

6. Los parámetros de una función VB pueden ser constantes, variables, expresiones u otra función. ( )

7. El código Const Number1=15:Number1=10 es legal. ( )

8． Permite que todas las declaraciones en la estructura del bloque If-Then se escriban en una línea ( )

9. La declaración de definición de matriz Dim a(b) As Integer es correcta ( )

10. En una llamada a procedimiento, los nombres de las variables correspondientes en la "lista de parámetros reales" y la "lista de parámetros formales" no tienen que ser los mismos, pero el número de variables debe ser igual y el tipo del parámetro real debe coincidir con el tipo del parámetro formal correspondiente. ( )

5. Complete los siguientes procedimientos según el significado de la pregunta. (16 puntos)

1. Genere 20 números enteros aleatorios entre [10, 100] y genere 10 datos por línea.

Subcomando privado1_click()

Atenuar a(1 a 20) como entero

Aleatorizar

i = 0

Hacer mientras i < 20

i = i + 1

a(i) = ( )

Si ( ) Entonces

Imprimir a(i);

Finalizar si

Si i = 10 Entonces imprimir a(i)

Si i > 10 Entonces Imprimir a(i );

Bucle

End Sub

2. Imprime la tabla de multiplicar

Private Sub command1_click()

Para i = 1 a 9

Para j = 1 a 9

Imprimir ( )

Siguiente j

Imprimir

( )

Fin Sub

3. Determinar si un número es primo

Private Sub command1_click()

x = InputBox("Ingrese un número entero")

flag = 1

Para i = 2 a ( )

Si x Mod i = 0 Entonces

flag = 0

Finalizar si

Siguiente i

Si ( ) Entonces Imprimir x "es un número primo" De lo contrario Imprimir x "no es un número primo"

End Sub

4 . Utilice una matriz para generar los primeros 15 términos de la secuencia de Fibonacci.

El primer y segundo término de esta secuencia son 1, y los términos restantes son la suma de los dos primeros términos.

Subcomando privado1_Click()

( )

f(1) = 1 : f(2) = 1

Lista1. AddItem f(1) : List1.AddItem f(2)

Para i = 3 a 15

f(i) = ( )

List1.AddItem f(i)

Next i

End Sub

6. Escribe el resultado de salida del siguiente programa.

(Cada pregunta vale 3 puntos, ***18 puntos)

1. Private Sub command1_click()

x = InputBox("enter x") ' El valor de entrada de x es -8

Seleccione Case Sgn(x) + 2

Caso 1

Imprimir "y="; x ^ 2 + 1

Caso 2

Imprimir "y="; >

Caso 3

Imprimir "y="; x ^ 3 + 100

Finalizar selección

Fin Sub

2 . Subcomando privado1_click()

Dim a, b, c, d, e Como cadena

a = "Zheng Zhou"

b = "Zhong Yuan Gong Xue Yuan"

c = a + " " + b

d = Izquierda(a, 1) + Medio(a, 7, 1)

e = Izquierda(b, 1) + Medio(b, 12, 1)

Imprimir c

Imprimir e

Fin Sub

3. Existe un procedimiento Sub:

Private Sub p1(x As Integer, ByVal y As Integer)

x = 4: y = 5: z = 6

End Sub

El resultado del siguiente segmento del programa es:

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 1: y = 2: z = 3

Imprimir x, y, z

Llamar a p1(x, y)

Imprimir x , y, z

End Sub

4. Comando secundario privado1_click()

k = 0

Para i = 1 a 3

k = k + 1

a = i * i * k

Imprimir a;

Siguiente i

End Sub

5. Subcomando privado1_click()

Dim a(5, 5) como entero

Para i = 1 a 5

Para j = 1 a 5

a(i, j) = i * 2 + j

Imprimir a(i, j);

Siguiente j

Imprimir

Siguiente i

Fin Sub

6. Hay un proceso de Función:

Función Privada f1(b, a)

a = a * a: b = b * b

f1 = a - b

Función final

¿Cuál es el resultado del siguiente segmento del programa?

Subprivado

command1_click()

a = 4: b = 3

a = f1(a, b)

Imprimir a

End Sub

Siete. Preguntas de programación (***30 puntos)

Nota: los estudiantes de arte (artes ambientales, decoración, performance, diseño de vestuario) deben responder las preguntas 1, 2, 5 y 6;

Otros estudiantes responden las preguntas 1, 2, 3 y 4.

1． Se otorga una puntuación en una escala de cien puntos y se requiere que se emita la calificación correspondiente. (7 puntos)

Una puntuación de 90 o más es "A", una puntuación de 80-89 es "B", una puntuación de 70-79 es "C", una puntuación de 60-69 es "D" y una puntuación inferior a 60 es "B".

2. Encuentre n!, n se ingresa desde el teclado. (7 puntos)

3. Genere 20 números enteros aleatorios entre [0, 99] y envíelos en orden de pequeño a grande. (8 puntos)

4. Genere y genere una matriz bidimensional de 6 × 6 A: (8 puntos)

(1) El valor de los elementos en las dos diagonales es 1 y los elementos restantes son números enteros aleatorios menores que 30.

(2) Calcule el valor promedio de los elementos en cada fila y genere el número de fila con el valor promedio más grande y el valor promedio más pequeño.

5． Genere la suma de 1+2+...+100 y encuentre la cantidad de datos entre 1 y 100 que pueden ser divisibles por 17 (8 puntos)

6. Ingrese 10 números desde el teclado y encuentre el número máximo, mínimo y promedio entre ellos.

(8 puntos)

Respuestas del examen VB y estándares de puntuación

1. Preguntas de opción múltiple (1 punto cada una, ***10 puntos)

1. B2. Un 3. C4. C 5. D

6. D 7. Un 8. B9. D 10. B

2. Complete los espacios en blanco (1 punto por cada espacio en blanco, ***10 puntos)

1. n Mod 13=0 Y n Mod 17=0

1 Objeto

3. IZQUIERDA("Visual Basic 6.0",6)

4.6

5. Falso

6. Tamaño automático

7. : 8. Opción explícita 9. Const Dim

3. Convierte las siguientes expresiones matemáticas en expresiones VB (1 punto por cada pregunta, ***6 puntos)

1. +b^2

2、 x^(1/3)*y^(1/4)

3、 8*exp(x)*log(10)< / p>

4.2*sin(3.1416/4)*cos(3.1416/4)

5. ^2)

6. log(1+abs((a+b)/(a-b)))

4. Preguntas de verdadero o falso (1 punto cada una, *** 10 puntos)

1. × 2. √ 3. × 4. √ 5. ×

6． √ 7． × 8. × 9. × 10. √

5. Según el significado de la pregunta, complete los siguientes procedimientos (1 punto por cada espacio en blanco, ***10 puntos)

1. (1) int(rnd*91)+10 (2) I<10

2． (1) i*j (2) siguiente i

3. (1) int(sqr(x)) o x-1 (2) bandera=1

4. (1) dim f(15) como entero (2) f(I-1)+f(I-2)

6. Escribe el resultado del siguiente programa (4 puntos por cada pregunta, ** *24 puntos)

1. y=65

2.

3.1 2 3

4 2 3

4.1 8 27

5.3 4 5 6 7

5 6 7 8 9

7 8 9 10 11

9 10 11 12 13

11 12 13 14 15

6. -7

7. Programas de escritura

1. subcomando privado1_click()

dim x como entero, calificación como cadena 1 punto

> x=text1.text 1 punto

seleccionar caso x 4 puntos

caso 90 a 100

calificación=”A”

caso 80 a 89

grado=”B”

caso 70 a 79

grado=”C”

caso 60 a 69

calificación=”D”

caso es<60

calificación=”E”

caso más

msgbox "Por favor vuelva a ingresar"

end select

imprimir "La puntuación del estudiante es"+calificación 1 punto

end sub

2. Subcomando privado1_click()

Dim n como entero,f tan largo 1 punto

n=text1.text 1 punto

f=1

para I=1 a n 3 puntos

f=f*I

siguiente I

text2.text=f 2 puntos

fin del sub

3． Private Sub Command1_Click()

Atenuar a(1 a 20) como entero ' 1 punto

Aleatorizar

Para i = 1 a 20 2 puntos

a(i) = Int(Rnd * 100)

Imprimir a(i);

Siguiente

Imprimir

Para i = 1 a 19 3 puntos

Para j = i + 1 a 20

Si a(i) > a(j) Entonces

t = a(i): a(i) = a(j): a(j) = t

Finalizar si

Siguiente j

Siguiente i

Para i = 1 a 20 2 puntos

Imprimir a(i);

Siguiente i

End Sub

4. Private Sub Command1_Click()

Atenuar a(1 a 6, 1 a 6) como entero ' 1 punto

Atenuar promedio como único

Aleatorizar

Para i = 1 a 6 3 puntos

Para j = 1 a 6

Si i = j O i + j = 7 Entonces

a(i, j) = 1

Si no

a(i, j

) = Int(Rnd * 30)

Finalizar si

Imprimir a(i, j);

Siguiente j

Imprimir

Siguiente i

Imprimir

Máx = 0: Mín = 30 4 puntos

Para i = 1 a 6

s = 0

Para j = 1 a 6

s = s + a(i, j)

Siguiente j

promedia = s / 6

Si promedia > Max Entonces Max = promedia: fila_max = I

Si promedia < Min Entonces Min = promedia: fila_min = i

Siguiente i

Imprimir fila_max, fila_min

Fin Sub

5. Private Sub Command1_Click()

Atenuar i como entero, c como entero

Atenuar s como entero

Para i = 1 a 100 4 puntos

s = s + i

Si i Mod 17 = 0 Entonces c = c + 1

Siguiente i

Imprime "1+2+. ..+100="; s 2 puntos

Print "Hay datos que pueden ser 17 enteros"; c; "número" 2 puntos

End Sub

6． Private Sub Command1_Click()

Dim x como entero

x = InputBox("x=") 1 punto

Imprimir x;

Max = x: Min = x: s = x 2 puntos

Para i = 2 a 10 3 puntos

x = InputBox("x="): Imprimir x;

s = s + x

Si x > Max Entonces Max = x

Si x < Min Entonces Min = x

Siguiente i

Imprimir s/10 1 punto

Imprimir Max, Min 1 punto

Fin Sub