请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1,标题为“滚动条属性设置”的窗体上画1个名称为VScroll1的垂直滚动条,设置属性,使得滚动块在最上面时,其位置值为10;滚动块在最下面时,其位置值为

admin2017-03-27  24

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1,标题为“滚动条属性设置”的窗体上画1个名称为VScroll1的垂直滚动条,设置属性,使得滚动块在最上面时,其位置值为10;滚动块在最下面时,其位置值为30;窗体刚显示时,滚动块处在中间位置,如图3—27所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上,画1个名称为Label1的标签,其标题为“等级考试”,显示为宋体10号字,且能根据标题内容自动调整标签的大小,并有凹陷效果,如图3—28所示。再画1个名称为Timer1的计时器控件,通过属性窗口设置有关属性,使其不可用,时间间隔为1秒。

要求:编写适当的事件过程,使得程序运行时,单击Label1标签,则每隔1秒,Label1中所显示的内容在原有基础上增大1个字号;单击窗体,Label1中的内容停止增大。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个垂商滚动条。按表4—18设置其相关属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个标签和定时器。按表4—19设置其相关属性。 [*] 步骤2:在打开的代码编辑窗口中,编写标签、窗体的Click事件代码和定时器Timer事件代码。 参考代码: Private Sub Form_Click() Timer1.Enabled=False End Sub Private Sub Label1_Click() Timer1.Enabled=True End Sub Private Sub Timer1_Timer() Label1.FontSize=Label1.FontSize+1 End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题:根据题目要求,在窗体上添加一个垂直滚动条,并设置其属性。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值,也是Value属性值的取值范围,在程序中改变Value属性的值,滚动条滑块会随之移动到相应位置。
设置滚动块位十滚动条的中间位置,即把Value属性设置为Min和Max平均值。
第2小题:根据题目要求在单击标签框的时候周期性地增大1个字号,需要在标签的Click事件代码里面使能定时器Timer1。在定时器的Timer事件代码里面将标签的FontSize增加1。早单击窗体时,停止增大,说明在窗体的Click事件代码里面禁用定时器Timer1。
转载请注明原文地址:https://jikaoti.com/ti/SOy0FFFM
0

最新回复(0)