如果用数组,是要这样把所有的元素都罗列出么啊?
Dim msz(1 To 500) As Single
Open App.Path & "\a.txt" For Input As #1 'Binary
Do While Not EOF(1)
Input #1, _
sz(1), sz(2), sz(3), sz(4), sz(5), sz(6), sz(7), sz(8), sz(9), sz(10), _
sz(11), sz(12), sz(13), sz(14), sz(15), sz(16), sz(17), sz(18), sz(19), sz(20), _
sz(21), sz(22), sz(23), sz(24), sz(25), sz(26), sz(27), sz(28), sz(29), sz(30), _
sz(31), sz(32), sz(33), sz(34), sz(35), sz(36), sz(37), sz(38), sz(39), sz(40), _
sz(41), sz(42), sz(43), sz(44), sz(45), sz(46), sz(47), sz(48), sz(49), sz(50), _
sz(51), sz(52), sz(53), sz(54), sz(55), sz(56), sz(57), sz(58), sz(59), sz(60), _
sz(61), sz(62), sz(63), sz(64), sz(65), sz(66), sz(67), sz(68), sz(69), sz(70), _
sz(71), sz(72), sz(73), sz(74), sz(75), sz(76), sz(77), sz(78), sz(79), sz(80), _
sz(81)........sz(500)
Loop