在窗体上画一个Text1文本框和一个HScroll1水平滚动条,然后编写以下程序并运行: Private Sub Form_Load() HScroll1.Max = Text1.Width * 2 HScroll1.Value = Tex

admin2020-04-18  24

问题 在窗体上画一个Text1文本框和一个HScroll1水平滚动条,然后编写以下程序并运行:
Private Sub Form_Load()
    HScroll1.Max = Text1.Width * 2
    HScroll1.Value = Text1.Width
    HScroll1.Width = HScroll1.Max
End Sub
Private Sub HScroll1_Change()
    Text1.Width = HScroll1.Value
End Sub
下面叙述中错误的是

选项 A、拖动滚动条的滚动块,可以改变文本框的宽度
B、窗体刚显示时滚动条的宽度是文本框宽度的2倍
C、文本框的宽度最多可以增加到窗体刚显示时自身宽度的2倍
D、窗体刚显示时滚动块的位置在滚动条的最左边

答案D

解析 初始时,将滚动条能达到的最大值(Max属性)设为文本框宽度的两倍,故B选项正确。初始时,将滚动块在滚动条中的当前位置(Value属性)设置为文本框的宽度,将滚动条能达到的最大值赋值给滚动条的宽度(Width属性),滚动框的位置改变时所触发的事件(Change事件)文本框的宽度就等于滚动块在滚动条的当前位置,即拖动滚动块,能改变文本框的宽度,A选项正确,因为滚动条能达到最大值为文本框宽度的两倍,所以Value值最大也是文本框的两倍,那么在滚动块滚动时,文本框宽度的变化等于Value值,即最多可以增加到窗体刚显示时文本框宽度的两倍,故C项正确。在Form_Load中没有涉及滚动块的位置的代码,故D项错误。
转载请注明原文地址:https://jikaoti.com/ti/n2x0FFFM
0

最新回复(0)