(1)在考生文件夹下有一个工程文件sj3.vbp,两个窗体文件,文件名分别为sj31.frm和sj32.frm。此工程实现的功能是,在运行时只显示名为Form2的窗体,单击Form2上的Commandl按钮,则弹出名为Forml的窗体;单击Forml上的C

admin2009-03-26  31

问题 (1)在考生文件夹下有一个工程文件sj3.vbp,两个窗体文件,文件名分别为sj31.frm和sj32.frm。此工程实现的功能是,在运行时只显示名为Form2的窗体,单击Form2上的Commandl按钮,则弹出名为Forml的窗体;单击Forml上的Commandl按钮,则Forml的窗体关闭。这个程序并不完整,要求:
    把Form2设为启动窗体;把Form2上按钮的标题改为“打开”,把Forml上按钮的标题改为“关闭”。去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图48—3所示。
    注意:不得改变工程文件名和窗体文件名,仍按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4.vbp,它的功能是在文本框中输入一个整数,单击“移动”按钮后,如果输入的数大于0,滚动条中的滚动块向下移动到与该数相等的刻度,但如果输入的值大于滚动条的最大值,则不移动,并且显示“数值超过最大值”;如果输入的是负数,滚动条中的滚动块向上移动到与该数相等的刻度,但如果超过了滚动条的最小值,则不移动,并且显示“数值小于最小值”,如图48—4所示。

    注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。

选项

答案(1)根据题意,在工程窗口中单击右键,选择“添加窗体”命令,或选择“工程”→“添加窗体”命令添加一个Form,名称为Form2,然后分别在Forml和Form2中添加一个Command,名称都为Commandl、Caption属性分别为“关闭”和“打开”,设置完成后,双击Forml中的关闭按钮,编写如下代码: Private Sub Commandl_Click() Unload Me’关闭forml End Sub 双击Form2的打开按钮,编写如下代码: Private Sub Commandl_Click() Forml.Show’显示Forml End Sub 单击[*]按钮运行程序,并按要求保存。 (2)滚动条能表示的最大值由Max属性设置,最小值由Min属性设置。滚动条的当前值由Value属性设置。 根据题意,将一个垂直滚动条控件、一个命令按钮、一个文本框控件和一个Label控件添加到窗体中,垂直滚动条的名称为VScrolll、Max属性为500、Min属性为100,命令按钮的名称为Commandl、Caption属性为“移动”,文本框的名称为Textl、Text属性为空,标签的名称为Labell、Caption属性为空。双击Commandl进入代码编写窗口,补充如下参考代码: Private Sub Commandl_Click() Dim i As Integer i=Val(Textl.Text) ’将Textl中的字符串转换成数值 If(VScrolll.Value+i>VScrolll.Max)Then’如果大于最大值 Labell.Caption "数值超过最大值" ’移动后数值如果大于最大值 Elself VScrolll.Value+iMin Then Labell.Caption="数值小于最小值" ’移动后数值如果小于最小值 Else VScrolll.Value=VScrolll.Value+i’满足条件则移动 Labell.Caption="" End If End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)