VB实验求编码求Sn=a+aa+aaa+...+aa...aaa(n个a),其中a是通过滚动条获得的一个1~9（包括1和9）中的一个正整数，n是通过滚动条获得的5~10（包括5和10）中的一个数要用滚动条

Question

VB实验求编码
求Sn=a+aa+aaa+...+aa...aaa(n个a),其中a是通过滚动条获得的一个1~9（包括1和9）中的一个正整数，n是通过滚动条获得的5~10（包括5和10）中的一个数
要用滚动条

Answer 1

Dim a As Integer, n As Integer

Private Sub Command1_Click()

  s = 0

  t = a

  For i = 1 To n

    s = s + t

    t = t * 10 + a

  Next i

  MsgBox "S=" & s

End Sub

Private Sub Form_Load()

  HScroll1.Min = 1

  HScroll1.Max = 9

  HScroll2.Min = 5

  HScroll2.Max = 10

  Label1.Caption = "a=1"

  Label2.Caption = "n=1"

End Sub

Private Sub HScroll1_Change()

  a = HScroll1.Value

  Label1.Caption = "a=" & a

End Sub

Private Sub HScroll2_Change()

  n = HScroll2.Value

  Label2.Caption = "n=" & n

End Sub