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

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

admin2010-09-02  31
问题 在考生目录下有一个工程文件sjt5．vbp，包含了所有控件和部分程序。程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认文件类型为“文本文件”，默认目录为考生目录。选中in5．txt文件，如图1-20(a)所示，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中：单击“修改内容”按钮，则可把TextI中的大写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”，“t”改为大写；单击“保存文件”按钮。则弹出“另存为”对话框，默认文件类型为“文本文件”，默认目录为考生目录，默认文件为“outS．txt”，如图1-20(b)所示，单击“保存”按钮，则把Textl中修改后的内容存到outs．txt文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的Click事件过程。
注意：考生不得修改已经存在的程序。必须把Text1中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。
选项
答案 【操作步骤】 步骤l：打开考生文件中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： CommonDi．alOgl．FilterIndex=2 Open CommonDi．alogl．FileName For Input As#1 Textl．Text=s CommonDi．alogl．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) Elself 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：按键运行程序，先单击“打开文件”按钮，接着单击“修改内容”按钮，然后单击“保存文件”按钮。
解析 根据题目原程序，耍使单击“打开文件”按钮时，弹出的“打开”对话框中默认文件类型为“文本文件”，需在Commandl Click事件过程中将CommonDialogl的Filterlndex属性值设置为2。用Open语句打开在“打开”对话框中选中的文件应为：CommonDialogl．FileName。文本框中显示的内容应为用Input语句从文件中读出的内容，即s。
    在单击“打开文件”按钮时，要弹出“另存为”对话框，需将CommonDialogl的Action属性值设置为2。
    要在单击“修改文件”按钮时，把Textl中的大写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”、“t”改为大写，可在“修改内容”按钮的单击事件过程中，通过For循环用Mid函数逐一取出文本框Textl中的每个字符放入一个变量(如ch)中，假如取出的字符是大写字母“E”、“N”、“T”，则用Lcase函数将其转换为小写；若取出的字符是小写字母“e”、“n”、“t”，  则用Ucase函数将其转换为大写。最后将该变量中的字符用“&”连入一个字符串变量(如s)中。循环结束时，将s的值重新显示在’Textl中。
转载请注明原文地址:https://kaotiyun.com/show/nTmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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