单选题在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是______。

A、 Private Sub Hscroll1_Change()Text1.Text=HScroll1.ValueEnd Sub
B、 Private Sub Hscroll1_Click()Text1.Text=HScroll1.ValueEnd Sub
C、 Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd Sub
D、 Private Sub Hscroll1_Click()Text1.Text=Hscroll1.CaptionEnd Sub

【正确答案】 A

【答案解析】[解析] 本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其Value属性的值，当滑块的位置发生改变时，将触发滚动条的Change事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的Value属性值赋值给文本框的Text属性来实现。