是这样一个题: 求a+aa+aaa+aaaa+....+aaa..a(n个),其中a为1-9之间的整数.
例如:当 a=1, n=3 时,求1+11+111之合;
当 a=5, n=7时, 求5+55+555+5555+55555+555555+5555555之合.
我的代码如下;
Module Module1

Sub Main()
Dim n, i, h, k As Integer
Dim a, j As String
j = ""
a = Console.ReadLine()
n = CSng(a) + 2
For i = 1 To n
For k = 1 To n
j += CStr(k)
Next k
h = h + CInt(j)
Next i
Console.Write("您的答案是：" & h)
Console.ReadLine()
End Sub

End Module
他提示我h = h + CInt(j)有超出数据范围的可能性,有人回答我问题吗?

各位不要光说，不练，拿出点方案

Module Module1

Sub Main()
Dim n, i, h, k As Integer
Dim a, j As String
j = ""
a = Console.ReadLine()
n = CSng(a) + 2
For i = 1 To n
For k = 1 To n
j += CStr(k)
Next k
h = h + CInt(j)
Next i
Console.Write("您的答案是：" & h)
Console.ReadLine()
End Sub

End Module

其实是：红色的地方出了问题

因为你的5555555超出了Integer的范围，所以 应该把红色的地方改成 Dim n, i, h, k As Long