1. Preguntas de opción múltiple (2 puntos por cada pregunta en (1)-(20), 3 puntos por cada pregunta en (21)-(30), ***70 puntos)
(1) Hay un cuadro de texto llamado texto1 en el formulario. Una vez ejecutado el programa, se requiere que el cuadro de texto no pueda aceptar la entrada del teclado, pero pueda generar información. Las siguientes propiedades están configuradas correctamente:
a)texto 1 . maxlength = 0 B)texto 1 habilitado = flase
c)texto visible = flase D)texto 1 . ancho = 0
(2) La siguiente declaración puede mostrar "VisualBasic Form" en la barra de título de Form1.
a) Tabla 1. nombre = "formulario de Visual Basic"
b)Formulario 1 título = "Formulario de Visual Basic"
c)Formulario 1 caption = "Formulario de Visual Basic"
<. p>d)Formulario 1. text = "Visual Basic Form"(3) Dibuje un cuadro de texto llamado Texto1 en el formulario y luego dibuje una barra de desplazamiento llamada HScroll1. Las propiedades Min y Max son 0. y 100 respectivamente. Después de ejecutar el programa, si mueve la barra de desplazamiento, el valor actual de la barra de desplazamiento se mostrará en el cuadro de texto, como se muestra en la figura:
El segmento del programa que puede lograr la operación anterior es el siguiente
a) Private Sub HScroll_Change()
Text1. Texto=HScroll1. Valor
Conector final
b) Sub privado HScroll_Click()
Texto1. Texto=HScroll1. Valor
Conector final
c) Sub privado HScroll_Change()
Texto1. Texto=Desplazamiento HS. Título
d) Sub privado HScroll_Click()
Texto1. Texto=Desplazamiento HS. Título
Conector final
(4) Establezca el elemento del menú en "Abrir". Si deseas diseñar una clave de acceso para este comando de menú, es decir, al presionar Alt y la letra O, puedes ejecutar el comando "Abrir". El método para configurar el comando "Abrir" en el editor de menú es el siguiente
a) Establecer el atributo de título en; Abrir
b) Establecer el atributo de título en o; /p>
c) Establezca la propiedad Nombre en; open
d) Establezca la propiedad Nombre en o; pen
(5) Dibuje un comando llamado Comando1 en el formulario. y luego escriba el siguiente procedimiento de evento:
Subcomando privado 1_Click()
x=InputBox("Input")
Seleccione caso x
Caso 1.3
Imprimir "rama 1"
El caso es gt cuatro
Imprimir "rama 2"
Otro situaciones
Imprimir "Else rama"
Finalizar selección
Finalizar conector
Después de ejecutar el programa, si ingresa 2 en el cuadro de diálogo de entrada, luego El contenido que se muestra en el formulario es
a) Rama 1 B) Rama 2 C) Otra rama d) Error de programa.
(6) Las siguientes afirmaciones sobre MsgBox son incorrectas.
La función msgbox devuelve un número entero.
La función MsgBox se puede utilizar para configurar el tipo de iconos y botones en el cuadro de información.
La declaración msgbox no tiene valor de retorno.
El primer parámetro de la función msgbox es un número entero, que solo puede determinar el número de botones que se muestran en el cuadro de diálogo.
(7) Dibuje un control de temporizador denominado Timer1 en el formulario, que requiera que se produzca un evento de temporizador cada 0,5 segundos. Entonces la siguiente declaración de configuración de propiedad correcta es
a) Temporizador 1. Intervalo = 0,5 B) Temporizador 1. intervalo=5
Temporizador. Intervalo=50 D)Temporizador1. Intervalo=500
(8) Dibuje un botón de comando llamado Comando1 en el formulario y luego escriba el siguiente procedimiento de evento:
Subcomando privado 1_Click()
La x estática es un número entero
Cls
Para i=1 a 2
y=y x
x=x 2
p>Luego
Imprimir x, y
Conector final
Después de que se ejecute el programa, después de hacer clic en el botón Comando1 tres veces seguidas, El contenido es
a)4 2 B)12 18 C)12 30D)4 6
(9) ¿Cuál de las siguientes afirmaciones sobre programas multiformato es incorrecta?
A) El método Ocultar no solo puede ocultar el formulario, sino también borrarlo en la memoria.
b) En un programa multiformulario, los menús de cada formulario son independientes entre sí.
c) En un programa multiformulario, puede especificar el formulario de inicio según sea necesario.
d) Para programas multiformulario, cada formulario se guarda por separado.
(10) Entre las siguientes descripciones de archivos, el error es
a) Los registros en archivos secuenciales se almacenan uno por uno en secuencia.
b) La longitud de los registros en el archivo aleatorio es aleatoria.
c) El puntero del archivo se genera automáticamente después de ejecutar el comando para abrir el archivo.
D)D)La función LOF devuelve el número de bytes asignados al archivo.
(11)Cuál de las siguientes afirmaciones es incorrecta
a) El proceso de eventos es un programa que responde a eventos específicos.
b) Diferentes objetos pueden tener el mismo nombre.
c) El método de un objeto es el proceso de realizar una operación específica.
d) El nombre del evento del objeto puede ser especificado por el programador.
(12)Los siguientes son identificadores legales de Visual Basic
a) For Loop B) Const C) 9abc D) a#x
(13) Cuándo la casilla de verificación está seleccionada, el valor de su propiedad Valor es
A) 3 B) 2 C) 1 D) 0
(14)Expresión 5 Mod 3 3\5* El valor de 2 es
A) 0 B) 2 C)4 D) 6
(15) Supongamos x = 4, y = 8, z = 7, la siguiente expresión El valor es
x lty suma (no y gtz) o z ltx
A) 1 B) -1 C) verdadero D) falso
(16 ) Dibuje un botón de comando llamado Comando1 en el formulario y luego escriba el siguiente procedimiento de evento:
Subcomando privado 1_Click()
a$="VisualBasic "
Imprimir cadena (3, a$)
Conector final
Después de ejecutar el programa, haga clic en el botón de comando y el contenido que se muestra en el formulario es
a )VVV B)Vis C)sic D)11
(17) tiene el siguiente segmento de programa:
x=2
Para i=1 a 10 pasos 2
x=x i
Entonces
Después de ejecutar el programa anterior, el valor de x es
A) 26 B ) 27 C) 38 D) 57
(18) ¿Cuál de las siguientes afirmaciones es incorrecta?
a) Las pulsaciones y liberaciones del teclado no se pueden reconocer durante eventos clave.
b) La tecla Enter no se reconoce durante un evento clave.
c) Durante los eventos KeyDown y KeyUp, las entradas "A" y "A" del teclado se consideran la misma letra.
d) Durante los eventos KeyDown y KeyUp, la entrada "1" desde el teclado y la entrada "1" desde el teclado derecho se tratan como caracteres diferentes.
(19) Ejecute las siguientes dos instrucciones y el formulario mostrará
a=9.8596
Formato de impresión (a, "00, 00,00 dólares estadounidenses" )
a) $0,009.86 B) $9.86 C) $9.86 D) $0,009.86
(20) Dibuje un nombre en el formulario llamado CommandDialog1.
Cuadro de diálogo general, un botón de comando llamado Comando1. Luego escriba el siguiente procedimiento de evento:
Subcomando privado 1_Click()
CommonDialog1. Nombre de archivo = " "
CommonDialog1. Filter="Todos
Archivo|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt "
CommonDialog1. FilterIndex=2
CommonDialog1. DialogTitle="VBTest "
CommonDialog1. Acción=1
Conector final
Para este programa, las siguientes declaraciones son incorrectas
a) El cuadro de diálogo está configurado en el cuadro de diálogo "Abrir".
b) El nombre de archivo predeterminado especificado en este cuadro de diálogo está vacío.
c) El título del cuadro de diálogo es VBTest.
d) El tipo de archivo predeterminado especificado en este cuadro de diálogo es un archivo de texto (*.Txt).
(21)
Supongamos que un proyecto consta de dos formularios, sus nombres son Form1 y Form2 respectivamente. Hay un botón de comando llamado Command1 en Form1.
El código del programa de Form1 es el siguiente:
Subcomando privado 1_Click()
Atenuar a como un número entero
a=10
Llame a g(Tabla 2, a)
Conector final
Sub privado g(f representa el formulario, x representa un número entero)
y = IIf(x gt; 10, 100, -100)
f, display
f.title=y
Conector final
Ejecute el programa anterior, correcto El resultado es
a) El valor del atributo de título del formulario 1 es 100b) El valor del atributo de título del formulario 2 es -100.
c) El valor del atributo de título del formulario 1 es -100 d) El valor del atributo de título del formulario 2 es 100.
(22) Dibuje un botón de comando llamado Comando1 en el formulario y escriba el siguiente programa:
Subcomando privado 1_Click()
Marcar x Llamar a f1( x, y)
para un número entero
y estático
x=10
y=5
p>
Imprimir x, y
Conector final
Private Sub f1 (ByRef x1 es un número entero, y1 es un número entero)
x1=x1 2
y1=y1 2
Conector final
Después de ejecutar el programa, haga clic en el botón de comando y el contenido que se muestra en el formulario es
a) 10 5 B)12 5 C)10 7D)12 7
(23) Existen los siguientes procedimientos
Opción base 1
Subcomando privado 1_Click()
Representar a(10) como una dimensión entera
Representar n como un número entero
N=InputBox("Datos de entrada")
Si n lt entonces 10
Llamar a GetArray(a, n)
Finalizará si...
Finalizar conector
Private Sub GetArray(b() es un número entero, n es un número entero)
Dim c(10) es un número entero
j=0
Para i=1 a n
b(i)=CInt(Rnd()*100)
Si b(i)/2=b(i)\2 entonces
j= j 1
c(j)=b(i)
Terminará si...
Entonces
Imprimir j
Conector final
Las siguientes afirmaciones son incorrectas
a) Los números pares en la matriz b se almacenan en la matriz c.
b) Después de ejecutar el programa, el número de elementos de la matriz C se muestra en el formulario.
El parámetro n del proceso getarray se pasa por valor.
d) Si los datos de entrada son mayores a 10, no se mostrará nada en el formulario.
(24) Dibuje un botón de comando llamado Comando1 en el formulario y luego escriba el siguiente procedimiento de evento:
Opción básica 1
Subcomando privado 1_Click()
dim
a=array(1, 2, 3, 4, 5)
Para i=1 a UBound(a)
a(i) = a(i) i-1
Luego
imprime un(3)
Conector final
Después de que se ejecute el programa, haga clic en el botón de comando y el contenido que se muestra en el formulario es
4 B) 5 C) 6 D)7
(25) Programa de lectura
p>Conceptos básicos de la opción 1
Private Subform_Click()
Dim Sum, Dim Sum
Suma = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
Para i=1 a 10
Si arr(i) /3 = arr(i)\3, entonces
Suma =Suma arr(i)
Si... terminará
Siguiente yo
Imprimir la suma
Conector final
Después de ejecutar el programa, haga clic en el formulario y el resultado de entrada es
a)13 B)14 C )27D)15
(26) Dibuje un cuadro de lista de archivos llamado Archivo1 en el formulario y escriba el siguiente programa:
Subarchivo privado 1_DblClick()
x= Shell(file1.filename,1)
Conector final
En la descripción del programa a continuación, el error es
A) x no tiene datos reales función, por lo que esta declaración se puede escribir como: llamar al shell (archivo 1, nombre de archivo, 1).
b) Haga doble clic en el archivo en el cuadro de lista de archivos, lo que activará el proceso del evento.
c) El nombre del archivo a ejecutar lo especifica Archivo1. Nombre de archivo
D)Archivo1 muestra los archivos en la unidad y el directorio actuales.
(27)
Dibuje una etiqueta denominada Etiqueta1 y titulada "Examen VisualBasic" en el formulario, con dos etiquetas denominadas Comando1 y Comando2, tituladas botones de comando "Iniciar" y "Detener". y luego dibuje un control de temporizador llamado Timer1 y establezca su propiedad Interval en 500, como se muestra en la figura.
Escribe el siguiente programa:
Private subform_Load()
Temporizador 1. enable=false
Conector final
Subcomando privado1_Click()
Temporizador1. enable = true
Conector final
Subtimer1_Timer() privado
si Label1. ¿Qué pasa con el ancho lt izquierdo?
Etiqueta1. izquierda = Etiqueta1. 20 grados a la izquierda
Otro
Etiqueta1. Left=0
Terminará si...
Conector final
Después de que se ejecute el programa, haga clic en el botón "Inicio" y la etiqueta se moverá hacia adentro. la forma.
Para este programa, las siguientes afirmaciones son incorrectas
a) La dirección de movimiento de la etiqueta es de derecha a izquierda.
b) Haga clic en el botón "Detener", luego haga clic en el botón "Iniciar" y la etiqueta continuará moviéndose desde la posición de parada.
c) Cuando todas las etiquetas se saquen del formulario, aparecerán desde el otro extremo del formulario y se moverán nuevamente.
d) Las etiquetas se mueven a intervalos específicos.
(28) Ejecute el siguiente segmento del programa
a$="abbacddcba "
Para el segundo paso de i=6 a 2
X=Medio(a,I,I)
y =Izquierda(a,I)
z =Derecha(a,I)
z = UCase(X amp; Y ampz)
A continuación,
imprimo z
El resultado de salida es
A)ABA B) BBABBA C)ABBABA D)AABAAB
(29) Dibuje un botón de comando llamado Comando1 en el formulario y luego escriba el siguiente programa:
Opción básica 1
Subcomando privado 1_Click()
Atenuar a como variante
a = array(1, 2, 3, 4, 5)
suma = 0
Para i=1 a 5
suma = suma a(i)
Siguiente i
x = suma /5
Para i =1 a 5
Si a(i)>x entonces imprime a(I);
Siguiente i
Conector final
Después de ejecutar el programa, haga clic en el botón de comando y el contenido que se muestra en el formulario es
A) 1 2 B) 1 2 3 C) 3 4 5 D) 4 5
(30) Supongamos que un proyecto consta de un archivo de formulario Form1 y dos archivos de módulo estándar Model1 y Model2.
El código para el modelo 1 es el siguiente:
X pública en forma entera
Y pública en forma entera
Sub S1( )
x =1
S2
Conector terminal
Islas S2
y=10
Formulario 1. Mostrar
Finalizar el espectáculo
El código del Modelo 2 es el siguiente:
Subdirector()
S1
End Sub
Donde Sub Main está configurado para iniciar el proceso. Una vez ejecutado el programa, la secuencia de ejecución de cada módulo es la siguiente
a) Tabla 1->Modelo 1->Modelo 2
b) Modelo 1->Modelo 2; ->Formulario 1
c) Modelo 2->Modelo 1->; Formulario 1
d) Modelo 2->modelo 1->; > 2. Complete los espacios en blanco (2 puntos por cada espacio en blanco, ***30 puntos)
Escriba la respuesta correcta en cada espacio en blanco de la línea del número de serie 1 ~ 15 en la hoja de respuestas. La respuesta no se calificará en el examen.
(1) tiene el siguiente segmento de programa:
a$= "Beijing Shanghai"
b$=Mid(a$,InStr(a$, " g)) 1
Después de ejecutar el segmento de programa anterior, el valor de la variable b$ es __1__
(2) El resultado de salida del siguiente segmento de programa es _ _ ^ 2 _ _
num =0
Mientras num lt=2
num = num 1
línea
(3)
El formulario tiene un cuadro de lista llamado Lista1, un cuadro de texto llamado Texto1, una etiqueta llamada Etiqueta1 y un nombre llamado Comando1. Es el botón de comando de "Cálculo". Después de ejecutar el programa, los números entre 1 y 100 que son divisibles por 7 se agregarán al cuadro de lista. Si hace clic en el botón de cálculo, los números en Lista1 se acumularán y se mostrará el resultado del cálculo. En el cuadro de texto, como se muestra a continuación, se encuentra el programa que implementa la función anterior. Complete los espacios en blanco.
Subform_Load() privado
Para i=1 a 100
Si modifico 7 =0, entonces
_3___
Terminará si...
Entonces
Finalizar conector
Subcomando privado 1_Click()
suma=0
Para i=0 a __4___
suma=sum__5_____
Entonces
Texto1. text = suma
Conector final
(4)
La función de este programa es utilizar una función de números aleatorios para simular el lanzamiento de una moneda. El método consiste en generar aleatoriamente un número entero de 0 o 1 a la vez, lo que equivale a lanzar una moneda al aire, donde 1 representa cara y 0 representa cruz. Hay tres cuadros de texto en el formulario, denominados Texto1, Texto2 y Texto3, que se utilizan para mostrar el número total de monedas ingresadas por el usuario, el número de caras y el número de cruces, como se muestra en la figura. Después de que se ejecute el programa, ingrese el número total de veces en el cuadro de texto Texto1 y luego haga clic en el botón "Iniciar" para simular un lanzamiento de moneda según el número de veces ingresado, cuente el número de caras y cruces y muestre los resultados. . A continuación se muestra el programa que implementa la funcionalidad anterior. Por favor complete los espacios en blanco.
Subcomando privado 1_Click()
Irregularizar
n=CInt(Text1.Text)
n1=0
n2=0
Para i=1 a __6__
r=Int(Rnd*2)
Si r = _ _ _ 7 _ _ _ _, entonces
n1=n1 1
Otros
n2=n2 1
Si... terminará
Entonces
Envía un mensaje de texto a 2. Texto=n1
SMS 3. Texto=n2
Conector final
(5)Programa de lectura:
Opción básica 1
Subformulario privado_Click( )
Atenuar a(3) como un número entero
Imprimir "Los datos de entrada son:";
Para i=1 a 3
A(i )=InputBox("Datos de entrada")
Imprimir un(uno);
Luego
Imprimir
Si un(1) lt; respuesta (2) entonces
t=a(1)
a(1)=a(2)
a (2)= _ _ 8 _ _ _
Terminará si...
Si a(2)>respuesta (3) entonces
m=a (2)
ElseIf a(1)>Respuesta (3) Entonces
m=___9___
Otros
m=__10___
Terminará si...
El número impreso en el medio "es:" m
Conector final
Después de que se ejecute el programa, haga clic en en el formulario, ingrese tres números enteros en el cuadro de diálogo de entrada y el programa generará el número del medio de los tres números, como se muestra en la figura. Por favor complete los espacios en blanco.
(6)
Dibuje un botón de comando llamado "Comando1" y titulado "Cálculo" en el formulario, y dibuje siete etiquetas, cinco de las cuales forman un nombre. Es la matriz de control. de Etiqueta1; la etiqueta denominada Etiqueta2 se utiliza para mostrar los resultados del cálculo y el valor inicial de su propiedad Título está vacío; el título de la Etiqueta 3 es "Resultados del cálculo". Cuando ejecute el programa, se generarán automáticamente cinco números aleatorios y se mostrarán en cada etiqueta de la matriz de control de etiquetas, como se muestra en la figura. Haga clic en el botón "Calcular" para acumular el valor de cada elemento en la matriz de etiquetas y el resultado del cálculo se mostrará en Etiqueta2. Por favor complete los espacios en blanco.
Subcomando privado 1_Click()
Suma = 0
Para i=0 a 4
Suma=Suma __11__
Entonces
_ _ _ 12 _ _ = suma
Conector final
(7) Dibuje dos botones de comando en el formulario, nombre Son Comando1 y Command2 respectivamente, y los títulos son Inicialización y Suma respectivamente. Después de ejecutar el programa, si hace clic en el botón de comando "Inicialización", se asignará un valor a cada elemento de la matriz A; si hace clic en el botón de comando "Suma", se puede encontrar la suma de los elementos de la matriz A; aparece en el cuadro de texto, como se muestra en la figura. Por favor complete los espacios en blanco.
Conceptos básicos de la opción 1
Dim a(3, 2) es un número entero
Subcomando privado 1_Click()
Para i= 1 a 3
Para j=1 a 2
__13__=i j
Siguiente j
Conector final
Subcomando privado 2_Click()
Para j=1 a 3
Para i=1 a 2
s=s __14__
Siguiente yo
Siguiente j
Texto1. Text= __15__
Conectores finales
Hay demasiados problemas para enumerarlos todos. Este es un sitio web para ti:
/book2824550/