(1)在名称为Forml的窗体中建立一个标题为“显示结果”、名称为Commandl的命令按钮,要求程序运行后,如果单击“显示结果”按钮,则执行语句Forml.Print“显示结果”;如果单击窗体,则执行语句Form1.Cls,如图32—1所示。 注

admin2009-03-26  28

问题 (1)在名称为Forml的窗体中建立一个标题为“显示结果”、名称为Commandl的命令按钮,要求程序运行后,如果单击“显示结果”按钮,则执行语句Forml.Print“显示结果”;如果单击窗体,则执行语句Form1.Cls,如图32—1所示。
    注意:保存时必须存放在考生文件夹下,窗体文件名为s11.frm,工程文件名为sj1.vbp。
    (2)在名称为.Forml的窗体上建立一个垂直滚动条,名称为VSl,其最大值为50,最小值为0。要求程序运行后,每次移动滚动块时,都执行语句Form1.Print VSl.Value,如图32—2所示(程序中不能使用任何变量)。

    注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。

选项

答案(1)清除窗体上原来的显示的值可以用Cls方法来实现。根据题意,新建“标准EXE”工程,在Forml窗体上放人一个命令按钮,并将其名称设为Commandl、Caption属性为“显示结果”。然后双击Forml中的命令按钮进入代码窗口,编写如下代码: Private Sub Commandl_Click() Forml.Print"显示结果" End Sub Private Sub Form_Click() Forml.Cls End Sub 单击[*]按钮运行程序,并按要求保存。 (2)滚动条表示的最大值由Max属性设置,最小值由Min属性设置,滚动条的当前值由Value属性设置;当滚动框的位置改变时,触发Change事件。 根据题意,新建“标准EXE”工程,在窗体上放人一个垂直滚动条控件,将其名称设为VSl,并将其Max属性为50、Min属性为0。双击VSl控件,进入代码窗口,编写如下代码: Private Sub VSl Change() Forml.Print VSl.Value End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/bN1p777K
0

最新回复(0)