原创力文档- 1、本文档共30页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
实验题：已知数组，输入一个数，在数组中进行查找，如果数组中有，则删除数组中的这个元素，如果没有则提示“没有这个数”。;Dima(),n%
a=Array(1,4,7,10,13,16,19,22,25)
n=val(InputBox(“请输入要删除的数据：));实验题：在文本框中输入字符串，每输入一个字符串，按Enter键后将Text的内容放到数组中，单击“排序”按钮，则按递减次序排列。;文件P192;引例:密码登录程序。要求输入帐号以及密码。只有账号和密码同时正确才可进入系统。;DimuId$,uPsw$,tAsBoolean
OpenApp.Path\user.txtForInputAs#1
t=False
DoWhileNotEOF(1)
Input#1,uId,uPsw
IfuId=Text1.TextAnduPsw=Text2.TextThen
t=True
MsgBox祝贺你，成功登录！
ExitDo
EndIf
Loop
Ift=FalseThenMsgBox帐号/密码错误，无法登录！
Close#1;文件的概念P192;文件及其种类P193;顺序文件P194;顺序访问模式P194;打开顺序文件P196;关闭文件P198;顺序文件的写操作P197;例Print与Write语句输出数据结果比较。;例:;Dima%(20),i%
Open“D:\Mylist.datForOutputAs#1
Fori=1To20
a(i)=Int(Rnd*51)+50
Printa(i),
IfiMod5=0ThenPrint
Next
Close#1;与文件有关的函数P199;格式1Input语句
Input#文件号，变量列表
功能：读取文件中的数据项，并将读出的数据按顺序赋值给变量列表中的变量;例：将文件MyList.dat的数据读出来存放到数组中，并在列表框中显示。;顺序文件的读操作P199;例：将文本文件MYFILE.TXT的内容读到文本框Text1中。;格式3Input函数
Input(读取字符数，#文件号)
功能：读取指定数目的字符,作为函数的返回值;例：字符串大小写互相转换;三种读文件操作的用法和区别;例界面如图，要求：
1、随机产生16个1~30之间的随机数，并存入磁盘文件Data.txt中（每4个一行）。
2、将Data.txt中数据读入二维数组（行列均为4）并输出在Label2中；
3、求第三行元素之和显示在label3标签中；
4、结果添加到Data.txt末尾；
5、所有按钮用控件数组完成。;随机文件P202;随机访问模式P202;自定义类型的定义P116、203;自定义类型变量的声明及使用
P117;例：P205
文档评论（0）