大二上学期末复习课件vb14.pptxVIP

实验题：已知数组，输入一个数，在数组中进行查找，如果数组中有，则删除数组中的这个元素，如果没有则提示“没有这个数”。;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