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) p>
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 p>
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> 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 p> isprime= True k=2