vb 编程：计算5+55+555+………+5555555555的值。

Private Sub Form_Click()
i = 5
s = 0
While i <= 5555555555#
s = s + i
i = i * 10 + 5
Wend
Print s
End Sub

Private Sub Command1_Click()
Dim i As Integer, s As Double, n As Double
n = 5
For i = 1 To 10 '一共10个5
s = s + n
n = n * 10 + 5
Next i
Print "5+55+555+………+" & (n - 5) / 10 & "=" & s
End Sub

这个最能看懂了。。。

Dim s As Double, j As String
j = "5"
s = 5
Do
s = s + j
j = j & "5"
Loop Until j = "5555555555555555555"
MsgBox "5+55+555+5555+...+" & j & "=" & s

var m,c as int
var a,b as str

m=inputbox("最后的位数")

c = 5
if m > 1 then
for i=2 to m
a=str(c)
b=a + "5"
c=int(a)+int(b)
i=i+1
next
endif

msgbox ("结果是:"+ str(c) )