Module Module1
Public Function Datos(ByVal matriz1() As Double) As Double
Dim D As Double
‘guarda en D la longitude de la matriz
D = matriz1.Length
Return D
End Function
Public Function Calcula_Media(ByVal Valores() As Double) As Double
Dim ValorMedio As Double
Dim i As Integer
For i = 0 To Valores.Length - 1
ValorMedio = ValorMedio + Valores(i)
Next i
ValorMedio
...Public Class Form1
‘variables generales
Dim v2() As Double
Dim i As Integer
Dim resultados(i) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘abrir archivo de datos
With OpenFileDialog1
.Filter = "Fichero de texto|*.txt"
.FilterIndex = 2
If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then
If .FileName <> "" Then
‘leer archivo y calcular el numero de datos que tengo
Dim archivo As System.IO.FileStream
archivo...