如果结果不匹配，请 
更多“简述程序文件的编写项目？”相关的问题
第4题
假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段： Dim
Rv As Rt r1=Len(Rv) Open"Sp.txt" For Random As 1 x=LOF(1) n=x\r1 执行上面的程序段后，变量n中存放的是文件【 】中所存放的是【 】记录类型的记录数。
点击查看答案
第5题
编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框
Text1，将其MultiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，请将程序补充完整。 Option Explicit Private Sub Form. _Click() Dim ch1 As String，fn As Integer Dim Str As String fn=【 】 Open "C:\Config.sys" For Input As fn Do While Not EOF(【 】) Line Input fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =【 】 End Sub
点击查看答案
第6题
把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，
请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() Open"d：\test\smtext1．txt"For lnput As1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) 【 】 whole＄=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text=【 】。 Close Open"d：\test\smtexttxt"For Output As1 Print 1【 】 Close End Sub
点击查看答案
第7题
编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本
框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。 option Explicit Private Sub Form. C1ick() Dim chl As String, fn As Integer Dim Str As String fn=【 】 Open "C:\Config. sys" For Input As fn Do While Not EOF(【 】) Line Input fn, chl Str=Str+chl+vbCrLf Loop Text1. Text=【 】 End Sub
点击查看答案
