用VB,求出s=1+12+123+1234+......+123…n
来源:百度知道 编辑:UC知道 时间:2024/06/15 19:31:52
哪个高手帮哈忙啊!
Private Sub Command1_Click()
Dim s As Double
Dim t As String
Dim n As Integer
Dim i As Integer, j As Integer
For i = 1 To n
t = ""
For j = 1 To i
t = t & j
Next j
s = s + Val(t)
Next i
MsgBox s
End Sub
这个我会,不过悬赏分少了..