¡Buscando VB varias preguntas y códigos para principiantes!

p>

1. En el método de clasificación, los elementos se extraen de la secuencia sin clasificar en secuencia y se comparan. con los elementos en la secuencia ordenada y colóquelos en la posición correcta de la secuencia ordenada. Esto se llama ( )

A) Ordenación por selección B) Ordenación rápida C) Ordenación por inserción D) Ordenación por burbuja

2. Hay tres elementos X, Y y Z colocados en la pila en secuencia. El orden imposible para sacarlos de la pila es ( )

A) Z, Y, X B). Z, X, Y C) Y, X, Z D) X, Y, Z

3. El estado del proceso se puede convertir ¿Cuál de las siguientes transiciones de estado es imposible ( )

C) Estado de bloqueo --> Estado listo D) Estado de espera --> Estado de ejecución

4. La dirección de la lista lineal enlazada ( )

A) debe ser continua B) parte de la dirección debe ser continua C) no debe ser continua D) Puede ser continua o no

5. En las pruebas de software, ( ) analiza principalmente la estructura interna del programa.

A) Método de la caja blanca B) Método de la caja negra C) Método del diagrama de causa y efecto D) Método de especulación de errores

Parte 2

Programación en lenguaje Visual Basic

1. Preguntas de opción múltiple (1 punto/pregunta, ***10 puntos)

1. En Visual Basic, la extensión del archivo de formulario es ( )

A) EXE B) BAS C) FRM D) VBP

2. El resultado de la expresión 8+2*3^2\9/8-3 mod 2 es ( )

A) 25 B) 24 C) 7 D) 7.25

3. Ingrese dos cadenas desde el teclado y guárdelas en las variables Str1 y Str2 respectivamente. Asegúrese de que la segunda cadena esté en el. La función de la posición inicial en una cadena es ( )

A) Izquierda B) Media C) Cadena D) Instr

4. Si X es un número real positivo, puede La expresión para redondear al tercer decimal de /p>

C) 0.01*Int(x+0.05) D) 0.01*Int(x+0.005)

5. Entre las siguientes cuatro declaraciones , cuál puede imprimir y mostrar las palabras 20*30 ( )

A) pinta “20*30” B) imprimir 20*30

C) imprimir chr(20)+ ”*”+chr(30)D) D) print Val("20"*Val("30")

6. Las variables se declaran públicas en el módulo de formulario. ¿Cuál de las siguientes afirmaciones sobre variables? es correcto ( )

A) Puede acceder a las variables desde cualquier módulo del proyecto

B) Puede acceder a las variables en cualquier parte del formulario, no fuera del módulo del formulario

C) Solo se puede acceder a las variables en otros módulos de formulario en el mismo proyecto

D) Las variables no se pueden declarar como públicas en el módulo de formulario

7. Para un objeto de formulario , el primer evento que ocurre es ( )

A) Clic B) DbClick C) Cargar D) Descargar

8. Lo siguiente puede activar el cuadro de texto Cambiar evento La operación es ( )

A) El cuadro de texto pierde el foco B) El cuadro de texto gana el foco

C) Establece el foco del cuadro de texto D) Cambia el contenido del cuadro de texto

9. Si desea cubrir el contenido de fondo del control de etiqueta cuando se muestra, establezca el valor de su propiedad BackStyle en ( )

A) 0 B) 1 C) 2 D ) 3

10. La siguiente descripción de la matriz de control es correcta ( )

A) Al agregar un segundo espacio del mismo tipo en el formulario, VB no solicitará crear una matriz espacial

B) La matriz de control usa la propiedad Índice para identificar el subíndice, y su rango comienza desde 0

C) La matriz de control usa más recursos que usar varios conjuntos idénticos separados controles

D) Si hay un botón, presionar cualquier botón no llamará al mismo proceso de evento Click

2. Programa de análisis de lectura (3 puntos/pregunta, ***45. puntos)

1. Lea el siguiente programa

Opción explícita

Di

m n Como entero, L Como entero, I Como entero, J Como entero

Dim a() Como entero

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

ReDim a(1 To n)

a(1) = 1: a(2) = 2: a(3) = 3: L = 4

L1: Para I = 5 To n

Para J = 2 a L - 1

Si modifico a(J) = 0 Entonces

Salir para

Finalizar si

L2: Siguiente J

L3: Si J > L - 1 Entonces a(L) = I: L = L + 1

Siguiente I

L4: Para I = 1 a L - 1

Imprime a(I);

Siguiente I

L = L - 1

Imprimir " L="; L

End Sub

(1) Después de ejecutar el programa, haga clic en "Comando1", si está en el cuadro de entrada ingresa 20, el resultado de salida es ( )

A) 1, 2, 3, 5, 7, 11, 13, 17, 19, L=9

B ) 1, 3, 5, 7, 9, 11, 13, 15, 17, L=19

C) 1, 2, 3, 4, 5,……..18, 19, L =19

D) 1, 2, 3, 4, 5,……..18, 19, 20, L=20

(2) La declaración “Dim a( ) en el programa anterior como función "Entero" es ( )

A) Definir a como una matriz entera de 11 elementos B) Definir una matriz dinámica

C) Definir una matriz estáticaD) Defina una variable entera

(3) Cuando se ejecuta la declaración "Salir para", el flujo del programa ( ) continuará ejecutándose

A) Desde la etiqueta de declaración L1 B) Desde la declaración etiqueta L2 en

C) De la etiqueta de declaración L3 D) De la etiqueta de declaración L4

2. Lea el siguiente programa

Opción explícita

Private Sub Command1_Click()

Atenuar StrPassWord como cadena

Atenuar I como entero

Para I = 1 a 3

StrPassWord = InputBox("Contraseña")

Si StrPassWord = "123" Entonces

LLL: Salir para

Finalizar si

Siguiente I

Si I = 4 Entonces

MsgBox "No eres un usuario legal"

De lo contrario

MsgBox "Bienvenido"

End If

End Sub

(1) La función de este programa es ( )

A) El usuario ingresa la contraseña correcta "123" tres veces antes de que se muestre "Bienvenido", y se muestra "Bienvenido" después de que el usuario ingresa la contraseña incorrecta tres veces y "No eres un usuario legal"

B) El usuario ingresa la contraseña correcta " 123" una vez, y luego se muestra "Bienvenido" y se ingresa la contraseña incorrecta una vez. Solo entonces muestra "No eres un usuario legal"

C) El usuario ingresa una vez

La contraseña correcta "123" se muestra antes de que se muestre "Bienvenido". "No eres un usuario legal" después de ingresar la contraseña incorrecta tres veces.

D) El usuario ingresa la contraseña incorrecta "123". " una vez antes de que se muestre "Bienvenido". ", ingrese la contraseña correcta tres veces antes de que aparezca "No es un usuario legal"

(2) Si se elimina la declaración en LLL, ( )

A) El mismo efecto que el programa original. Igual

B) El usuario debe ingresar la contraseña correcta tres veces antes de que se muestre "Bienvenido".

C) El El usuario debe ingresar la contraseña tres veces y se mostrará "Bienvenido" después de ingresar cualquier contraseña. "

D) El usuario debe ingresar la contraseña tres veces y cualquier contraseña ingresada mostrará "No eres un usuario legal"

3. Lea el siguiente programa

Private Sub Form_Click()

Dim a(2, 4) As Integer, b(4) As Entero

Dim i como entero, J como entero

Hacer mientras i <= 4

a(1, i) = a(1, i) + 2 * i - 1

a(2, i) = a(2, i) + 12 - 2 * i

i = i + 1

Bucle

Para i = 1 a 2

Para J = 1 a 4

Imprimir a(i, J);

Siguiente J

Imprimir

Siguiente I

L1: i = 0

Hacer mientras i <= 4

b(i) = a(1, i) + a(2, 4 - i)

Texto1.Texto = b(i)

i = i + 1

Bucle

End Sub

(1 ) Cuando el programa se ejecuta en la instrucción L1, el resultado de salida es ( )

A) 1 3 5 7 B) 7 5 3 1

10 8 6 4 10 8 6 4

C) 10 8 6 4 D) 4 6 8 10

7 5 3 1 1 3 5 7

(2) Una vez completada la ejecución de este programa, los elementos de la matriz El valor de b(2) es ( )

A) 3 B) 7 C) 11 D) 15

(3) Una vez completada la ejecución de este programa, se muestra en el cuadro de texto. El resultado es ( )

A) 19 17 15 11 B) 19 C) 15 D) 3

4. El cuadro de texto TxtInput y el botón cmdTest están diseñados en el formulario, y TxtInput.Text="Visual basic es fácil", y tiene lo siguiente código:

Opción explícita

Opción base 1

Sub cmdTest_Click()

Dim strS$, i%, j%, n%, stra$, strb$, count%, t$, strt$()

strS = TxtInput

n = Len(strS)

ReDim strt(n)

Para

r i = 1 To n

stra = Mid(strS, i, 1)

strb = Mid(strS, i + 1, 1)

If strb = "s" Entonces

Si stra >= "a" Y stra <= "z" Entonces

count = count + 1

strt(count) = stra + strb

Fin Si

Fin Si

Siguiente i

Para i = 1 Para contar

Para j = 1 Para contar - i

Si strt(j) < strt(j + 1) Entonces

t = strt(j): strt(j) = strt( j + 1): strt(j + 1) = t

Fin si

Siguiente j

Siguiente i

Para i = 1 Para contar

Imprimir strt(i)

Siguiente i

Texto1.Text = contar

End Sub

(1) Después de ejecutar el programa, el valor del recuento debe ser ( )

A) 0 B) 2 C) 4 D) 6

(2) Después de ejecutar el programa se ejecuta, la ventana El resultado que se muestra en el cuerpo es ( )

A) Visual básico es B) es tal cual

C) es tal cual D) tal cual es

(3) La función de Option Explicit es ( )

A) Indica que las variables internas de este módulo deben declararse antes de usar

B) Indica que este módulo no tiene procedimientos generales

C) Indica que los procedimientos generales de este módulo no pueden ser llamados por otros módulos

D) Indica que se pueden utilizar las variables de este módulo directamente sin declaración

(3) La siguiente declaración sobre "Opción" El término correcto para "Base 1" es ( )

A) Su función es conocer el límite superior predeterminado de la matriz especificada B) Su función es conocer el límite inferior predeterminado de la matriz especificada

C) Su función es definir una matriz dinámica D) Su función es definir una matriz estática

5. Lea el siguiente programa

Opción explícita

Opción base 1

Tipo privado Abc

A como entero

Tipo final

Sub privado Form_Click()

Dim recAbc como Abc

Dim arrA(4, 4) como entero

Atenuar intI como entero, intJ como entero, intN como entero

Abrir "abc.txt" para aleatorio como #1

Para intI = 1 a 4

Para intJ = 1 a 4

intN = intN + 1

recAbc.A = i

ntN

Poner #1, , recAbc

Siguiente intJ

Siguiente intI

Cerrar

Abrir "abc .txt" Para aleatorio como #1

Para intJ = 1 a 4

Para intI = 1 a 4

Obtenga #1, intI * intJ, recAbc

arrA(intI, intJ) = recAbc.A

Siguiente intI

Siguiente intJ

Texto1.Texto = arrA(3, 2)

Cerrar

Para intI = 1 a 4

Para intJ = 1 a 4

Imprimir pestaña (intJ * 3) ; Formato(arrA(intI, intJ), "###");

Siguiente intJ

Siguiente intI

End Sub

(1) El archivo "abc.txt" en el programa se abre en modo ( ) cuando se abre por primera vez

A) Lectura secuencial de archivos B) Escritura secuencial de archivos C) Archivo aleatorio D ) Archivo binario

(2) Una vez completada la asignación de la matriz arrA, el valor del elemento de la matriz arrA(3,2) es ( )

A) 1 B) 7 C ) 6 D) 4

(3) El resultado resultante en el formulario después de ejecutar el programa es ( )

A) 1 2 3 4 B) 1 2 3 4

5 6 7 8 2 4 6 8

9 10 11 12 3 6 9 12

13 14 15 16 4 8 12 16

C) 1 5 9 13 D ) 1 2 3 4

2 6 10 14 2 3 4 5

3 7 11 15 3 4 5 6

4 8 12 16 4 5 6 7

3. Programa de preguntas para completar (2 puntos/espacio en blanco, ***30 puntos)

1. La siguiente función es: encontrar la variable s (s=a+aa+aaa +aaaa+….), donde a es un número del 0 al 9, y se acumula el número total de artículos, por ejemplo:

Cuando a=3, s=3+33+333 ( ***Acumulado 3 artículos)

Cuando a=5, s=5+55+555+5555+55555 (***Acumulado 5 elementos)

Por favor, mejore el programa:

Función pública calc(a As Double)

s = a

t = a

Para i = 2 A ①

t = ②

s = s + t

Siguiente i

Imprimir s

Finalizar función

2. El siguiente programa utiliza el método de "burbuja" para ordenar los 10 números enteros en la matriz a en orden ascendente y muestra los resultados ordenados en el cuadro de texto. Mejore el programa.

Opción explícita

Opción base 1

Sub privada Form_Click()

①

Dim i%, j%, t%

Text1.Text = ""

a = Array(345, 3, 65, 24, 765, 32, 56, 421, 54, 235)

Para i = 1 a 9

Para j = i a ②

Si ③ Entonces

t = a(j)

④

a(j + 1) = t

Fin si

Siguiente j

Siguiente i

Para i = 1 a 10

Text1.Text = Text1.Text & " " & a(i)

Siguiente i

Fin Sub

3. La función del siguiente programa es convertir un número entero en una cadena numérica, por ejemplo, 123 se convierte en "+123".

Sub privado NtoC(ByVal n!, strc como cadena)

Signo atenuado como booleano, i%, a%, count%, temp%(100)

signo = Falso

Si n < 0 Entonces signo = Verdadero: n = ①

Hacer mientras n > 0

a = ②

n = n \ 10

cuenta = cuenta + 1

temp(cuenta) = a

Bucle

Si signo Entonces strc = "-" De lo contrario strc = "+"

Para i = contar hasta 1 Paso -1

strc = ③

Siguiente i

End Sub

4. Ingrese cualquier número entero x desde el teclado, insértelo en una matriz de enteros dispuesta en orden ascendente y asegúrese de que la matriz todavía esté organizada en el orden ascendente original después de la inserción. Por favor complete el procedimiento completo.

Opción explícita

Opción base 1

Const n = 10

Sub privado Form_Click()

Dim a

Dim i como entero, j como entero, x como entero

a = Array(1, 3, 4, 5, 9, 15, 22, 28, 30, 60 )

Para i = 1 Para n

Imprimir a(i)

Siguiente i

Imprimir

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

ReDim Preserve a(n + 1)

Para i = n a 1 paso -1

Si ① Entonces

a(i + 1) = a(i)

De lo contrario

②

Salir por

Finalizar si

Siguiente i

③

Para i = 1 To n + 1

Imprimir a(i) & " ";

Siguiente i

End Sub

5. El siguiente programa implementa la lectura cmdRead del archivo "List.txt" al "hacer clic" en el comando. botón Ingrese filas de datos y escríbalas en un cuadro de lista. Cada fila del archivo ocupa una opción en el cuadro de lista. Mejore el programa.

Sub privado cmdRead_Click()

Dim strList como cadena

Dim intFileNum como entero

intFileNum = FreeFile()

Abra App.Path + "\List.txt" para ingresar como #intFileNum

haga hasta ①

Entrada de línea #intFileNum, strList

List1 .AddItem ②

Bucle

③

Fin Sub