2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体中有一个RichText文本框控件和一个文本框控件，名称分别为RichTextBoxl和Textl，两个命令按钮，名称分别为Commandl和Command2，标

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体中有一个RichText文本框控件和一个文本框控件，名称分别为RichTextBoxl和Textl，两个命令按钮，名称分别为Commandl和Command2，标

admin2010-07-13  34
问题 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体中有一个RichText文本框控件和一个文本框控件，名称分别为RichTextBoxl和Textl，两个命令按钮，名称分别为Commandl和Command2，标题分别为“读入文件”、“统计字数”。要求程序运行后，单击“读入文件”按钮，将考生文件夹下的in．tXt的内容显示到RichTextl中；单击“统计字数”按钮统计RichText1中有多少个字符，将结果显示在Text 1中。程序运行界面如图39—4所示。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上有一个名为Imagel的图像框，要求程序运行后，载入考生文件夹下的temp．bmp图片，鼠标左键单击图像框中的图片，则图片变大；鼠标右键单击图像框中的图片，则图片变小。运行界面如图39—5所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，并设置适当的属性，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)本题主要考查了RichTextBox控件的用法。RichTextBox控件可以用LoadFile和SaveFile方法打开或保存文件，LoadFile方法能将RTF文件或文本文件装入控件，其格式为：对象．LoadFile文件标志符[，文件类型]；统计字符的个数可用Lm(要统计的内容)函数。 根据题意，将一个RichTextBoxl文本框和一个Text文本框控件添加到窗体中，名称分别为RichTextBoxl和Textl、C．1ption属性均为空，两个命令按钮的名称分别为Commandl和Command2、Caption属性分别为“读人文件”和“统计字数”。双击Commandl进人代码编写窗口，具体代码如下： Option Explicit Private Sub Commandl_Click() RichTextBoxl．LoadFile App．Path+"＼in．txt" End Sub Private Sub Command2_Click() If RichTextBoxl．Text<>""Then Textl．Text=Len(RichTextBoxl．Text) End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。MouseUp事件在释放鼠标按钮时发生。根据题意，将一个图像控件添加到窗体中，其名称为Imagel、Picture属性中加载temp．bmp图片、Strech属性为True，双击图像框进入代码编写窗口，编写如下代码： Private Sub Imagel_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) Tf Button=1 Then If Imagel．Height<5000 Or Imagel．Width<5000 Then hnagel．Height=Imagel．Height+300 Imagel.Width=Imagel．Width+300 End If End If If Button=2 Then If Imagel．Heighf>1000 Or Imagel．WidthS>1000 Then Imagel．Height=Irnagel．Height-300 Imagel．Width=Imagel．Width-300 End If End If End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/xyg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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