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

admin2018-07-11  30

问题 在考生目录下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认文件类型为“文本文件”,默认目录为考生目录。选中in5.txt文件,如图2.207(a)所示,单击“打开”按钮,则把文件中的内容读入并显示在文本框(Text1)中;单击“修改内容”按钮,则可把Text1中的大写字母“E”、“N”、“T”改为小写,把小写字母“e”、“n”、“t”改为大写;单击“保存文件”按钮,则弹出“另存为”对话框,默认文件类型为“文本文件”,默认目录为考生目录,默认文件为“out5.txt”,如图2.207(b)所示,单击“保存”按钮,则把Text1中修改后的内容存到out5.txt文件中。

    窗体中已经给出了所有控件和程序,但程序不完整,去掉程序中的注释符,把程序中的?改为正确的内容,并编写“修改内容”按钮的Click事件过程。
    注意:考生不得修改已经存在的程序。必须把Text1中修改后的内容用“保存文件”按钮存储结果,否则无成绩。最后,按原文件名把程序存盘。

选项

答案【操作步骤】 步骤1:打开考生文件中的本题工程文件sit5.vbp,在代码编辑窗口,去掉程序中的注释符“”’,将问号“?”改为正确的内容。 参考代码: CommonDialogl.FilterIndex=2 Open CommonDialogl.FileName For InputAs#1 Textl.Text=S CommonDialogl.Action=2 步骤2:按指定位置编写“修改文件”的单击事件过程。 参考代码: Private Sub Command2一Click() 考生需要编写的程序 S=“” str—len=Len(Textl) For k=1 To str—len ch=Mid$(Textl,k,1) If ch=“E”Or ch=”N”Or ch =”T”Then s=s&LCaSe(ch) E1SeIf 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:按键运行程序,先单击“打开文件”按钮,接着单击“修改内容”按钮,然后单击“保存文件”按钮。

解析
转载请注明原文地址:https://jikaoti.com/ti/EFy0FFFM
0

最新回复(0)