Algunas preguntas sobre VB ¡Urgente! !
1. Compilar un proceso SUB. Su función es: contar cada elemento de una matriz unidimensional con más de 90, 80~89, 70~89, 69~79, 60~. 69, el número de segmentos por debajo de 60.
'Todos90_,
Todos80_89,
Todos70_89,
Todos69_79,
Todos60_69,
All_60
Es el número total que necesitas
Sub
Total()
Dim
Todos90_,
Todos80_89,
Todos70_89,
Todos69_79,
Todos60_69,
Todos_60
Como
Entero
Dim
i
Como
Entero
Atenuar
a(n)
Como
Entero
Para
i
=
Para
n
Seleccionar
Caso
a(i)
Caso
Es
>=
90
'Incluye 90, si no, elimínalo=
All90_
=
All90_
+
1
Estuche
a(i)
>=
80
Y
a(i)
<=
89
Todos80_89
=
Todos80_89
+
1
Caso
a(i)
>=
70
Y
a (i)
<=
89
Todos70_89
=
Todos70_89
+
1
Caso
a(i)
>=
69
Y
a(i)
<=
79
Todos69_79
=
Todos69_79
+
1
Caso
a(i)
>=
60
Y
un(i)
<=
69
All60_69
=
All60_69
+
1
Caso
Es
<=
60
'Incluye 60
Todos_60
=
Todo_60
+
1
Fin
Seleccionar
Siguiente
i
p>End
Sub
2. Escriba una función para calcular el promedio de todos los elementos de una matriz unidimensional de un solo tipo.
'temp es el valor promedio
Dim
temp
Como
Único
Atenuar
a(n)
Como
Único
Atenuar
i
Como
Entero
Para
i
=
A
n
temp
=
temp
+
a(i)
Siguiente
i
temp
=
temp
/
(n
+
1)
3. Escribe el proceso de función Función y calcula 1+22+32+42+...n2.
Función
Sumar(n
Como
Entero)
Como
Entero
Dim
i,
temp
Como
Entero
Para
i
=
2
A
n
temp
p>
=
n
*
10
+
2
+
temp
Siguiente
i
Agregar =
temp
+
1
Fin
Función