注意:下面出现的“考生文件夹”均为%USER%
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为 Form1的窗体上画一个标签,其名称为Label1,然后通过属性窗口设置窗体和标签的属性,实现如下功能:
1)窗体标题为“设置标签属性”
2)标签的位置为:距窗体左边界500,距窗体顶边界300
3)标签的标题为“等级考试”
4)标签可以根据标题的内容自动调整其大小
5)标签带有边框
程序的运行情况如图所示。
要求:
不编写任何代码。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
该窗体上画一个标签控件,通过其属性窗口将名称设为Label1,距窗体左边(Left属性)设为500,距窗体顶 部(Top属性)设为300,标题(Caption属性)设为“等级考试”,标签大小自动调整(AutoSize属性)设为True, BorderStyle属性设为1。激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“设置标签属性”。
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:/wexam/26990001中,然后打开sjt1.vbp文件并运行。
(2)在名称为 Form1的窗体上画一个命令按钮和一个水平滚动条,其名称分别 为Command1和HScroll1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置水平滚动条的属性:
Max = 窗体宽度
Min = 0
LargeChange = 50
SmallChange = 10
而如果移动水平滚动条的滚动框,则在窗体上显示滚动框的位置值。
程序的运行情况如图所示。
要求:
不得使用任何变量。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件 名为sjt2.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个命令按钮控件,通过其属性窗口将名称设为Command1。画一个水平滚动条控件,通过其属性窗口将名称设为HScroll1。
单击命令按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command1_Click()
HScroll1.Max = Form1.Width
HScroll1.Min = 0
HScroll1.LargeChange = 50
HScroll1.SmallChange = 10
End Sub
移动水平滚动条的滚动框(即运行Change事件过程),在该Change事件过程中加入语句:
Private Sub HScroll1_Change()
Print Me.HScroll1.Value
End Sub
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt2.vbp、sjt2.frm、sjt2.vbw
请把这些文件复制到c:/wexam/26990001中,然后打开sjt1.vbp文件并运行。
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。