打字谜:帮我看看这段代码

来源:百度文库 编辑:高考问答 时间:2024/04/19 09:17:11
dim Data as string, TData as string, x as long

sub main
open "..." for binary as #1

for x=1 to lof(1)
get 1,x,Data' (or get 1,,Data)
TData=TData & Data
next x

为什么TData = ""
以上代码是在VB中运行的.
作用:以二进制方式读取文件.

请问你的程序是做什么用的也就是说题目是什么