原创力文档- 1、本文档共100页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
例8-6BinaryReader类Read方法的测试。ImportsSystem.IOPublicClassForm1PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.ClickDimFSAsNewFileStream(D:\File3.dat,FileMode.Open,FileAccess.Read)DimBRAsNewBinaryReader(FS)DimaAsInteger,bAsSingle,cAsStringa=BR.ReadInt32()TextBox1.Text=CStr(a)b=BR.ReadSingle()TextBox2.Text=CStr(b)c=BR.ReadString()TextBox3.Text=cBR.Close()FS.Close()EndSubEndClass例8-7用随机函数产生30个两位整数并存放到二进制文件“D:\File4.dat”中。从“D:\File4.dat”中读出数据并在文本框TextBox1中显示，求这组数的平均值和最大值，分别在文本框TextBox2和TextBox3中显示。ImportsSystem.IOPublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton1.ClickDimFSAsNewFileStream(D:\File4.dat,FileMode.Create,_FileAccess.Write)DimBWAsNewBinaryWriter(FS)Dima,iAsIntegerRandomize()Fori=1To30a=Int(90*Rnd()+10)BW.Write(a)NextMessageBox.Show(文件已建立!)BW.Close()FS.Close()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton2.ClickDimFSAsNewFileStream(D:\File4.dat,FileMode.Open,_FileAccess.Read)DimBRAsNewBinaryReader(FS)Dima,iAsIntegerFori=1To29a=BR.ReadInt32()TextBox1.Text=TextBox1.TextCStr(a),Nexta=BR.ReadInt32()TextBox1.Text=TextBox1.TextCStr(a)BR.Close()FS.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesButton3.ClickDimFSAsNewFileStream(D:\File4.dat,FileMode.Open,FileAccess.Read)DimBRAsNew
文档评论（0）