使用for循环实现 s=11+22+33+44……使用inputbox输入需要计算次数用msgbox显示计算结果

Dim ret As Long
ipt = InputBox("请输入次数","输入")
ret = 0
For i = 1 To ipt
ret = ret + i * 10 + i
Next
msg = MsgBox("结果:" & ret,vbOKOnly,"输出")
不知道你数组的规律到底是不是+11我就瞎写的(按+11做的).