vb 面向过程程序设计的含义_vb程序设计教程答案_面向对象程序设计(34)

然后清除文本框的内容，直到文本框内输入‖END‖字符串。

Private Sub Form_Load()

Text1.Text=‖‖

End Sub

Private Sub Text1_KeyPress(KeyAscii as integer)

If KeyAscii=13 then

If then

Close #1

End

Else

Text1.Text=‖‖

End if（1）open c:\stud1.txt‖ for output as #1

End if（2）ucase(text1)=‖END‖

End sub（3）print #1,text1

2. 将C盘根目录下的一个文本文件old.dat复制到新文件new.dat中，并利用文件操作语句将old.dat文件从磁盘上删除。

Private Sub Command1_Click()

Dim str1$

Open ―c:\old.dat‖ as #1

Open ―c:\new.dat‖

Do While

Print #2,str1

Loop

End sub

（1）for input

（2）for output as #2

（3）not eof(1)

（4）line input #1,str1

vb试题及答案83_vb答案

（5）close #1,#2

（6）kill ―c:\old.dat‖

3. 文本文件合并。将文本文件‖ttxt‖合并到‖t1.txt‖文件中.

Private Sub Command1_Click()

Dim s$

Open ―t1.txt‖

Open ―ttxt.txt‖

Do While Not EOF(2)

Line Input #2, s

Print #1,s

Loop

Close #1, #2

End sub

（1）for append as #1

（2）for input as #2

4. 将任一整数插入递增次序的数组a中，使数组仍有序。数组a各元素的值从C盘根目录文件名为data.txt中读取，各数据项间以逗号分隔。

Option Base 1

Private Sub Form_Click()

Dim b%,a%(),k%,i%

i=1

Open for input as #1

Do while net EOF(1)

ReDim Preserve a(i)

Inputi=i+1

Loop

B=val(InputBox(―输入待插入的数‖))

ReDim Preserve a(i)

K=i

Do whilea(k)=a(k-1)

Loop

a(k)=b

Print ―插入后为：‖；

For k=1 to i

Print a(k);

Next k

End sub

（1）―c:\data.txt‖

（2）#1,a(i)

（3）(k>1) and a(k-1)>b

（4）k=k-1

5. 随机文件的修改。对已建立的有若干条记录的文件名为‖c:\stud.dat‖的随机文件，记录类型由学号、姓名、三门课程成绩组成。要求读出记录号为5的那条记录，显示在窗体上，然后将其第2门课成绩加5分，再写入原记录的位置，再读出，显示修改成功与否。

Private Sub Command1_Click()

Dim s as stud,Open ―c:\stud.dat‖ for random as #1 len=len(s)

Print s.no, s.name, s.mark(1), s.mark(2),s.mark(3)

Put #1, 5, s

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-22730-34.html