Preguntas de alta puntuación para hermanos sobre programación en VB
1. Abra el archivo de formulario Form1.frm en el subdirectorio VBTEST, modifique el programa que contiene y habilite la salida de los siguientes gráficos:
*
* *
* * *
* * * *
* * * * *
* * * * * *
El programa es el siguiente:
Subcomando privado1_Click()
Para i=1 a ____
Para j=1 a ____
Imprimir_____
Siguiente j
Imprimir
Siguiente i
Fin Sub
2. Funciones de los siguientes programas Es ingresar un número aleatoriamente desde el teclado, juzgar si el número es positivo, negativo o cero y generar el resultado del juicio.
Hay tres errores en el programa. Abra el archivo de formulario Form2.frm en el subdirectorio VBTEST para depurarlo y corregirlo.
El programa es el siguiente:
Private Sub Command1_Click()
Atenuar a como único
Atenuar py como cadena
a=Val(Text1)
Si a>0 Entonces py="número positivo"
Si a=0 Entonces py="cero"
Si a<=0 Entonces py="Número negativo"
Label3.Caption=a
End Sub
3 Abra el archivo de formulario Form3 en. el subdirectorio VBTEST .frm, modifique el programa y habilite la salida:
El valor de 1-2+3-4+5-6+...+99-100
El El programa es el siguiente:
p>Subcomando privado1_Click()
s=_____
Para i=1 a _____
s =s+(-1)^(______ )*i
Siguiente i
Imprimir s
Fin Sub
4. archivo de formulario Form4 en el subdirectorio VBTEST frm. Se sabe que los coeficientes de los términos cuadráticos, los coeficientes de los términos lineales y los términos constantes de la ecuación cuadrática son a, b y c respectivamente, donde a no es igual a 0. Modifica el programa para encontrar las raíces de la ecuación.
Requisito: si la ecuación no tiene raíces reales, genere "sin raíces reales", de lo contrario genere dos raíces reales.
Subcomando privado1_Click()
Atenuar a,b,c,d como único
Atenuar x1,x2 como único
a =Val(Texto1.Texto)
b=Val(Texto2.Texto)
c=Val(Texto3.Texto)
d=b^2- 4*a*c
Si d________ Entonces
x1=(-b+Sqr(d))/(2*a)
x2=(- b-Sqr(d))/(2*a)
Etiqueta1.Caption=x1
Etiqueta2.Caption=x2
_______
Label3.Caption=______
End If
End Sub
5. El siguiente programa es para encontrar cuando r=2, JI=3.14, x = -3, el valor de y=1.2 álgebra r*r*JI+[(64-6y)+3x]/5
, hay tres errores en el programa,
Abra VBTEXT. El archivo de formulario Form5.frm en el subdirectorio está depurado y corregido.
Subcomando privado1_Click()
Atenuar como único
r=2:pi=3.14:x=-3:y=1.2
a1=r*r*JI
a2=(64-6 años)+3*x
a3=a2/5
Imprimir a1+ a2 +a3
End Sub
6. El siguiente programa es para encontrar el valor de 7 (7!=1*2*3...*6*7), y La ventana predeterminada genera este valor. Hay
tres errores en el programa. Abra el archivo de formulario Form6.frm
en el subdirectorio VBTEST para depurarlos y corregirlos.
Subcomando privado1_Click()
Atenuar a como único
a=0
Para i=1 a n
a=a*i
Siguiente i
Imprimir i
Fin Sub
7. 100 Dentro de los números impares y el valor de s (S=1+3+5+7...+99). Hay tres errores en el programa.
Abra el archivo de formulario Form7.frm en el subdirectorio VBTEST
para depurarlo y corregirlo.
Subcomando privado1_Click()
Atenuar s como único
Atenuar i como único
s=1
Para i=1 a 100 Paso 1
s=s*i
Siguiente i
Imprimir s
End Sub
8. El siguiente programa genera "aprobado" cuando la puntuación de la prueba de entrada no es inferior a 60 puntos; de lo contrario, genera "reprobado"
. Hay dos errores en el programa.
Abra el archivo de formulario Form8.frm en el subdirectorio VBTEST para depurarlo y corregirlo.
Subcomando privado1_Click()
Atenuar cj como entero
Atenuar py como cadena
cj=Val(Text1.Text)
Si cj>60 entonces
py="pass"
De lo contrario
py="fail"
End If
label3.Caption=py
End Sub
9. Abra el archivo de formulario Form9.frm en el subdirectorio VBTEST y mejore el programa, habilítelo. la salida de los siguientes gráficos.
--* * * * * *
----* * * * * *
------* * * * * *
--------* * * * * *
----------* * * * * *
----------------* * * * * *
---indica un espacio
El procedimiento es el siguiente:
Subcomando privado1_Click()
Para i=1 a 6
Imprimir pestaña(______);
Para j=1 a_______
Imprimir_______
Siguiente j
Imprimir
Siguiente i
Fin Sub
10. Abra el archivo de formulario del subdirectorio VBTEST Form10.frm y modifique el siguiente programa para que el resultado después de ejecutarlo sea el siguiente
Resultado:
Zhang Dafu, hombre, 39 años
Subcomando privado1_Click()
Atenuar xm,xb,nl como cadena
xm=Zhang Dafu xb="Hombre":nl="39 años"
Imprimir xm
Imprimir xb
Imprimir nl
Imprimir "año"
Fin Sub
11. Abra el archivo de formulario del subdirectorio VBTEST Form2.frm y complete el código del programa escrito en el evento Click del botón "Calcular".
Reemplace la "Constante" y la "Variable 1" en el segmento de código. " y "Variable 2" se reemplazan con los valores constantes y nombres de variables correctos respectivamente (otros
otros no se mueven), de modo que cuando
el mouse hace clic en el botón de comando "Calcular". El valor de 1+2+3+...+99+100 se muestra en el formulario.
El código de comando es el siguiente:
Private Sub Command1_Click()
s=constant
Para i=1 a 100 pasos 1
p>s=s+Variable 1
Siguiente i
Imprimir variable 2
Fin Sub
12. Abra el archivo de formulario VBTEST Form3.frm en el subdirectorio, complete el código del programa escrito en el evento Click del botón "Calcular",
reemplace la "constante" en el segmento de código, "operador". y "variable" se reemplazan con el valor constante, operador y nombre de variable correctos respectivamente
de modo que cuando
el mouse hace clic en el botón de comando "Calcular", ¡el valor es 10!( 10!=1*2*3*...*10) se muestra en el formulario.
El código de comando es el siguiente:
Private Sub Command1_Click()
s=constant
For i=1 To 10
s=s operador i
Siguiente i
Imprimir variable
End Sub
13. subdirectorio Archivo de formulario Form4.frm bajo el botón "Ejecutar", complete el código del programa escrito bajo el evento Click del botón "Ejecutar",
reemplace las "constantes" y " Reemplace "Variable" y "Expresión " con el valor constante correcto, el nombre de la variable y la expresión específica respectivamente.
De modo que cuando el mouse hace clic en el botón de comando "Ejecutar", muestra el valor más grande de x que satisface la condición 2+4+6+ ...+x<80.
El código de comando es el siguiente:
Private Sub Command1_Click()
s=0
x=0
Hacer
x=x+constante
s=s+variable
Bucle hasta s>=80
Imprimir expresión
End Sub
14. Abra el archivo de formulario Form5.frm en el subdirectorio VBTEST, cree un botón Comando
1 en la posición apropiada del formulario. y luego escriba el código,
De modo que cuando el mouse haga clic en el botón de comando Comando1, el texto de la etiqueta "Etiqueta1" en el formulario cambie a "Información de la provincia de Jiangsu
Examen de nivel técnico" .
15. Abra el archivo de formulario Form10.frm en el subdirectorio VBTEST, mejore el programa y reemplace las "constantes",
"operadores relacionales",
La "Declaración" y la "Variable" se reemplazan con valores constantes correctos, operadores relacionales, declaraciones y nombres de variables respectivamente, de modo que cuando se hace clic en el botón "Salida"
La La pantalla muestra que el resultado de ejecución del programa es: 20-10=10
El código del programa es el siguiente:
Private Sub Command1_Click()
a =10
b=constante
si es un operador relacional b Entonces
Imprimir a;"-";b;"=";a-b
Declaración
Imprimir variable;"-";a;"=";10
End If
End Sub
Respuesta:
p>
1. 6 i "*";
2. Se cambia Val(Text1) a Val(Text1.Text) a < =0. a < 0 Label3.Caption =
a se cambia a Label3.Caption = py
3, 0 100 i + 1
4, > 0 De lo contrario "Sin raíces reales"
5. JI se cambia a pi 6y se cambia a 6 * y a1 + a2+ a3 se cambia a a1+a3
6 se cambia a = 0. a a = 1 n se cambia a 7 Imprimir i se cambia a Imprimir a
p>7 Cambie s = 1 a s = 0. El paso 1 se cambia al Paso 2. s = s * i es. cambiado a s = s + i
8. cj > 60 se cambia a cj >= 60 Otro error, encuéntrelo usted mismo
9.
10.
Subcomando privado1_Click()
Atenuar xm, xb, nl como cadena
xm = "Zhang Dafu": xb = "Hombre": nl = "39 años"
Imprimir xm,
Imprimir xb,
Imprimir nl
Fin Sub
11.
Subcomando privado1_Click()
s = 0
Para i = 1 a 100 Paso 1
s = s + i
Siguiente i
Imprimir s
Fin Sub
12,
Subcomando privado1_Click()
s = 1
Para i = 1 a 10
s = s * i
Siguiente i
Imprimir s
End Sub
13
Subcomando privado1_Click()
s = 0.
x = 0
Hacer
x = x + 2
s = s + x
Bucle Hasta s >= 80
Imprimir "x="; x - 2
Fin Sub
15,
Subcomando privado1_Click( )
a = 10
b = 20
Si a > b Entonces
Imprimir a; ="; a - b
Si no<
/p>
Imprimir b; "-"; a; "="; 10
Finalizar si
End Sub
1.
1. Un determinado proyecto de VB contiene dos formularios, F1 y F2. Después de ejecutar la instrucción "F1.Show:F2.Hide", los resultados mostrados por los formularios F1 y F2 son ().
A. Se muestran ambos. B. No se muestra ninguno C. Solo se muestra el formulario F1.
2. En VB, cuando. ejecutando la declaración "Text1.Text="0551-2649670" "Tel=0551-2649670", la parte después de "," es ( ).
A. La parte del comentario no es el código ejecutable B , el parte del comentario, pero el código se puede ejecutar
C. Parte del código del programa D. Otra forma de escribir el código del programa
3. )
A. Tipo numérico, tipo de carácter, tipo booleano, tipo de fecha B. Tipo numérico, tipo de carácter, tipo de objeto, tipo de fecha
C. Tipo entero, tipo real, tipo carácter, tipo fecha, tipo booleano
4. Si el tipo de datos de una variable en VB no se declara explícitamente, el valor predeterminado es ( )
A. Tipo de fecha B. Tipo de datos C, tipo de carácter D, tipo de variante
5 En VB, puede agregar elementos al cuadro de lista cambiando el valor del atributo del cuadro de lista (
A, Lista B, (Nombre) C, Título D, Texto
6. En VB, después de ejecutar la instrucción "A=5:A=A+5", el valor de la variable. A es ( )
A, 0 B, 5 C, 10 D, no necesariamente
7. Los operadores en VB se dividen en cuatro categorías, a saber ( )
<. p>A. Operadores aritméticos, operador de conexión, operador relacional, operador lógicoB Operador aritmético, operador de comparación, operador relacional, operador lógico
C. , operador booleano, operador lógico
D, operador de conexión, operador de comparación, operador lógico, operador relacional
8. En VB, ejecute "A= Después de la instrucción 18MOD4", el valor. de A es ( ).
A, 2 B, 4 C, 6 D, 8
9. A y B" y "AOrB" son ( ) respectivamente.
A, Verdadero, Verdadero B, Verdadero Falso C, Falso, Verdadero D, Falso, Falso
10. En VB, después Al ejecutar la instrucción "DimA,B As String", las estructuras de datos de A y B son ( )
A, número entero B, número real C, tipo de carácter D, tipo de byte
<. p>11. En VB, después de ejecutar la declaración "A=123:B=Str$(A)", la estructura de datos de B es (A, entero, B. Tipo de byte C). Tipo real D. Tipo de carácter
12. En VB, hay tres tipos de valores de valor para la casilla de verificación, a saber ().
A, -1, 0, 1 B, 0, 1, 2 C, 1, 2, 3 D, Verdadero, Falso, 0
13. Para crear dos conjuntos de botones de opción para "grado" y "clase", el método específico es ( )
A Primero cree los "botones de opción" y luego use "marcos" para enmarcarlos respectivamente<. /p>
B. Primero cree el "Botón de opción" y el "Marco" respectivamente, y luego arrastre el "Botón de opción" al marco correspondiente.
Primero cree el "Marco". y luego arrastre el "Botón de opción" al marco correspondiente "Cree un "botón de opción" en "
Se pueden utilizar todos los métodos anteriores
14. expresión para la relación matemática 3<= x<10 es ( )
A, 3〈=x〈10 B, 3〈=xANDx〈10 C, x〉=3ORx〈10 D, 3〈=xAND 〈10
15, Int (198.555* El valor de 100.5)/100 es ( )
A, 198 B, 199.6 C, 198.56 D, 200
16. La siguiente declaración de asignación correcta es ( )
A, x+y=30 B, y= *r*r C, y=x+30 D, 3y=x
17. Para asignar el valor inicial 1 a las tres variables, la siguiente declaración de asignación correcta es ( )
A. x=1, y=1, z=1 C. x=y=z=1 D. xyz=1
18. programa después del juicio.
A, 1 B, 2 C, 3 D, 8
19. El enunciado Si x=1 Entonces y=1, el siguiente enunciado es correcto ( ).
A, x=1 e y=1 son todas declaraciones de asignación. B, x=1 e y=1 son todas expresiones relacionales.
C y x=1 son expresiones relacionales. , y=1 es una declaración de asignación D, x=1 es una declaración de asignación, y=1 es una expresión relacional
20. ().
A, Fecha B, Fecha$ C, Hora D, Temporizador
21. Para salir del bucle For, la instrucción que se puede utilizar es ( ).
A. Salir B. Salir Do C. Hora D. Salir Para
22. >
（ 1) Diseñar la interfaz de usuario; (2) ( ); (3) Ejecutar el depurador (4) Generar archivos ejecutables.
A. Escritura de código B. Diseño de algoritmo C. Retroalimentación de información D. Integración del sistema
23. Establezca el atributo "Título" del formulario Form1 en "Reloj" en la ventana de código. La forma de escritura correcta es ( )
A Form.C aption "reloj" B Form.Caption="reloj"
C Caption="reloj" D Fopm.Caption( "reloj ”)
24 Las siguientes operaciones no pueden abrir la ventana de código ( )
A Seleccione el objeto, haga clic con el botón derecho del mouse y seleccione el comando "Ver código" en la ventana emergente. menú contextual arriba
p>B Seleccione el objeto y haga doble clic con el botón izquierdo del mouse C Presione la tecla F7 D Presione la tecla F4
25 Al guardar el archivo, todos los datos en el formulario se almacena en el formato ( )
A*. PRG B*. FRM C.*. VBP D*. EXE
26 El inicializador del formulario debe escribirse en el evento ().
A Cargar B Descargar C Activar D GotFocus
27 Escribir varias declaraciones en una sola declaración Al hacer declaraciones, los símbolos delimitadores entre cada declaración son ( )
A, B: C, D;
28 Si una declaración debe continuar en la siguiente línea, la línea el símbolo de continuación utilizado es ( ).
A + B – C ＼―― D. ． ． X
29 El siguiente es el nombre de la variable legal ( )
A x＿yz B 123abc C entero D X-Y
30 El siguiente es la constante de cadena legal ( )
A ABC $ B "ABC" C 'ABC' D ABC
Dos preguntas de verdadero/falso
1. Los controles en VB se utilizan para diseñar usuarios. interfaz. ( )
2. En el programa VB, seleccione un control en el formulario. Si aparecen 8 pequeños cuadrados blancos alrededor del control, significa que el control no está bloqueado. ( )
4. Al diseñar un programa VB, seleccione el control del cuadro de texto "Text1" en el formulario, establezca el valor de su propiedad "BackColor" en verde claro y establezca el valor de su propiedad "ForeColor" en rojo. Entonces el texto "Text1" es rojo. ( )
5. En VB, "método" se refiere al proceso que trabaja en el objeto, es decir, el programa interno utilizado para controlar la función y operación del objeto. ( )
6. Al escribir código de programa VB, los atributos del objeto se expresan como: nombre del método.nombre del objeto. ( )
7. El evento de clic es un evento de clic del mouse. ( )
8. Durante la ejecución del programa, el valor de la variable siempre permanece sin cambios y el valor de la constante cambia en cualquier momento. ( )
Hay tres estructuras básicas del código de programa, a saber, estructura de secuencia, estructura de selección (estructura de rama) y estructura de bucle. ( )
9. En VB, hay un cuadro de lista llamado LIST1. Después de ejecutar la declaración "LIST1.ADDITEM "Fang Zhou Studio"", se agregará "Fang Zhou Work" al cuadro de lista LIST1. Proyecto "Habitación". ( )
10. En VB, el orden de los niveles de operación de mayor a menor es: operaciones aritméticas, operaciones de conexión, operaciones relacionales y operaciones lógicas. ( )
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)
Entre las cuatro opciones A), B), C) y D) de las siguientes preguntas, solo una opción es correcta. Complete las opciones correctas en las posiciones correspondientes en la hoja de respuestas. No se otorgarán puntos por respuestas incorrectas en el examen.
(1) ¿Cuál de las siguientes afirmaciones es incorrecta?
A) Visual Basic es una herramienta de programación visual basada en eventos
B) Las aplicaciones de Visual Basic no tiene obvio Las declaraciones de inicio y fin de Propiedades solo se pueden configurar en tiempo de ejecución
(2) La siguiente declaración es incorrecta
A) La ventana del explorador de proyectos solo puede contener un archivo de proyecto y los archivos que pertenecen al proyecto Otros archivos
B) Los archivos con extensión .BAS son archivos de módulo estándar
C) Los archivos de formulario contienen las propiedades del formulario y sus controles
D) Un proyecto puede contener múltiples archivos de módulo estándar
(3) ¿Cuál de las siguientes afirmaciones es incorrecta?
A) Hacer doble clic con el mouse puede activar el evento DblClick
B) El nombre del evento del formulario o control puede ser determinado por el programador
C) Cuando se mueve el mouse, se activará el evento MouseMove
D) El nombre del control puede ser establecido por el programador Definido
(4) Los siguientes tipos de archivos que no pertenecen al sistema Visual Basic son
A) .frm B) .bat C) .vbg D) .vbp
(5) ¿Qué está mal en la siguiente descripción?
A) Al abrir un archivo de proyecto, el sistema carga automáticamente los formularios, módulos estándar y otros archivos relacionados con el proyecto
B) Al guardar un programa de Visual Basic, el archivo de formulario y el archivo del proyecto deben guardarse por separado
C) Aplicaciones de Visual Basic solo se puede ejecutar en modo interpretado
D) Los eventos pueden ser activados por los usuarios y también pueden ser activados por el sistema
(6) El siguiente código puede definir correctamente los datos tipo TelBook es
A) Tipo TelBook
B) Tipo TelBook
Nombre como cadena*10 Nombre como cadena*10
TelNum Como entero TelNum Como entero
Tipo de fin TelBook final
C) Tipo TelBook
D) Typedef TelBook
Nombre Cadena*10 Nombre Cadena*10
TelNum Integer TelNum Integer
Tipo de fin TelBook Tipo de fin
(7) La siguiente declaración es incorrecta
A) Const var1=123 B) Dim var2 = 'ABC' C) DefInt a-z D) Static var3 As Integer
(8) Supongamos que hay un control de cuadro de lista Lista1 en el formulario y que contiene varios elementos de lista .
Entonces lo siguiente puede representar el contenido del elemento de la lista seleccionado actualmente:
A) Lista1.Lista B) Lista1.ListIndex C) Lista1.Index D) Lista1.
(9. ) Después de que el programa se esté ejecutando, haga clic con el mouse en el formulario. El evento que el formulario no recibirá en este momento es
A) MouseDown B) MouseUp C) Cargar D) Haga clic
<. p> ( 10) Supongamos a=10, b=5, c=1, luego de ejecutar la sentencia Imprimir a > b > c, lo que se muestra en el formulario esA) Verdadero B) Falso C ) 1 D) Información de error
(11) Si desea cambiar el título del formulario, las propiedades que deben establecerse son
A) Título B) Nombre C) BackColor D) BorderStyle
(12) Las siguientes funciones que pueden determinar si se llega al final del archivo son
A) BOF B) LOC C) LOF D) EOF
(13) Si un proyecto contiene varios módulos estándar y de cuerpo de Windows, la siguiente declaración es incorrecta
A) Si el proyecto contiene un proceso subprincipal, el programa debe ejecutar el proceso primero
B) El módulo estándar no se puede configurar para iniciar el módulo
C) El uso del método Ocultar solo oculta un formulario y no puede borrarlo de la memoria
D) Como máximo, un formulario es el formulario activo en cualquier momento
(14) Proceso de evento MouseDown del formulario
Form_MouseDown (Botón como entero, Mayús como entero, X como único, Y Como único)
Hay 4 parámetros, la descripción correcta de estos parámetros es
A) Utilice el parámetro Botón para determinar qué botón del mouse está presionado actualmente
B) El parámetro Shift solo se puede usar para determinar si se presiona Presione la tecla Shift
C) El parámetro Shift solo se puede usar para determinar si se presionan las teclas Alt y Ctrl
D) Los parámetros xey se utilizan para establecer las coordenadas de la posición actual del mouse
(15) Supongamos que hay 3 elementos en el cuadro combinado Combo1, luego la siguiente declaración puede eliminar el último elemento es
A) Combo1.RemoveItem Texto
B) Combo1 .RemoveItem 2
C) Combo1.RemoveItem 3
D) Combo1 .RemoveItem Combo1.Listcount
(16) En la siguiente descripción sobre el foco, es incorrecto Sí
A) Si la propiedad TabStop del cuadro de texto es False, los datos ingresados desde el no se puede recibir el teclado
B) Cuando el cuadro de texto pierde el foco, se activa el evento LostFocus
C) Cuando la propiedad Enabled del cuadro de texto es False, su orden de tabulación no work
D) Puede usar la propiedad TabIndex para cambiar el orden de tabulación
(17) Si desea agregar una línea separadora en el menú, su propiedad Caption debe establecerse en
A) = B) * C) & D) -
(18) Ejecute la instrucción Open "Tel .dat" For Random As #1 Después de Len = 50, las operaciones que se pueden realizar con los datos del archivo Tel.dat son
A) solo se puede escribir, no leer B) solo se puede leer, no escribir C ) se puede leer y escribir D) no se puede leído y escrito
(19) Dibuje un botón de comando llamado Comando1 y dos cuadros de texto llamados Texto1 y Texto2 en el formulario. Luego escriba el siguiente proceso de evento:
p>
Subcomando privado1_Click()
n = Texto1.Text
Seleccione caso n
Caso 1 a 20
x = 10
Caso 2, 4, 6
x = 20
El caso es < 10
x = 30
Caso 10
x = 40
Fin de selección
Texto2.Text = x
Fin de sub
Después de ejecutar el programa, si ingresa 10 en el cuadro de texto Texto1 y luego hace clic en el botón de comando, el contenido que se muestra en Texto2 es
A) 10 B) 20 C) 30 D) 40
(20) Se proporciona la siguiente estructura de bucle
Do
Cuerpo del bucle
Bucle While
Entonces la siguiente afirmación es incorrecta
A) Si la "condición" es una constante igual a 0, el cuerpo del bucle no se ejecutará una vez
B) La "condición" puede ser una expresión relacional Fórmula, expresión lógica o constante
C) La declaración Exit Do se puede utilizar en el cuerpo del bucle
D) Si la "condición" siempre es Verdadera, el bucle El cuerpo se ejecutará continuamente
(21) Dibuje un botón de comando llamado Command1 en el formulario y luego escriba el siguiente procedimiento de evento:
Private Sub Command1_Click()
Atenuar num como entero
num = 1
Hacer hasta num > 6
Imprimir num;
num = num + 2.4
Bucle
End Sub
Después de ejecutar el programa, haga clic en el botón de comando, el contenido que se muestra en el formulario es
A) 1 3.4 5.8 B) 1 3 5 C) 1 4 7 D) Sin salida de datos
(22) Dibuje un botón de comando llamado Comando1 en el formulario y luego escriba el siguiente procedimiento de evento:
Subcomando privado1_Click()
Atenuar a como entero, s como entero
a = 8
s = 1
Do
s = s + a
a = a-1
Bucle mientras a <= 0
Imprimir s; /p>
End Sub
Después de ejecutar el programa, haga clic en el botón de comando, el contenido que se muestra en el formulario es
A) 7 9 B) 34 0 C) 9 7 D) Dead Loop
(23) tiene el siguiente proceso general:
Función pública f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
Función final
Dibuja un nombre llamado Comando1 en el botón de comando del formulario y luego escriba el siguiente procedimiento de evento:
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Imprimir
x; y
End Sub
Después de ejecutar el programa, si hace clic en el botón de comando, el contenido que se muestra en el formulario es
A) 10 5 B ) 20 5 C) 20 40 D) 10 40
(24) Existe el siguiente proceso general:
Public Sub Fun(a(), ByVal x As Integer)
Para i = 1 a 5
x = x + a(i)
Siguiente
Fin Sub
en Dibuje un cuadro de texto llamado Texto1 y un botón de comando llamado Comando1 en el formulario, y luego escriba el siguiente procedimiento de evento:
Private Sub Command1_Click()
Dim arr(5 ) Como variante
Para i = 1 a 5
arr(i) = i
Siguiente
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
Después de que se ejecute el programa, haga clic en el botón de comando, Entonces el contenido que se muestra en el cuadro de texto es
A) 10 B) 15 C) 25 D) 24
(25) Dibuje un botón de comando llamado Comando1 en el formulario y luego escribe el siguiente código:
Opción Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
Para i = 1 a 5
Si x(i) > c Entonces
d = d + x(i)
c = x(i)
Si no
d = d－c
Finalizar si
Siguiente i
Imprimir d
End Sub
Después de que el programa se esté ejecutando, si hace clic en el botón de comando, El contenido de salida en el formulario es
A) 89 B) 99 C) 23 D) 77
(26) Dibuje dos barras de desplazamiento en el formulario, denominadas Hscroll1, Hscroll2 respectivamente. 6 etiquetas, denominadas Etiqueta1, Etiqueta2, Etiqueta3, Etiqueta4, Etiqueta5, Etiqueta6, entre las cuales las etiquetas Etiqueta 4 ~ Etiqueta6 muestran respectivamente "A", "B", "A*B" y otra información de texto, las etiquetas Etiqueta1, Etiqueta2 muestran la valores de las barras de desplazamiento en el lado derecho, y Label3 muestra los resultados del cálculo de A*B. Como se muestra en la imagen. Cuando se mueve el cuadro de desplazamiento, el valor de la barra de desplazamiento se muestra en la etiqueta correspondiente. Cuando se hace clic en el botón de comando "Calcular", los dos valores que se muestran en las etiquetas Etiqueta1 y Etiqueta2 se multiplican y el resultado se muestra en Etiqueta3.
Los siguientes procedimientos de eventos que no pueden implementar las funciones anteriores son
A) Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption)*Val( Label2.Caption ))
End Sub
B) Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
Sub final
C) Sub privado Command1_Click()
Label3.Caption = HScroll1 * HScroll2
Sub final
D) Sub privado Command1_Click( )
Label3.Caption = HScroll1. Text * HScroll2.Text
End Sub
(27) Dibuje un botón de comando llamado Command1 en el formulario. y luego escriba el siguiente procedimiento de evento:
Private Sub Command1_Click()
Para n = 1 a 20
Si n Mod 3 <> 0 Entonces m = m + n \ 3
Siguiente n
Imprimir n
Fin Sub
Después de que el programa se esté ejecutando, si hace clic en el comando botón, la ventana El contenido que se muestra en el formulario es
A) 15 B) 18 C) 21 D) 24
(28) Dibuje un cuadro de texto llamado Texto1 en el formulario y escriba el siguiente programa:
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Sub privado Form_MouseUp(Botón como entero, Mayús como entero, X como único, Y como único)
Imprimir "Programación"
End Sub
Subtexto privado1_KeyDown(Código clave como entero, Mayús como entero)
Imprimir "Visual Basic";
End Sub
Después de ejecutar el programa, si presiona la tecla "A" y luego hace clic en el formulario, el contenido que se muestra en el formulario es
A) Visual Basic B) Programación C) A Programación D) Visual Programación básica
(29) tiene el siguiente programa:
Private Sub Command1_Click()
Dim sum As Double, x As Double
suma = 0
n = 0
Para i = 1 a 5
x = n / i
n = n + 1
suma = suma + x
Siguiente
End Sub
Este programa calcula el valor de una expresión mediante un bucle For. Esta expresión es
A) 1+1/2+ 2/3+3/4+4/5 B) 1+1/2+2
/3+3/4 C) 1/2+2/3+3/4+4/5 D) 1+1/2+1/3+1/4+1/5
( 30) En la siguiente secuencia de declaraciones sobre la definición de matriz, la incorrecta es
A) Static arr1(3) B) Dim arr2() As Integer
arr1(1) = 100 Tamaño tenue como entero
arr1(2) = "Hola" Private Sub Command2_Click()
arr1(3) = 123,45 tamaño = InputBox("Entrada:")
ReDim arr2(tamaño)
． ． ． ． ． ．
End Sub
C) Opción Base 1 D) Dim n As Integer
Subcomando privado3_Click() Subcomando privado4_Click()
Dim arr3(3) Como entero Dim arr4(n) Como entero
． ． ． ． ． ． ． ． ． ． ． ．
Fin Sub Fin Sub