Question

请问这个vb代码怎么写？

求Sn=a+aa+aaa+aaa+…aa…aaa(n个a)，其中a是通过滚动条获得的一个1~9(包括1，9)中的一个正整数，n是通过滚动条获得的5~10(包括5，10)中的一个数下面这个式子该怎么写代码

Answer 1

Private Sub Command1_Click()

Me.Cls

Dim A As String

Dim N As Integer

Dim Sn As String

A = HScroll1.Value

N = HScroll2.Value

For i = 1 To N

    Sn = Sn & A

    Me.Print Sn

Next i

End Sub

Answer 2

Private Sub Command1_Click()
a = HScroll1.Value
n = HScroll2.Value
For i = 1 To n
s = s + Val(String(i, Asc(a)))
Print Val(String(i, Asc(a)))
Next
Print s
End Sub

Private Sub Form_Load()
HScroll1.Max = 9
HScroll1.Min = 1
HScroll2.Max = 10
HScroll2.Min = 5
End Sub

代码如上

Answer 3

OK ,程序我可以提供。