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

admin2010-07-13  37

问题 (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://kaotiyun.com/show/TGmp777K
0

最新回复(0)