哥们再麻烦你一下这两道题怎么做

第一题,滚动条的MAX 和MIN 属性分别设置为100和0
Form1
HScroll1 100 0
程序代码如下
Private Sub HScroll1_Change()
Print HScroll1.Value
End Sub
第二题
属性 Value
CH1 经济法 0 1
CH1 税法 1 1
CH1 计算机 2 1
CH1 统计学 3 1