首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左
在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左
admin
2016-01-31
74
问题
在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左边线上,如图3-140(a)所示;滚动块在最右边时,圆靠在矩形的右边线上,如图3-140(b)所示。垂直滚动条的情况与此类似。
文件中已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
审题分析 本题在窗体加载过程中初始化水平滚动条和垂直滚动条的Min属性和Max属性值,以使其能与圆形Shape1所能到达的左边界、右边界、上边界、下边界一致,其中:HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.Width,VScroll1.Max=Shape2.Height+Shape2.Top-Shape1.Height。当水平或垂直滚动条移动时,通过在其Change事件过程中设置Shape1的Left属性值或Top属性值与滚动条的Value属性值一致即可。 操作步骤 步骤1:打开考生文件下的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.Width VSCEOll1.Max=Shape2.Heiqht+Shape2.Top-Shape1.Height Shape1.Left=HScroll1.Value Shape1.Top=VScroll1 步骤2:按要求将文件保存至考生文件夹中。 考点链接 滚动条。
解析
转载请注明原文地址:https://kaotiyun.com/show/2uLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:PrivateSubCommandl_Click()S=0Fori=1To15x=2*i-1
若想使时钟控件每隔0.25秒触发一次Timer()事件,则可将Interval属性值设为()。
“商品”与“顾客”两个实体集之间的联系一般是()。
英文缩写“OOP’’的含义是()。
如果要在文本框中输入字符时,只显示某个字符,如星号(*),应设置文本框的()属性。
只能用来显示字符信息的控件是()。
若要将复选框设置成图形模式,则应设置()属性值为“1-vbButtonGmphical”。
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()Dima
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Art(j,k)=(j-1)*3+kNextkNextjForj=2To3Fork=2To3Printarr(k,j);
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()ForI=1To2ForJ=1ToIPrintString(I,"Hello");NextJPrintN
随机试题
冠状动脉发生粥样硬化病变最多见于()
抗原抗体反应中有补体参与的反应pH为
膀胱癌最常见和最早出现的症状是
下列项目中应通过“其他应收款”核算的有()。
(2016年)在其他条件不变的情况下,关于单利计息、到期一次还本付息的可转换债券的内含报酬率,下列各项中正确的有()。
将当前表中所有的学生年龄加1,可使用命令: 【】年龄WITH年龄+1
已知事件对应的程序代码如下:PrivateSubCommand0_Click()DimJAsIntegerJ=100CallGetData(J+5)MsgBoxJEndSubPrivateSubGetData(ByRef
WhichofthefollowingsentencesexpressesSPECULATION(推测)?
Youmaydepend_______him.Heis_______honestman.
AsSesameStreetkicksoffits40thanniversaryseasonTuesday,withfirstladyMichelleObamaandBroadwaystarLin-ManuelMira
最新回复
(
0
)