1、
Dim n As Integer, s As Integer
n = InputBox("请输入一个偶数n")
s = 0
Do While n >= 2
s = s + ((n - 1) * 10 + 2) - (n * 10 + 2)
n = n - 2
Loop
MsgBox "S=" & Str(s)
2、
Dim n As Integer, s As Integer, i As Integer
n = InputBox("请输入一个偶数n")
s = 0
For i = 2 To n Step 2
s = s + ((i - 1) * 10 + 2) - (i * 10 + 2)
Next
MsgBox "S=" & Str(s)
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
