2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。本程序只有一个窗体，当把鼠标光标移到窗体上时，每双击一次鼠标，就变换一种鼠标光标的形状，依次显示鼠标光标的15种属性。程序运行后的窗体如图59—4所示。 注意：

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。本程序只有一个窗体，当把鼠标光标移到窗体上时，每双击一次鼠标，就变换一种鼠标光标的形状，依次显示鼠标光标的15种属性。程序运行后的窗体如图59—4所示。 注意：

admin2009-03-26  5
问题  (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。本程序只有一个窗体，当把鼠标光标移到窗体上时，每双击一次鼠标，就变换一种鼠标光标的形状，依次显示鼠标光标的15种属性。程序运行后的窗体如图59—4所示。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程文件sj4．vbp，窗体文件sj．frm，该程序是不完整的。在窗体上已经域出一个图像框，名称为Imagel；一个水平滚动条，名称为HScroll1。要求考生不改动Imagel的Height与width属性。当运行程序时，图像框中加载考生文件夹下的图片test．bmp。滚动水平滚动条中的滚动块时，图片会随着滚动条的滚动进度逐渐显露出来，如图59—5所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。
选项
答案 (1)本题主要考查考生对鼠标的MousePointer属性的掌握情况。 MousePointer属性用于设置鼠标经过某对象时光标的形状类型，既可以在属性窗口设置，也可以通过代码设置。IVLousePointer属性值可以是0～15之间的任一整数，不同的值代表不同的形状。MousePointer属性值通过代码设置的一般格式为：对象名．MousePointer=n(n为0～15间的整数)。 根据题意，将两个标签添加到窗体中，名称分别为Labell和Label2、Caption属性分别为“当前鼠标形状为：”和“1”，并设置MousePointer属性为1。双击Forml进入代码窗口，补充后的具体代码如下： Private Sub Form_DblClick() If Me．MousePointer<15 Then Me．MousePointer=Me．MousePointer+1 ’双击后鼠标的形状属性加l Else Me．MousePointer=1 ’当鼠标的形状属性大于15，则变回1 End If Label2．Caption=Me．MousePointer’在label2上显示鼠标当前属性 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)窗体加载时触发Form_Load事件。滚动条的事件主要有Scroll和Change事件。当在滚动条内拖动滑块时触发Scroll事件(单击滚动箭头或滚动条时不发生Scroll事件)，而改变滑块的位置后会触发Change事件。Scroll事件用于跟踪滚动条中的动态变化，Change事件则用来得到滚动条最后的值。加载图片可以在属性窗口的Picture属性中设置，也可以在代码中通过LoadPicture(“图像文件路径”)图片加载函数加入图片。 根据题意，将一个水平滚动条控件和一个图像控件添加到窗体中，水平滚动条的名称为HScrolll、Min属性为400、Max属性为2 295，Image的名称为Imagel，并在其Picture属性中加载考生文件夹下的“test．bmp”图片。双击HScrolll进入代码 窗口，编写如下代码： Private Sub Form_Load() Imagel．Width=HScrolll．Value’初始化，显示大小为水平滚动条的当前值 End Sub Private Sub HScrolll_Change() Imagel．Width=HScrolll．Value’图像显示的大小是由水平滚动条决定的 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/AV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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