更多"建立一个磁盘文件，文件名由键盘输入，文件内容也由键盘输入。文件内容的输"的相关试题:
[简答题]建立一个磁盘文件，文件名由键盘输入，文件内容也由键盘输入。文件内容的输入以"*"作为输入结束标志。
[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。
在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程：
Prlvate Sub Form_Click（ ）
Open"D:/test1.txt"For Input As # 1
Text1.FontSize＝14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【13】
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text＝ 【14】
Close
Open"D:/test2.txt"For Output As # 1
Print # 1, 【15】
Close
End Sub
[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click( )
Open"d：/test/smtext1．txt"For lnput As#1
Text1.Fontsize=14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【8】
whole＄=whole $ aspect $+Chr$(13)+Chr $(10)
Loop
Text1.Text= 【9】 。
Close
Open"d：/test/smtext2．txt"For Output As#1
Print #1 【10】
Close
End Sub
[简答题]请写出一条Java语句，要求建立一个文件对象f，其对应的磁盘文件是“d：/gzq.txt”。
[填空题]以下程序是建立一个名为myfile的文件，并把从键盘输入的字符存入该文件，当键盘上输入结束时关闭该文件。
#include
main（ ）
{ FILE *fp;
char c;
fp=__________ ;
do{
c=getchar（ ）;
fputs(c,fp);
}while(c!=EOF);
__________ }
[填空题]建立一个通信录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录的内容显示在立即窗口。
Private Type PerData
Name1 As String
Phon As String * 11
Address As String * 10
PostCd As String * 6
End Type
______’定义PerData类型的变量xData’
Privat Sub Form_Load（ ）
Open"C:/phonBook.txt"For Random Asl
End Sub
Private Sub Command1_Click（ ）
xData.Name1=Text1.Text
xData.Phon=Text2.Text
______=Text3.Text
xData.PostCd=Text4.Text
Putg#1,1,xData
Text1.Text=" ":Text2.Text=" "
Text1.3Text=" ":Text4.Text=" "
End Sub
Private Sub Command2_Click（ ）
reno=LOF(1)/Len(xData)
i=1
D0 While i＜＝reno
Get#1,i,xData
Debug.Print xData,Name1,______,xData.Address,xData.PostCd
i=i+1
LooP
End Sub
[填空题]建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。
Private Type PerData
Name1 As String
Phon As String *11
Address As String *10
PostCd As String *6
End Type
______ ’定义PerData类型的变量xData
Private Sub Form_Load（ ）
Open "C:/phonBook.txt" For Random As 1
End Sub
Private Sub Command1_Click（ ）
xData.Name1=Text1.Text
xData.Phon=Text2.Text
______=Text3.Text ’地址
xData.PostCd=Text4.Text
Put #1,1,xData
Text1.Text="":Text2.Text=""
Text3.Text="":Text4.Text=""
End Sub
Private Sub Command2_Click（ ）
reno=LOF(1)/Len(xData)
i=1
Do While i＜=reno
Get #1,i,xData
Debug.Print xData.Name 1,______,xData.Address,xData.PostCd
i=i+1
Loop
End Sub
[填空题]在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。
Pfivate Sub Form_Click（ ）
Open"C:StuData.txt"ForOut PUt As#1
Fori=l To5
StuNo=InputBox("请输入学号")
StuName=InputBox("请输入姓名")
StuEng=Val(1nputBox(“请输入英语成绩”))
______
Nexti
Close#1
End Sub
[填空题]在C盘当前文件夹下建立一个名为StuData. txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。
Private Sub Form Click（ ）
Open"C: StuData. txt"For OutPut As#1
Fori=1 To 5
StuNo=InpuzztBox(“请输入学号”)
StuName=InputBox(“请输入姓名”)
StuEng=Val(InputBox(“请输入英语成绩”))
【15】
Next i
Close#1
End Sub
