请问如何使用vb，用一个滚动条、两个文本框来设计华氏温度转换器？ Private Sub HScroll1_Change()Text1.Text=\"摄式度为\"&HScroll1.Value&\"℃Text2.Text=\"计华氏温为\"&(HScroll1.Value*1.8)+32&\"TEnd Sub
求Sn=a+aa+aaa+。+aa。aaa(n个a)，其中a是通过滚动条获得的一个1~9（包括1和9）中的一个正整数，n是通过滚动条获得的5~10（包括5和10）中的一个数 Dim a As Integer，n As IntegerPrivate Sub Command1_Click()s=0t=aFor i=1 To ns=s+tt=t*10+aNext iMsgBox\"S=\"&sEnd SubPrivate Sub Form_Load()HScroll1.Min=1HScroll1.Max=9HScroll2.Min=5HScroll2.Max=10Label1.Caption=\"a=1Label2.Caption=\"n=1End SubPrivate Sub HScroll1_Change()a=HScroll1.ValueLabel1.Caption=\"a=\"&aEnd SubPrivate Sub HScroll2_Change()n=HScroll2.ValueLabel2.Caption=\"n=\"&nEnd Sub
VB怎么用滚动条改变text1里面的文字颜色 VB怎么用3个滚动条改变text1里面的文字颜色 Option Explicit Private Function RevRGB(r，g，b)RevRGB=CLng(r+g*256+b*65536)End 。
VB程序设计 设计一个窗体，在窗体上设一个水平滚动条和一个文本框。使用水平滚动条控制文本框中显示的数值，由右向左拖动滑块时，数值在0.05至0.75内同步变化（保留小数点后两位） Private Sub Form_Load()HScroll1.Max=75 HScroll1.Min=5 Text1.Text=\"0.05\"End Sub Private Sub HScroll1_Scroll()Text1.Text=(HScroll1.Value)/100 End Sub Private Sub 。
