Public Class Form1 
    Dim writer As System.IO.StreamWriter 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Me.OpenFileDialog1.Filter = "文字档案(*.txt)|*.txt" 
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 
            Dim line_array() As Object = Split(My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName), vbNewLine) 
            Dim data_temp As String = "" 
            Dim k As Integer = 0 
            data_temp = Join(line_array, ",") 
            Dim data_array() As Object = Split(data_temp, ",") 
            Dim temp_array(49) As Integer 
            For i = 0 To 49 : temp_array(i) = 0 : Next 
            For i = 0 To UBound(data_array) 
                If (IsNumeric(data_array(i))) Then 
                    If (data_array(i) >= 1 And data_array(i) <= 49) Then 
                        temp_array(Int(data_array(i))) += 1 
                        k += 1 
                    Else 
                        temp_array(0) += 1 
                    End If 
                Else 
                    temp_array(0) += 1 
                End If 
            Next 
            TextBox1.Text = "统计结果：" & vbCrLf 
            For i = 1 To 49 
                TextBox1.Text &= "开出号码为" & i & "的数量是" & temp_array(i) & vbCrLf 
            Next 
            TextBox1.Text &= "总计笔数：" & k & "笔" 
        End If 
    End Sub 
End Class