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