2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；有一个名称为CDl的通用对话框；还有三个命令按钮，名称分别为Cl、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图1-80所示。命令按钮的功能是

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；有一个名称为CDl的通用对话框；还有三个命令按钮，名称分别为Cl、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图1-80所示。命令按钮的功能是

admin2010-09-02  41
问题 在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；有一个名称为CDl的通用对话框；还有三个命令按钮，名称分别为Cl、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图1-80所示。命令按钮的功能是：“打开文件”：弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in5．txt文件后，该文件中的内容显示在Textl中；“转换”：把Text1中的所有小写英文字母转换成大写；“存盘”：把Textl中的内容存入考生文件夹下的out5．dat文件中。在窗体中已经给出了部分程序，要求：
①请去掉程序中的注释符，把程序中的?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。
②编写“转换”按钮的Click事件过程。最后把修改后的文件按原文件名存盘。
注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5．txt文件进行转换，并把转换结果通过单击“存盘”按钮存入考生文件夹下的out5．dat文件中，否则无成绩。
选项
答案 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： CDI．FiiterIndex=2 Textl．Text=a CDI．Action=2 步骤2：按指定位置编写“转换”按钮的单击事件过程。 参考代码： Private Sub C2_C1ick() Dim a As String，b As String，c As String， k As Integer，n As Integer a=Textl．Text b="" n=Asc("a")-Asc("A") For k=1 To Len(a) c=Mid$(a，k，1) If C>="a"And C<="Z"Then c=String(1，Asc(c)-n) End If b==b+C Next k Textl．Text=b End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按键运行程序，先单击“打开文件”按钮，接着单击“转换”按钮，最后单击“存盘”按钮。
解析 根据题目原程序，要使单击“打开文件”按钮时，弹出的“打开”对话框中默认文件类型为“文本文件”，需在C1_Click事件过程中将CDl的Filterlndex属性值设置为2。用Open语句打开在“打开”对话框中选中的文件应为：CDl．FileName。文本框中显示的内容应为用Input语句从文件中读出的内容，即变量a。
    在单击“存盘”按钮时，要弹出“另存为”对话框，需将CDl的Action属性值设置为2。
    要在单击“转换”按钮时，把Textl中的小写字母“改为大写，可在“转换”按钮的单击事件过程中，通过For循环用Mid函数逐一取出文本框Textl中的每个字符放入一个变量(如c)中，假如取出的字符是小写字母，则用Ucase函数将其转换为大写。最后将该变量中的字符用“&”连入一个字符串变量(如b)中。循环结束时，将b的值重新显示在Textl中。
转载请注明原文地址:https://kaotiyun.com/show/4Fmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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