在考生目录下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。程序运行时,单击”打开文件”按钮,则弹出”打开”对话框,默认文件类型为”文本文件”,默认目录为考生目录。选中in5.txt文件,如图2-20(a)所示,单击”打开”按钮,则把文件中的内容

admin2019-06-20  35

问题 在考生目录下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。程序运行时,单击”打开文件”按钮,则弹出”打开”对话框,默认文件类型为”文本文件”,默认目录为考生目录。选中in5.txt文件,如图2-20(a)所示,单击”打开”按钮,则把文件中的内容读入并显示在文本框(Textl)中;单击”修改内容”按钮,则可把Textl中的大写字母”E”、”N”、”T”改为小写,把小写字母”e”、”n”、”t”改为大写;单击”保存文件”按钮,则弹出”另存为”对话框,默认文件类型为”文本文件”,默认目录为考生目录,默认文件为”out5.txt”,如图2-20(b)所示,单击”保存”按钮,则把Textl中修改后的内容存到out5.txt文件中。
窗体中已经给出了所有控件和程序,但程序不完整,去掉程序中的注释符,把程序中的?改为正确的内容,并编写”修改内容”按钮的Click事件过程。
注意:考生不得修改已经存在的程序。必须把Textl中修改后的内容用”保存文件”按钮存储结果,否则无成绩。最后,按原文件名把程序存盘。

选项

答案步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。 参考代码: CommonDialogl.FilterIndex=2 Open CommonDialogl.FileName For Input As#1 Textl.Text=s CommonDialog 1.Action.=2 步骤2:按指定位置编写”修改文件”的单击事件过程。 参考代码: PriVate Sub Command2_Click( ) 考生需要编写的程序 s=““ str_len=Len(Text1) For k=1 To str_len ch=Mid$(Text1,k,1) If ch=“E”Or ch=“N”Or ch=“T” Then s=s&LCase(ch) ElseIf ch=“e”Or ch=“n”Or ch =“t”Then s=s&UCase(ch) Else s=s&ch End If Next k Textl=s End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序,先单击”打开文件”按钮,接着单击”修改内容”按钮,然后单击”保存文件”按钮。

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

最新回复(0)