注意:下面出现的“考生文件夹”均为C:\wexam\25160002。 (1) 在考生文件夹下有一个工程文件sjt3.vbp,两个窗体文件,文件名分别为sjt31.frm和sjt31.frm。此工程实现的功能是,在运行时只显示名为Form2的窗体,单

admin2009-03-17  24

问题 注意:下面出现的“考生文件夹”均为C:\wexam\25160002。
   (1) 在考生文件夹下有一个工程文件sjt3.vbp,两个窗体文件,文件名分别为sjt31.frm和sjt31.frm。此工程实现的功能是,在运行时只显示名为Form2的窗体,单击Form2上的C2按钮,则显示名为Form1的窗体;单击Form1上的C1按钮,则Form1的窗体消失。这个程序并不完整,要求:
   把Form2设为启动窗体;把Form1上按钮的标题改为“隐藏”,把Form2上按钮的标题改为“显示”。去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图26-3所示。
   注意:工程文件和窗体文件仍以原来的文件名存盘。
   (2) 在考生文件夹下有一个工程文件sjt4.vbp,它的功能是在文本框中输入一个整数,单击“移动”按钮后,如果输入的是正数,滚动条中的滚动框向右移动与该数相等的刻度,但如果超过了滚动条的最大刻度,则不移动,并且显示“文本框中的数值太大”;如果输入的是负数,滚动条中的滚动框向左移动与该数相等的刻度,但如果超过了滚动条的最小刻度,则不移动,并且显示“文本框中的数值太小”。程序运行界面如图26-4所示。
   要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。

选项

答案在窗体建立好控件后,先设置控件属性,再事件过程。 命令按钮的标题通过Caption属性修改。单击命令按钮触发Click事件。在多窗体中,可以指定启动窗体,方法是:点击“工程”菜单下的“工程属性”命令,打开“工程属性”对话框,然后单击“启动对象”栏右端的箭头,下拉显示当前工程中的所有窗体的列表,单击要作为启动窗体的对象名,然后单击“确定”按钮,即可把所选窗体设置为启动窗体。要使窗体显示或隐藏可以设置窗体的Visible属性,设置为False时,窗体隐藏设置为True时,窗体显示。解题步骤: 第一步:建立界面并设置控件属性。 程序提供了需要的控件,只需修改这些控件属性即可。Form1用到的控件及其属性见表26-3。 [*]   Form2用到的控件及其属性见表26-4。 [*] 建立好控件后,将窗体Form2设置为启动窗体。 第二步:编写程序代码。 题目提供的代码: 窗体1的代码: Private Sub C1_Click() ’Form1.Visible = ? End Sub 窗体2的代码: Private Sub C2_Click() ’Form1.visible = ? End Sub 第三步:调试并运行程序。 第四步;按题目要求存盘。 滚动条能表示的最大值有Max属性设置,最小值由Min属性设置。滚动条的当前值由Value属性设置。当 Value值大于Max属性或小于Min属性值时,用Msgbox语句生成消息框。解题步骤: 第一步:编写程序代码: 题目提供代码: Private Sub C1_Click() ’If HS1.Value + Text1.Text > HS1.? Then MsgBox "文本框中的数值太大" ’ElseIf HS1.Value + Text1.Text < ? Then MsgBox "文本框中的数值太小" Else (2) ’? = HS1.Value + Text1.Text End If End Sub 参考代码: Private Sub C1_Click() If HS1.Value + Text1.Text > HS1.Max Then MsgBox "文本框中数值太大" ElseIf HS1.Value + Text1.Text < HS1.Min Then MsgBox "文本框中的数值太小" Else HS1.Value = HS1.Value + Textl.Text End If End Sub 第二步;调试并运行程序。 第三步:按题目要求存盘。

解析
转载请注明原文地址:https://jikaoti.com/ti/Mdq0FFFM
0

最新回复(0)