首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScroll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性: Max=窗体高度 Min=0 Large
在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScroll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性: Max=窗体高度 Min=0 Large
admin
2016-06-30
80
问题
在名称为Form1的窗体上画一个垂直滚动条和一个命令按钮,其名称分别为VScroll1和Command1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性:
Max=窗体高度
Min=0
LargeChange=50
SmallChange=10
如果移动垂直滚动条的滚动框,则在窗体上显示滚动框的刻度值。
程序的运行情况如图所示。
要求:不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3。 [*] 步骤2:编写程序代码。 Private Sub Commandl_Click() VScroll1.Max=Form1.Height VScroll1.Min=0 VScroll1.LargeChange=50 VScroll1.SmallChange=10 End Sub Private Sub VScroll1_Change() Print VScroll1.Value End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意,在命令按钮的单击事件过程中用代码动态设置垂直滚动条的属性,并且在垂直滚动条的Change事件过程中,用Print方法将垂直滚动条滑块位置的Value属性值输出到窗体上。
转载请注明原文地址:https://kaotiyun.com/show/ZeLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若要使标签控件显示时不覆盖其背景内容,应设置标签的()属性。
下列程序弹出对话框中按钮的个数为______。MsgBox“确认!”,vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation,“提示;”
下列叙述中正确的是()。
如果在一新建的工程中使用其他工程已设计好的窗体,可以采用()步骤将其添加到当前工程中。
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不能响应的事件
阅读下列程序:PrivateSubCommand1_Click()DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintFun(k); Ne
设Y是整形变量,能判断Y为奇数的表达式是
下列关于队列的叙述中正确的是
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
随机试题
产期荚膜梭菌的芽孢呈_________形,位于菌体的_________部位,其直径_________菌体宽度。
()抽油机游梁顺着驴头方向(前)位移故障为:中央轴承座前部的两条顶丝未顶紧中央轴,使游梁向驴头方向位移了。
我国《收养法》规定,不满________周岁的未成年人可以被收养。()
A.刷去毛B.燎去毛C.烫去毛D.挖去毛E.撞去毛狗脊净制去毛时应
下列不属于药品、医疗器械、保健食品和特殊医学用途配方食品广告申请途径的是
甲、乙签订的买卖合同约定了定金和违约金条款。甲违约,给乙造成经济损失。根据《合同法》的规定,下列各项中,乙追究甲违约责任的方式有()。
根据《中华人民共和国水法》,国民经济和社会发展规划以及城市总体规划的编制、重大建设项目的布局,应当与当地水资源条件和()要求相适应,并进行科学论证。
对某市第二中学初中部学生的调查发现,拥有数学学习机人数最多的班也是数学成绩最好的班。因此,利用数学学习机可以提高数学成绩。以下哪项如果为真,最能加强上述结论?
设x="123",y=123,k="y",表达式x+&k的值是( )。
I’vebeenwritingformostofmylife.ThebookWritingWithoutTeachersintroducedmetoonedistinctionandonepracticethat
最新回复
(
0
)