B=b+a abel. caption=”101-500之间的奇数“+h(13)+“和为:”&b End sub Private sub command2 click End sub 2. Hscrolll(hscroll, hscroll) small chans Min large change 10 value Private sub picture click A=hscolll, value B=hscoll2 value C=hscoll3 value Picture. backcolor=rgb(a, b, c) End subB=b+a Next label.caption=”101-500 之间的奇数“+hc(13)+“和为:”& b End sub Private sub command2.click() List1.dear End sub 2.Hscroll1(hscroll2,hscroll3) Max 255 small change 1 Min 0 large change 10 Value 0 Private sub picture1_click() Dim a,b,c A=hscoll1.value B=hscoll2.value C=hscoll3.value Picture.backcolor=rgb(a,b,c) End sub