Red de conocimiento del abogados - Bufete de abogados - Preguntas del examen escrito VB del examen nacional de grado en informática de abril de 2008

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?

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

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

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

D) Un número infinito se producirá un bucle 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.FileName<>””Entonces

Abrir CommonDialog1.FileName para la entrada como#1

Finalizar si

End Sub

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 para abrir el archivo, el algoritmo 2 realizará una error y el algoritmo 1 no lo hará.

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

C) Los resultados de ejecución de los dos algoritmos son completamente 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, en el que 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 el siguiente programa

Subcomando privado1_Click ()

Dim str como cadena, s como cadena, k como entero

s=Text1

Str=" ”

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

Si InStr(List.List(k),s)>0 entonces

str=str&List.List(k)& ”

Finalizar si

Siguiente k

Si str=""Entonces

Texto2= "No hay elementos coincidentes"

p>

Else

Text2=str

End If

End Sub

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

A) Beijing B) Beijing Nanjing

C) Nanjing D) No elementos coincidentes

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

Private Sub Command1_Click()

Print fun("ABCDEFG ")

End Sub

Función fun(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)

Siguiente k

fun=temp

Función final

Cuando el programa se esté ejecutando, haga clic en el botón de comando, la ventana

Lo que se muestra en el formulario es

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

(32) Dibuje 2 cuadros de imágenes en el formulario, llamados Imagen1 y las imágenes de plátano son se agrega a banana,banana (ver 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)Sub banana privada _DragDrop(Fuente como control,X como único,Y como Sencillo)

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

End Sub

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

Fuente.Mover imagen1.Izquierda+X.Imagen1.Top+Y

End Sub

D) B) Subimagen privada1_DragDrop(Fuente como control,X como único,Y como único)

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

End Sub

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

Option 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 y el resultado de salida es

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

(34) De izquierda a derecha el formulario Hay dos cuadros de texto, Texto1 y Texto2, a la derecha (ver imagen Cuando el programa se esté ejecutando, ingrese una puntuación en Texto1 y presione la tecla Intro para determinar la legalidad de la puntuación si la puntuación es 1 entre). 0 y 100, el cursor circundante se mueve a Texto2; de lo contrario, el cursor no se mueve y aparece un cuadro de diálogo que muestra "puntuación incorrecta". La correcta en el siguiente programa es

A)Private Sub. Text1__KeyPress(KeyAscii AS Integer)

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

a=Val(Text1)

Si a>=0 o a<=100 Entonces

Text2.SetFocus

Si no

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

Finalizar si

Finalizar si

End Sub

B) Subtexto privado1__KeyPress(K

eyAscii AS Integer)

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

a=Val(Text1)

Si a> =0 Y un<=100 Entonces

Text1.SetFocus

Else

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

Finalizar si

Finalizar si

End Sub

C) Subtexto privado1__KeyPress(KeyAscii AS Integer)

Si KeyAscii=13 Entonces 'Return El código ACSII del símbolo del auto es 13

a=Val(Text1)

If a<0 And a>100 Then

Text2.SetFocus

Else

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

Finalizar si

Finalizar si

End Sub

D) Private Sub Text1__KeyPress(KeyAscii AS Integer)

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

a=Val(Text1)

Si a>=0 y a<=100 Entonces

Text2.SetFocus

Si no

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

End If

End If

End Sub

(35) Comando Dibujar 2 botones del formulario, denominados Comando1 y Comando2 respectivamente, y escribe los siguientes programas

Const n=5,m=4

Dim a(m,n)

Subcomando privado1_Click()

K=1

Para i=1 To m

Para j=1 To n

a(i, j)=k

k=k+1

Siguiente j

Siguiente i

End Sub

Private Sub 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

p>

Summ=summ+a(i,j)

Fin si

Fin si

Siguiente j

Siguiente i

Imprimir suma

End Sub

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

A) Calcular matriz

La suma acumulada de los elementos en el círculo exterior

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

C) Calcular la suma acumulada de los elementos en el primera y última columnas de la matriz

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

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

Escriba la respuesta correcta para cada espacio en blanco en la línea horizontal numerada del 1 al 15 en la hoja de respuestas y respóndala en el examen. Se otorgará 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 s

N=n+1

S=s+n*n

Bucle

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

Fin 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 escribir en el archivo file2.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 cuadro de texto llamado Texto1 en el formulario Cree una etiqueta llamada Label1 y dibuje otro llamado 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 en 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

Entrada #1, ventas(k)

Siguiente k

Cerrar #1

End Sub

Private Sub ___12______ (Índice, AS Integer)

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

suma=0

mes=Índice* ____13_____

Para k=1 a 3

mes=mes+1

suma=suma+ventas(mes)

Siguiente k

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

Text1=sum

End Sub p>

(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 Booleano

Dim k Como entero,isprime AS Booleano

Si a<2 Entonces

isprime=False

De lo contrario

isprime= True

k=2

Hacer mientras k

Si un Mod k=0 Entonces

isprime= False

Else

k=k+1

Fin IF

BUCLE

End If

prime=isprime

End Function

Durante la prueba, se descubrió que un número no primo también se juzgaba como un número primo. Este número calculado erróneamente fue ___15____.