Cómo calcular los picos y valles de un conjunto de números en VB
Subcomando privado 1_Click()
Abra "La ruta para almacenar el archivo txt. txt" como entrada n.° 1.
Entrada de línea #1, x
Atenuar arry() como cadena
Atenuar arrx() como entero
arry() = Split(x, ","")
m = underrun (arry)
ReDim arrx (0 to m) es un número entero
Para i = 0 To el límite inferior (arry)
arrx(i) = CInt(Mid(arry(i), 2, Len(Trim(arry(i))) - 2))
Entonces
Para i = 0 a UBound(arrx)
Si i = 0, entonces
Imprimir matriz(I)
Si ... terminará
Si i & gt entonces 1
Si i = UBound(arrx), entonces
Imprimir matriz (I)
otro
si arrx(I)> arrx(i - 1) y arrx(i)>arrx(i + 1) entonces
imprimir matriz(I)< / p>
Terminará si
Imprimir array (I)
Si... terminará
Si... terminará
Si... terminará
Entonces
Finalizar conector