Preguntas del examen escrito VB del examen nacional de grado en informática de abril de 2008

(28) El siguiente programa tiene un bucle infinito durante la depuración

Private Sub Command1_Click()

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

Hacer

Si n Mod 2=0 Entonces

n=n 1

Si no

n=n 2

Else If

Loop Until n=1000

End Sub

¿Cuál de las siguientes afirmaciones sobre bucles infinitos es correcta?

p>

A) Un bucle infinito ocurrirá solo cuando la entrada n sea un número par, de lo contrario no será así

B) Un bucle infinito ocurrirá solo cuando la entrada n es un número impar, de lo contrario no lo será

p>

C) Un bucle infinito solo ocurrirá si la entrada n es un número entero mayor que 1000, de lo contrario no lo será

D) Se producirá un bucle infinito si se ingresa cualquier número entero

（ 29) Hay un cuadro de diálogo común llamado CommonDialog1 y un botón de comando llamado Command1 en el formulario, así como algunos otros controles. Es necesario que cuando el programa se esté ejecutando, haga clic en el botón Comando1 para mostrar el cuadro de diálogo Abrir archivo y, después de seleccionar o ingresar un nombre de archivo, se podrá abrir el archivo.

Los siguientes son dos algoritmos para el proceso del evento Command1_Click

Algoritmo 1:

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Abrir CommonDialog1 .FileName para entrada como#1

End Sub

Algoritmo 2:

Sub comando privado1_Click()

CommonDialog1.ShowOpen

p>

IfCommonDialog1.FileNamelt;gt;""Entonces

Abra CommonDialog1.FileName para la entrada como#1

Fin

End Sub

p>

La siguiente descripción de estos dos algoritmos es correcta

A) Si no se selecciona ni ingresa ningún nombre de archivo después de que se muestra el cuadro de diálogo de apertura del archivo , el algoritmo 2 cometerá un error y el algoritmo 1 no. Sí

B) Si no se selecciona ni ingresa ningún nombre de archivo después de que se muestra el cuadro de diálogo de apertura del archivo, el algoritmo 1 cometerá un error, pero el algoritmo. 2 no

C) Los resultados de ejecución de los dos algoritmos son exactamente iguales

D) El algoritmo 1 permite que el nombre del archivo de entrada contenga espacios, pero el algoritmo 2 no lo permite

(30) Hay un cuadro de lista llamado Lista en el formulario. Se han ingresado varios elementos (como se muestra en la imagen): también hay 2 cuadros de texto llamados Texto1 y Texto2, 1 botón de comando llamado Comando1. y los siguientes programas

Private Sub Command1_Click()

Dim str As String, s As String, k As Integer

s=Text1

Str=””

Para k=List1.ListCount-1 a 0 Paso-1

Si InStr(List.List(k), s)gt; /p>

str=stramp; List.List (k)amp;”

Fin

Siguiente k

If str=""Entonces

Text2="No hay proyecto coincidente"

Else

Text2=str

Fin si

End Sub

Cuando el programa se esté ejecutando, ingrese "京" en Texto1 y haga clic en el botón de comando, el contenido que se muestra en Texto2 es

A) JingB) Beijing Nanjing

C) NanjingD) No hay proyecto coincidente

(31) Dibuje un botón de comando llamado Command1 en el formulario y escriba el siguiente programa

Private Sub Command1_Click()

Imprimir diversión ("ABCDEFG")

End Sub

Función divertida(st As String) As String

stlen=Len(st)

temp=””

Para k=1 A stlen/2

temp=temp Mid(st, k, 1)

Mid(st, stlen-k 1, 1)

Next k

fun=temp

Función final

Cuando el programa está corriendo, haga clic en el botón de comando y lo que se muestra en el formulario es

A)ABCDEFG B)AGBFCE C)GFEDCBA D)AGBFCED

(32) Haga 2 dibujos en el formulario uno tras otro Los cuadros se denominan Picture1 y banana respectivamente. Se agrega una imagen de banana a banana (consulte la Figura 1) y la propiedad banana.DragMode se establece en 1. Cuando sea necesario ejecutar el programa, puede usar el mouse para arrastrar el plátano a la Imagen 1 (consulte la Figura 2).

El proceso de evento que puede realizar esta función es

Figura 1 Figura 2

A) Priate Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

banana.Mover imagen1.Izquierda X, Imagen1.Arriba Y)

End Sub

B)Private Sub banana _DragDrop(Fuente como control, X como único, Y como único)

Fuente.Mover imagen1.Izquierda X.Imagen1.Arriba Y

Fin Sub

C) B)Subimagen privada1_Arrastrar y soltar(Fuente como control, X como único , Y como simple)

Fuente.Mover imagen1.Izquierda X.Imagen1.Arriba Y

End Sub

D) B)Subimagen privada1_Arrastrar y soltar (Fuente como Control, X como único, Y como único)

banana.Move banana.Left X, banana.Top Y

End Sub

(33) en el formulario Dibuje un botón de comando llamado Comando1 y luego escriba el siguiente proceso de evento

Opción Base 1

Pribate Sub Command1_Click()

Dim a(5, 5 ) Como entero

Para i=1 a 5

Para j=1 a 5

a(i, j)=(i j)*5\ 10

Siguiente j

Siguiente i

s=0

Para i=1 a 5

s = s a(i, i)

Siguiente i

Imprimir s

End Sub

Después de que se ejecute el programa, haga clic en el botón de comando, El resultado de salida es

A) 15 B)13 C)11 D)9

(34) Hay dos cuadros de texto, Texto1 y Texto2, de izquierda a derecha en el formulario. (ver Figura), se requiere que cuando el programa se esté ejecutando, ingrese una puntuación en Texto1 y presione la tecla Enter para determinar la legalidad de la puntuación. Si la puntuación es un número entre 0 y 100, el cursor circundante se moverá a. Texto2; de lo contrario, el cursor no aparecerá. Aparece un cuadro de diálogo que muestra "puntuación incorrecta". La correcta en el siguiente programa es

A)Subtexto privado1__KeyPress(KeyAscii AS Integer)

a=Val(Text1)

Si agt;=0 o alt;=100 Entonces

Text2.SetFocus

Más

Text1.SetFocus: M

sgBox("Puntuación incorrecta")

Fin si

Fin si

End Sub

B) Subtexto privado1__KeyPress(KeyAscii AS Integer )

If KeyAscii=13 Then 'El código ACSII del carácter de retorno de carro es 13

a=Val(Text1)

If agt;=0 And alt; =100 Entonces

Text1.SetFocus

Else

Text2.SetFocus: MsgBox("Puntuación incorrecta")

Finalizar si

Fin si

End Sub

C) Subtexto privado1__KeyPress(KeyAscii AS Integer)

Si KeyAscii=13 Entonces ' Ingrese El código ACSII es 13

a=Val(Text1)

Si alt 0 Y agt 100 Entonces

Text2.SetFocus

Else

Text1.SetFocus: MsgBox("Puntuación incorrecta")

Fin si

Fin si

End Sub

D) Subtexto privado1__KeyPress(KeyAscii AS Integer)

Si KeyAscii=13 Entonces 'El código ACSII del carácter de retorno de carro es 13

a=Val(Texto1 )

Si agt;=0 Y alt;=100 Entonces

Text2.SetFocus

De lo contrario

Text1.SetFocus: MsgBox( "Puntuación incorrecta" )

End If

End If

End Sub

(35) Dibuje 2 botones de comando en el formulario, nombrados respectivamente Para Comando1 y Comando2, escriba el siguiente programa

Const n=5, m=4

Dim a(m, n)

Private Sub Command1_Click ()

K=1

Para i=1 A m

Para j=1 A n

a(i,j )= k

k=k 1

Siguiente j

Siguiente i

End Sub

Sub privado Command2_Click( )

Summ=0

Para i=1 To m

Para j=1 To n

Si i=1 O i =m Entonces

Summ=summ a(i, j)

De lo contrario

Si j=1 O j=n Entonces

Suma=suma a(

i, j)

Finalizar si

Finalizar si

Siguiente j

Siguiente i

Imprimir suma

End Sub

La función del procedimiento Command1_Click() es almacenar una matriz de m filas yn columnas en la matriz bidimensional a; es

A) Calcular la suma acumulada de los elementos en el círculo exterior de la matriz

B) Calcular la suma acumulada de todos los elementos de la matriz excepto un círculo

C) Calcular la primera y última columna de la matriz La suma acumulada de elementos

D) Calcular la suma acumulada de los elementos en la primera y última fila de la matriz

2 Preguntas para completar los espacios en blanco (2 puntos por cada espacio en blanco, ***30 puntos)

p>

Escriba la respuesta correcta para cada espacio en blanco en la línea horizontal numerada 1. hasta 15 en la hoja de respuestas y respóndala en el examen. No se otorgarán puntos si lo responde en el examen.

(1) En un árbol binario completo con una profundidad de 7, el número de nodos con grado 2 es ___1___.

(2) Las pruebas de software se dividen en pruebas de caja blanca (caja) y pruebas de caja negra (caja). El método de división de clases de equivalencia pertenece a las pruebas ____2___.

(3) En el sistema de base de datos, el software central que implementa varias funciones de gestión de datos se denomina sistema de gestión de bases de datos___3______

(4) El ciclo de vida del software se puede dividir en varias etapas. , generalmente dividido en fase de definición, fase de desarrollo y fase de mantenimiento. La codificación y las pruebas pertenecen a la etapa __4__.

(5) En el diagrama de flujo de datos (DFD) utilizado en el análisis estructurado, utilice __5___ para explicar con precisión los elementos gráficos.

(6) La función del siguiente programa es ingresar un número entero m mayor que 100 desde el teclado, calcular y generar el n más grande que satisfaga la desigualdad. Complete los espacios en blanco

Private Sub Command1__Click()

Dim s, m, n AS Integer

m=Val(InputBox("Ingrese un número entero mayor que 100 ”))

n= _____6______

s=0

Hacer mientras slt；m

N=n 1

S=s n*n

Bucle

Imprimir "El n más grande que satisface la desigualdad es": ____7______

End Sub

(7) La función del siguiente programa es eliminar caracteres repetidos del archivo file1.txt (es decir, si hay varios caracteres iguales, solo se conservará uno) y escribirlo en el archivo archivo2.txt. Por favor complete los espacios en blanco.

Subcomando privado1__Click()

Dim inchar AS String, temp AS String, outchar AS String

Outchar=” ”

Abrir =”file1.txt” para entrada AS #1

Open=”file2.txt” para salida AS ___8____

n=LOF( __9____ )

inchar =Entrada$(n, 1)

For k=1 To n

temp=Mid(inchar, k, 1)

Si InStr(outchar, temp)= ___10____ Entonces

outchar=outchar temp

Finalizar si

Siguiente k

imprimir #2, ____11_____

cerrar #2

cerrar #1

End Sub

(8) Primero dibuje un texto llamado Texto1 en el formulario Dibuje un cuadro y una etiqueta llamada Label1 y dibuje otra llamada OP1 con una matriz de 4 botones de opción, cuya propiedad Index es 0∽3 en orden trimestral (consulte la Figura 1). En el archivo sales.txt, el volumen de ventas de una empresa durante 12 meses de un año determinado se almacena en orden mensual. Se requiere que cuando se ejecuta el programa, el mouse haga clic en un botón de opción, el volumen total de ventas del trimestre correspondiente se muestre en Texto1 y el texto correspondiente se muestre en la etiqueta. La Figura 2 es el resultado de hacer clic en el botón de opción "Q3". Por favor complete los espacios en blanco.

Ventas atenuadas(12) siempre que

Subformulario privado__Load()

Abra "sales.txt" para la entrada AS n.º 1

Para k=1 a 12

Ingrese #1, ventas(k)

Siguiente k

Cierre #1

End Sub

Private Sub ___12______ (Índice, AS Integer)

Dim sum AS Long, k AS Ingeger, mes AS Ingeger

sum=0

mes=Índice* ____13_____

Para k=1 a 3

mes=mes 1

suma=suma ventas(mes)

Siguiente k

Label1.Caption=Opl(Index). ______14______ amp "Ventas totales:"

Text1=sum

End Sub

(9) Alguien escribe la siguiente función para determinar si a es un número primo. Si es así, la función devuelve Verdadero; de lo contrario, devuelve Falso

Función Prime(a As Integer)AS Boolean;

Dim k Como entero, isprime AS Booleano

Si alt 2 Entonces

isprime=False

Else

isprime=True

k=2

Hacer mientras klt;a/2 e isprime

Si un Mod k=0 Entonces

isprime=False

Else

k=k 1

Fin SI

BUCLE

Fin Si

prime=isprime

Función final

Durante la prueba, se descubrió que un número no primo también se juzgaba como un número primo. El número era ___15____.