Colección de citas famosas - Libros antiguos - Respuestas a la prueba escrita vb de nivel 2 del examen nacional de rango informático en septiembre de 2010

Respuestas a la prueba escrita vb de nivel 2 del examen nacional de rango informático en septiembre de 2010

¡El mío está completo y espero que sea adoptado!

1. Preguntas de opción múltiple (2 puntos por cada pregunta, máximo 70 puntos)

1-5 BCDAA 6-10 DDCBA

11-15 ADDBB 16 -20 BCABA

21-25 CDBDC 26-30 ACDAD

31-35 DCCBA

2. Completa los espacios en blanco (2 puntos por cada espacio en blanco, * ** 30 puntos)

112345DCBA

2n-1

325

4 Estructurado

5 Diseño Físico

6array

7lbound(ciudad) o 1

8ciudad(i)

9fun

10276

11len

12p(i).gName

13picFile

14CD1.FileName

15Visible

Nota: Las letras en inglés anteriores no distinguen entre mayúsculas y minúsculas.

1. Preguntas de opción múltiple (2 puntos cada una, máximo 70 puntos)

(1) ¿Cuál de las siguientes afirmaciones es correcta?

B) Lineal La La estructura de almacenamiento vinculada de una tabla generalmente requiere más espacio de almacenamiento que la estructura de almacenamiento secuencial.

(2) ¿Cuál de las siguientes afirmaciones es correcta?

C) En la pila, el puntero inferior de la pila Los elementos en la pila cambian dinámicamente a medida que cambia el puntero en la parte superior de la pila

(3) El propósito de las pruebas de software es

D) Descubrir errores en el programa

(4) En la siguiente descripción, los síntomas que no son crisis de software son

A) El proceso del software no está estandarizado

(5) La vida del software ciclo se refiere a

A) El proceso de los productos de software desde la propuesta, implementación, uso y mantenimiento hasta la discontinuación y desmantelamiento

(6) En el método orientado a objetos, la herencia se refiere a

D) *** entre clases Mecanismo para compartir atributos y operaciones

(7) Los principios divisorios de las bases de datos jerárquicas, de red y relacionales son

D) Los conexión entre datos

(8) Un trabajador puede usar varias computadoras y una computadora puede ser utilizada por varias personas, entonces la relación entre el trabajador físico y la computadora física es

C ) Muchos a muchos

(9) El patrón que refleja los requisitos de datos del usuario en el diseño de la base de datos es

B) Patrón conceptual

(10) Hay Son tres relaciones R, S y T de la siguiente manera:

R S T

A B C A D A B C D

a 1 2 c 4 c 3 1 4

b 2 1

c 3 1

Entonces la operación para obtener la relación T a partir de las relaciones R y S es

A) Conexión natural

(11) En el entorno integrado de Visual Basic, debe agregar Para un formulario, puede hacer clic en un botón en la barra de herramientas. Este botón es

A)

(12). En el modo de diseño del entorno integrado de Visual Basic, haga doble clic en la ventana con el mouse. La ventana abierta por un control en el cuerpo es D) Ventana de código

(13) ¿Cuál de las siguientes afirmaciones es? incorrecto

D) El cuadro combinado tiene una propiedad Texto, pero el cuadro de lista no

p>

(14) Supongamos que hay una serie de botones de comando en el formulario Los atributos que pueden distinguir cada botón en la matriz son

B) Índice (15) Los eventos a los que puede responder la barra de desplazamiento son

B) Desplazamiento

< . p> (16) Supongamos a=5, b=6, c=7, d=8, ejecute la sentencia x=Iif((a>b) y (c>d),10,20), el valor de x es

B) 20

(17) Declaración Imprimir Sgn(-6^2) Abs(-6^2) Int( El resultado de salida de -6^2) es

C) -1

(18) Dibuje un cuadro de imagen en el formulario y luego dibuje un botón de comando en el cuadro de imagen, la posición como se muestra en la imagen. Entonces el valor del atributo Superior del botón de comando es

A) 200

(19) Dibuje un botón de comando llamado Comando1 en el formulario.

El siguiente procedimiento de evento se ejecuta cuando se hace clic en el botón de comando:

Private Sub Command1_Click()

a$ = "software y hardware"

b$ = Derecha(a $, 8)

c$ = Medio(a$, 1, 8)

MsgBox a$, , b$, c$, 1

End Sub

Luego, el título que se muestra en el título del cuadro de información emergente es

B) hardware

(20) Dibuje un cuadro de texto (nombre ) en el formulario es Texto1) y una etiqueta (llamada Etiqueta1), después de ejecutar el programa, si ingresa un cuadro de texto en el cuadro de texto, la etiqueta muestra inmediatamente el mismo contenido. El siguiente proceso de evento que puede lograr la operación anterior es

A) Private Sub Text1_Change()

Label1.Caption=Text1.Text

End Sub

(21) La siguiente afirmación es incorrecta

C) El botón de comando solo puede reconocer eventos de clic

(22) La siguiente afirmación sobre las variables locales es incorrecta Sí

D) Después de ejecutar el proceso, las variables declaradas con la instrucción Dim o Static en el proceso serán liberadas.

(23) El resultado de salida del siguiente segmento del programa es

x=1

y=4

Hacer hasta y> 4

x=x*y

y=y 1

Bucle

Imprimir x

B) 4

(24) Si aparece una ventana como la que se muestra en la figura después de ejecutar una declaración, entonces esta declaración es

D) x=InputBox("Ingrese datos de VB", "Cuadro de entrada" )

(25) tiene el siguiente proceso de evento:

Private Sub Form_Click()

Dim n As Integer

x = 0

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

Para i = 1 To n

Para j = 1 To i

x = x 1

Siguiente j

Siguiente i

Imprimir x

Fin Sub

Después de que se ejecute el programa, haga clic en el formulario, si ingresa 5 en el cuadro de diálogo de entrada, el contenido que se muestra en el formulario es

C) 15

(26) Lea el programa:

p>

Sub SubP(b() As Integer)

For i=1 To 4

b(i)=2 *i

Siguiente i

End Sub

Private Sub Command1_Click()

Dim a(1 a 4) como entero

a(1)= 5 : a(2)=6 : a(3)=7 : a(4)=8

subP a()

Para i=1 a 4 Imprimir a(i ) Siguiente i End Sub Ejecute el programa anterior y haga clic en el botón de comando, el resultado de salida es

A) 2

4

6

8

(27) La regla de la secuencia de Fibonacci es: los dos primeros números son 1, a partir del tercer número, cada número es la suma de sus primeros dos números, es decir: 1, 1, 2,3,5,8,13,21,34,55,89,…. Alguien escribió la siguiente función para determinar si un número entero x mayor que 1 es un número en la secuencia de Fibonacci. Si es así, devuelve Verdadero; de lo contrario, devuelve Falso.

Función Isfab(x Como Entero) Como Booleano

Dim a Como Entero, b Como Entero, c Como Entero, flag Como Booleano

flag = False

a = 1: b = 1

Hacer mientras x < b

c = a b

a = b

b = c

Si x = b Entonces bandera = Verdadero

Bucle

Isfab = Falso

Función final

Durante la prueba, se descubrió que para todos los números enteros positivos x, la función devuelve Falso y es necesario modificar el programa.

La correcta de las siguientes modificaciones es

C) Cambiar Do While xb

(28) Dibuje un botón de comando en el formulario. El nombre es. Command1 y luego escriba el siguiente procedimiento de evento:

Private Sub Command1_Click()

Dim a$, b$, c$, k%

a = "ABCD"

b = "123456"

c = ""

k = 1

Hacer mientras k <= Len( a) O k <= Len(b)

Si k <= Len(a) Entonces

c = c & Mid(a, k, 1)

Fin si

Si k <= Len(b) Entonces

c = c & Mid(b, k, 1)

Fin si p>

k = k 1

Bucle

Imprimir c

End Sub

Ejecute el programa y haga clic en botón de comando, el resultado de salida es

D) A1B2C3D456

(29) Lea el programa:

Private Sub Command1_Click()

m = 1

Para i = 4 a 1 Paso -1

Imprimir Str(m

m = m 1

Para j = 1 A i

Imprimir "*"

Siguiente j

Imprimir

Siguiente i

<; p> End Sub

Después de ejecutar el programa, haga clic en el formulario y el resultado de salida es

A) 1****

2***

3**

4*

(30) Dibuje un botón de comando (su nombre es Comando1) en el formulario y luego escriba el siguiente código:

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4) i = 3: j = 1 Do While i > = 0 s = s a( i) * j i = i - 1 j = j * 10 Loop Print s End Sub Ejecute el programa anterior y haga clic en el botón de comando, el resultado de salida es

D) 1234

(31) Las siguientes declaraciones que pueden abrir archivos aleatorios son

D) Abrir “file1.dat” para Random As #1 Len=20

(32) La estructura de un menú emergente es la siguiente. En la tabla de la derecha, cuando el programa se está ejecutando, al hacer clic en el formulario aparecerá el menú como se muestra en la siguiente figura.

El siguiente proceso de evento puede implementar correctamente esta función:

C) Private Sub Form_Click()

PopupMenu edit

End Sub

( 33) Lea el programa:

Option Base 1

Private Sub Form_Click()

Dim Arr(4, 4) As Integer

Para i = 1 a 4

Para j = 1 a 4

Arr(i, j) = (i - 1) * 2 j

Siguiente j

Siguiente i

Para i = 3 a 4

Para j = 3 a 4

Imprimir Arr(j , i );

Siguiente j

Imprimir

Siguiente i

Fin Sub

Después de que se ejecute el programa, haga clic en el formulario, el resultado de salida es

C) 7 9

8 10

(34) La función de la siguiente función es: eliminar la cadena str Todo caracteres que son iguales a la variable ch y se devuelve el resultado después de la eliminación. Por ejemplo: si str="ABCDABCD", ch="B", el valor de retorno de la función es: "ACDACD".

Función delchar(str Como cadena, ch Como cadena) Como cadena

Dim k Como entero, temp Como cadena, ret Como cadena

ret = ""

Para k = 1 a Len(str)

temp = Mid(str, k, 1)

Si temp = ch Entonces

ret = ret & temp

Finalizar si

Siguiente k

delchar = ret

Finalizar función

Pero en realidad hay un error en la función y es necesario modificarlo.

La correcta de las siguientes modificaciones es

B) Cambiar If temp=ch Then a If temp <> ch Then

(35) Dibujar un botón de comando en el formulario y dos textos cuadros, denominados Comando1, Texto1 y Texto2 respectivamente, establezca la propiedad KeyPreview del formulario en Verdadero en la ventana de propiedades y luego escriba el siguiente programa:

Dim S1 As String, S2 As String

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text1.Enabled = False

Text2.Enabled = False

End Sub

Private Sub Form_KeyDown(KeyCode como entero, Shift como entero)

S2 = S2 & Chr(KeyCode )

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

S1 = S1 & Chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text = S1 Text2.Text = S2 S1 = "" S2 = "" End Sub Después de que el programa se esté ejecutando, presione "a" sucesivamente, "b", "c" y luego haga clic en el botón de comando. Los contenidos que se muestran en los cuadros de texto Texto1 y Texto2 son:

A) abc y ABC

2. Rellene. en los espacios en blanco (2 puntos por cada espacio en blanco, ***30 puntos)

(1) El estado inicial de una pila es vacío. Primero, los elementos 5, 4, 3, 2 y 1 se empujan a la pila en secuencia, luego se sacan de la pila una vez y luego los elementos A, B, C y D se empujan a la pila en secuencia, y luego todos los elementos se sacan de la pila, luego todos los elementos se sacan de la pila (incluido El orden de los elementos que se sacan de la pila en el medio es 112345DCBA.

(2) En una tabla lineal de longitud n, encontrar el elemento máximo requiere al menos 2n-1 comparaciones.

(3) Un árbol binario tiene 10 nodos con grado 1 y 7 nodos con grado 2, entonces el árbol binario tiene 325 nodos.

(4) Un programa que consta únicamente de estructuras de secuencia, selección (rama) y repetición (bucle) es un programa de 4 estructuras.

(5) Las cuatro etapas del diseño de una base de datos: análisis de requisitos, diseño conceptual, diseño lógico y 5 diseño físico.

(6) Hay un cuadro combinado llamado Combo1 en el formulario, su contenido inicial está vacío y hay un botón de comando llamado Comando1 con el título "Agregar elemento". Después de que se ejecute el programa, si hace clic en el botón de comando, los elementos de la matriz dada se agregarán al cuadro combinado como se muestra en la figura. Por favor complete los espacios en blanco.

Opción Base 1

Subcomando privado1_Click()

Ciudad tenue como variante

ciudad =6 Array("Beijing", " Tianjin", "Shanghai", "Wuhan", "Chongqing", "Xining")

Para i = 7LBound(ciudad) o 1 To UBound(ciudad)

Combo1. AddItem 8ciudad(i)

Siguiente

Fin Sub

(7) Hay un cuadro de texto llamado Texto1 y un cuadro de texto llamado Comando1 con un título en el formulario . Botón de comando "Calcular", como se muestra en la figura. La función divertida y el proceso del evento de clic del botón de comando son los siguientes, complete los espacios en blanco.

Private Sub Command1_Click()

Dim x como entero

x = Val(InputBox("Datos de entrada"))

Texto1 = str(fun(x) fun(x) fun(x))

End Sub

Función privada fun(ByRef n As Integer)

If n Mod 3 = 0 Entonces

n = n n

De lo contrario

n = n * n

Finalizar si

9fun = n

Función final

Cuando haces clic en el botón de comando e ingresas 2 en el cuadro de diálogo de entrada, se muestra 10276 en el cuadro de texto.

(8) Hay un cuadro de lista llamado Lista1 y un cuadro de imagen llamado Imagen1 en el formulario. La función del procedimiento de evento Form_Load es agregar los nombres de los elementos en el archivo Data1.txt al cuadro de lista. Ejecute el programa. Cuando hace doble clic en el nombre del elemento en el cuadro de lista, la imagen correspondiente al elemento se puede mostrar en el cuadro de imagen, como se muestra en la figura. La siguiente es la definición del tipo y el procedimiento; complete los espacios en blanco.

Imagen de tipo privado

gName As String * 10 'Nombre del elemento

picFile As String * 20 'Nombre del archivo de imagen de la imagen del elemento

Tipo final

Dim p(4) como imagen, pRec como imagen

Private Sub Form_Load()

Abrir "Data1.txt" para aleatorio como # 1 11Len = Len(pRec)

Para i = 0 a 4

Obtenga #1, i 1, p(i)

List1.AddItem p ( i).gName

Siguiente i

Cerrar #1

Finalizar sub

Lista de sub privada1_DblClick()

Para i = 0 a 4

Si RTrim(List1.List(i)) = RTrim(12p(i).gName) Entonces

Imagen1.Imagen = LoadPicture(p ( i).13picFile)

Salir para

Finalizar si

Siguiente

Finalizar sub

(9 ) Hay un cuadro de diálogo común llamado CD1 en el formulario. Cree un menú como se muestra en la Figura 1 a través del editor de menú. Cuando el programa se está ejecutando, si hace clic en el elemento del menú "Abrir", el archivo se abrirá. Cuando se seleccione y abra el archivo (por ejemplo: G:\VB\2010-9\in.txt), aparecerá el nombre del archivo. del archivo se agregará al menú, como se muestra en la Figura 2. Los nombres y títulos de cada elemento del menú se definen en la siguiente tabla.

El siguiente es el proceso del evento al hacer clic en el elemento del menú "Abrir". Complete los espacios en blanco.

Dim mnuCounter As Integer

Private Sub mnuOpen_Click() CD1.ShowOpen Si CD1.FileName <> "" Luego abra 14CD1.FileName Para entrada como #1 mnuCounter = mnuCounter 1 Cargar FName (mnuCounter) FName(mnuCounter).Caption = CD1.FileName FName(mnuCounter).15Visible = True End If End Sub