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

admin2019-05-14  22

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

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

选项

答案【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: CommonDialog1.FilterIndex = 2 Open CommonDialog1.FileName For Input As #1 Text1.Text = s CommonDialog1.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 Text1 = s End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序,先单击“打开文件”按钮,接着单击“修改内容”按钮,然后单击“保存文件”按钮。

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

相关试题推荐
最新回复(0)