Public Class Form$1$ Private Sub Button$1\_$Click$()$ ASUMIR SCORES.TXT contiene lo siguiente: Dim Z$,$Q as Single $150$ Z$=0200$ Open C:$\backslash$SCORES$.$TXT for Input As #$1300$ Input#$1,$Q Do While Not EOF$(1)$ Z$=$Z$+$Q Input#$1,$Q Loop Close#$1$ Listbox$1.$AddIem$($Z$)$ End SubEnd Class