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

A．Private Sub Hscroll1_Change()
Text1.Text=HScroll1.Value
End Sub

B．Private Sub Hscroll1_Click()
Text1.Text=HScroll1.Value
End Sub

C．Private Sub Hscroll1_Change()
Text1.Text=Hscroll1.Caption
End Sub

D．Private Sub Hscroll1_Click()
Text1.Text=-Hscroll1.Caption
End Sub

红方摔倒被黑方压住造成肘关节脱臼失去比赛能力，应判（）。

A.黑方犯规

B.红方获胜

C.黑方获胜