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

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

D) Si hay tio de boton

, 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 <. /p>

Opción explícita

Atenuar n como entero, L como entero, I como entero, J como entero

Atenuar 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 A n

Para J = 2 A L - 1

Si Mod a( J ) = 0 Entonces

Salir para

Finalizar si

L2: Siguiente J

L3: Si J gt; 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="; > (1) Después de ejecutar el programa, haga clic en "Comando1". Si ingresa 20 en el cuadro de entrada, 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 función de la declaración "Dim a( ) as Integer" en el programa anterior es ( )

A) Defina a como una matriz de números enteros de 11 elementos B ) Definir una matriz dinámica

C) Define una matriz estática D) Define una variable entera

(3) Después de ejecutar la instrucción "Salir por", el flujo del programa ( ) continuará a ejecutar

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

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

2. Leer el siguiente programa

Opción explícita

Subcomando privado1_Click()

Dim StrPassWord como cadena

Dim I como entero

Para I = 1 a 3

StrPassWord = InputBox("Contraseña")

Si StrPassWord = "123" Entonces

LLL: Salir para< / p>

Finalizar si

Siguiente I

Si I = 4 Entonces

MsgBox "No eres un usuario legal"

E

lse

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". El usuario ingresa la contraseña incorrecta tres veces antes de que se muestre "No eres un usuario legal".

B) El usuario la ingresa una vez. La contraseña correcta "123" se muestra antes de que se muestre "Bienvenido". "No eres un usuario legal" se muestra solo después de ingresar la contraseña incorrecta una vez.

C) El usuario ingresa la contraseña correcta "123" una vez antes de que se muestre "Bienvenido", solo después de ingresar la contraseña incorrecta tres veces aparece "No eres un usuario legal"

D) El usuario ingresa la contraseña incorrecta una vez "123" antes de mostrar "Bienvenido", y solo después de ingresar la contraseña correcta tres veces muestra "No eres un usuario legal"

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

A) El efecto es el mismo que el del programa original

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

C) 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. Lee el siguiente programa

Private Sub Form_Click()

Dim a(2, 4) Como entero, b(4) Como entero

Dim i Como entero, J como entero

Do While i lt = 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

Imprime a (i, J);

Siguiente J

Imprimir

Siguiente I

L1: i = 0

Hacer mientras i lt; = 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, el valor del elemento de matriz b(2) es ( )

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

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

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

/p>

4. Diseñe el cuadro de texto TxtInput y el botón cmdTest en el formulario, y TxtInput.Text="Visual basic es fácil", y tenga el 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 i = 1 To n

stra = Mid(strS, i, 1)

strb = Mid(strS, i 1, 1)

Si strb = "s" Entonces

Si stra gt;= "a" Y stra lt;= "z" Entonces

cuenta = cuenta 1

strt(cuenta) = stra strb

Finalizar si

Finalizar si

Siguiente i

Para i = 1 Para contar

Para j = 1 Para contar - i

Si strt(j) lt; strt(j 1) Entonces

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

Fin Si

Siguiente j

Siguiente i

For i = 1 Para contar

Imprimir strt(i)

Siguiente i

Texto1.Texto = recuento

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, el resultado se muestra en el formulario es ( )

A) visual básico es B) es es como

C) es como es como D) como es es es

( 3) Opción Explícita La función es ( )

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

B) Indica que este módulo no tiene procedimiento general

C) Indica que este módulo El procedimiento general no puede ser llamado por otros módulos

D) Indica que esta variable del módulo se puede utilizar directamente si no está declarada

(3) La siguiente afirmación correcta sobre la afirmación "Opción 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 límite 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.

Opción explícita

Opción base 1

Tipo privado Abc

A como entero

Tipo final

Private Sub Form_Click()

Dim recAbc como Abc

Dim arrA(4, 4) como entero

Dim intI como entero, intJ como entero, intN Como número entero

Abra "abc.txt" para aleatorio como #1

Para intI = 1 a 4

Para intJ = 1 a 4

intN = intN 1

recAbc.A = intN

Pon #1, , recAbc

Siguiente intJ

Siguiente intI

Cerrar

Abrir "abc.txt" para aleatorio como #1

Para intJ = 1 a 4

Para intI = 1 Para 4

Obtener #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) Format(arrA(intI, intJ), "###"); > Next intI

End Sub

(1) El archivo "abc.txt" del 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) Después de que la matriz arrA completa la asignación, 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 función de la siguiente función es: encontrar el valor de la variable s (s). =a aa aaa aaaa...), Entre ellos, a es un número del 0 al 9, y se acumula el número total de elementos a, por ejemplo:

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

Cuando a=5, s=5 55 555 5555 55555 (***5 artículos acumulados)

Por favor mejore el programa:

Función pública calc(a como doble)

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 los resultados ordenados se muestran 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

Texto1.Texto = Texto1.Texto amp; " " a(i)

Siguiente i

End 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".

Private Sub NtoC(ByVal n!, strc As String)

Signo tenue como booleano, i, a, count, temp(100)

sign = Falso

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

Hacer mientras n gt; > n = n \ 10

cuenta = cuenta 1

temp(cuenta) = a

Bucle

Si signo Entonces strc = "-" Else 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. programa 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)

For i = n To 1 Step -1

If ① Entonces

a(i 1) = a(i)

De lo contrario

②

Salir por

Fin si

Siguiente i

③

Para i = 1 To n 1

Imprime a(i) amp " " ;

Siguiente i

End Sub

5. El siguiente programa implementa cmdRead para leer líneas del archivo "List.txt" al "hacer clic" en el comando. botón Los datos se escriben en un cuadro de lista. Cada línea 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