请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“扩大”和“移动”。如图1-91所示,编写适当的事件过程。程序运行后,如

admin2010-09-02  31

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“扩大”和“移动”。如图1-91所示,编写适当的事件过程。程序运行后,如果单击“扩大”按钮,则使窗体在高、宽方向上各增加0.2倍(变为原来的1.2倍);如果“移动”命令按钮,则使窗体向右移动200,向下移动100。
要求:程序中不得使用变量。
①存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在名称为Forml的窗体上画一个标签,其名称为Labell,标题为“计算机等级考试”,Left属性为0;再画一个水平滚动条,其名称为HScrolll,在属性窗口中设置其属性如下:

编写适当的事件过程。程序运行后,如果移动滚动条上的滚动框,则可使标签向相应的方向移动,标签距窗体左边框的距离等于滚动框的位置,程序的运行情况如图1-92所示。要求:程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第l小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,如表2-48在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写两个命令按钮的单击事件过程。 参考代码: PriVate Sub Commandl_Click() Height=1.2*Me.Height Me.Width=Width*1.2 End Sub PriVate Sub Command2_Click() Left=Left+200 Top=Top+100 End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,在窗体Forml中加入一个水平滚动条和一个标签,在属性设置窗口中设置其相关属性,其属性及值如表2-49所示。 [*] 步骤2:双击窗体Forml上的水平滚动条,打开代码编辑窗口,在Change事件过程中输入以下代码: 参考代码: PriVate Sub HScroll1_Change() Labell.Left=Me.HScrolll End Sub PriVate Sub HScroll1_Scroll() Label1.Left=Form].HScrolll End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第l小题
  ①控件(包括窗体)的Height和Width属性用于设置控件在屏幕上的大小(即高和宽),Top和Left属性用于设置控件上边和左边的位置。
  要在单击“扩大”按钮时,使窗体在高、宽方向上各增加0.2倍,只需在“扩大”按钮的Click事件中编写设置窗体的Height和Width属性值为原来1.2倍的语句。要使窗体向右和向下移动,需要在“移动”按钮的Click事件中编写增加窗体的Top和Left属性的语句。
第2小题
    ①滚动条分为水平滚动条(HscrollBar)和垂直滚动条(VscrollBar)两种,常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值,滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值,即Value属性值的取值范围,在程序中改变Value属性的值,滚动条滑块会随之移动到相应位置。LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量,SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。②滚动条滑块位置改变时将触发其Change事件,拖动时将触发其Scroll事件。
  要在程序运行时,移动滚动条上的滑块就能使标签向相应的方向移动,只需在滚动条的Change事件过程中编写利用滚动条的Value属性值来决定标签的Left属性值的语句即可。
转载请注明原文地址:https://kaotiyun.com/show/YUmp777K
0

最新回复(0)