[初学者的发问] 目前有大约15笔资料作测试(实际一共有1000多笔) 外部.txt档案是用excel做好再贴到.txt上的 资料型态为 a.txt aaa bbb ccc... b.txt ppp qqq rrr... c.txt xxx yyy zzz... 全部都是文字档 目前做好乱数产生部分 产出1~15的乱数 希望可以输出的结果是ex:乱数=8 在不同label.caption上秀出资料a中的第八笔 资料b中的第八笔 资料c中的第八笔 [程式码] Dim R As Integer 'R为乱数 Dim x(15) As Byte Dim y(15) As Byte Dim z(15) As Byte '宣告x,y,z皆为字串 Private Sub Command1_Click() Randomize Label1.Caption = Int(Rnd * 15) + 1 '产生1~15之间的乱数 R = Label1.Caption - 1 '抓出产生出的乱数,指定给r,作为後续阵列指向位置使用 Open "C:\a.txt" For Binary As #1 这边就不知道该如何继续下去了... Close #1 End Sub 有点非常的逊 刚开始学习VB 还请大家不吝指导 THANK YOU ALL --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 114.45.217.33