Rellene los espacios en blanco con programación VB, indique el número de pregunta y complete las preguntas en orden. Gracias

'1. El siguiente programa cuenta el número de caracteres n en la cadena a. El resultado de salida es 4. Complete los espacios en blanco

Private?Sub?Command1_Click()

. p>

a$?=?"Nacional?Computer?Rango?Examen"

n?=?Len(a$)?'Calcular longitud de cadena

s?= ?0

Para?i?=?1?A?n

b$?=?Mid(a$,?i,?1)

If?b $?=?"n"?Entonces

s?=?s ?1

Fin?If

Siguiente?i

Imprimir?s?'Emitir el número de caracteres n en la cadena a$

End?Sub

2?'La función del programa es: generar 7 números entre 0-32 El número aleatorio

'El siguiente programa está incompleto, complételo correctamente para que el programa pueda realizar su función.

Option?Base?1?'Especifica que el límite inferior predeterminado de la matriz será 1

Const?n?=?7'Define que el valor de la constante simbólica N será 7

Dim?a(n)?As?Integer' define una matriz a con N elementos

Dim?s?As?String

Private?Sub ?cmdrnd_Click()

list1.Clear?'Borrar el contenido del cuadro de lista List1

Randomize'Inicializar el generador de números aleatorios

list1.AddItem ?"El número aleatorio original generado:"

s?=?""

Para?i?=?1?To?n?'Generar N números aleatorios a(i) ?=?Int(Rnd?* ?33)?'El valor entero aleatorio es 0-32 s?=?s?amp;?a(i)?amp;?Space(2)

Siguiente ?i

list1.AddItem?a(i)?'Agregar una secuencia de números aleatorios al cuadro de lista List1

End?Sub

'3. La función del siguiente programa es: agregar un unidimensional. Los 100 elementos de la matriz a se asignan a cada elemento de la matriz bidimensional b y se imprimen.

'Requiere a(1)~a (10) se asignará a b(1,1) en la secuencia ~b(1,10), asigne a(11)~a(20) a b(2,1)~b(2,10),.. .,

'Assign A(91) ~(100) se asigna a B(10,1)~B(10,10) a su vez. Por favor complete los espacios en blanco.

Option?Base?1?' establece el límite inferior predeterminado de la matriz en 1

____________________

Private?Sub?Form_Click()

¿Dim?i?As?Integer,?j?As?Integer

Dim?a(1?To?100)?As?Integer

Dim?b(1 ?A?10,?1?A?10)?Como?Entero

Para?i?=?1?A?100 a(i)?=?Int(Rnd?*?100)

¿Siguiente?i

Para?i?=?1?A?10 Para?j?=?1?A?100 b(i,?j)?=?a( (i? -?1)?*?10? ?j)?'Asigne el valor de la matriz a a b según sea necesario Imprimir?b(i,?j); ¿Siguiente?j Imprimir

¿Siguiente? i

¿Fin?Sub