隨機文件

1、PrivatePrivateTypeTypeemployeeemployeeempNoempNoAsAsIntegerIntegernamenameAsAsStringString1010addressaddressAsAsStringString2020EndEndTypeTypePrivatePrivateSubSubcmdGet_Click()cmdGet_Click()DimDimempempAsAsemployeeemploy

2、eeOpenOpen“f:employee.txt““f:employee.txt“FFRomRomAsAs#1#1LenLen=Len(emp)Len(emp)GetGet#1#111empempText1.TextText1.Text=Str$(emp.empNo)Str$(emp.empNo)emp.nameemp.nameemp.addressemp.addressGetGet#1#122empempText2.TextText

3、2.Text=Str$(emp.empNo)Str$(emp.empNo)str3$str3$=“請輸入雇員地址請輸入雇員地址“FFi=1ToTo3emp.empNoemp.empNo=InputBox(Str1$InputBox(Str1$Title$)Title$)emp.nameemp.name=InputBox(str2$InputBox(str2$Title$)Title$)emp.addressemp.address=Inp

4、utBox(str3$InputBox(str3$Title$)Title$)PutPut#1#1iiempempNextNextiCloseClose#1#1EndEndSubSubVB上機極重要內(nèi)容上機極重要內(nèi)容:隨機文件讀寫隨機文件讀寫說明：說明：2004年的上機考試新加入隨機文件記年的上機考試新加入隨機文件記錄讀寫題，估計下半年的題型主要有以下兩種：錄讀寫題，估計下半年的題型主要有以下兩種：一、已知一個隨機文件，要求把里面的記錄