在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击”读入文件”按钮,将显示一个”打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该文件的内容显示到Textl文本框中。 要求:请去掉程序中的注

admin2019-06-11  16

问题 在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击”读入文件”按钮,将显示一个”打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该文件的内容显示到Textl文本框中。
要求:请去掉程序中的注释符,并把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

选项

答案步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。 参考代码: Private Sub Commandl_Click( ) Dim n As Long CDl.FileName=““ CD1.Filter=“所有文件|*.*|文本文件 |*.txt | Word文档|*.doc” CD1.FilterIndex=2 CD1.ACtion=1 If CD1.FileName<> ““Then Open CD1.FileName For Input As#1 n=LOF(1) Textl=Input$(n,#1) ClOse #1 EndIf End Sub 步骤2,按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/z8Up777K
0

最新回复(0)