Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
 | Private Sub Command1_Click() Dim a, b, cc As Integer Dim p(3), d(3), e(3), t(3), h(3), w(3), c(3), f(6) As Integer If Text4.Text <> "" Then strfile = Text4.Text Open strfile For Input As #1 For i = 1 To 3 Input #1, p(i), d(i), h(i), w(i) Next i Close #i … |