Question

VB循环题 用VB程序实现:求s=2+4+6+……+2n的值,其中n为自然数,由键盘输入

Answer 1

Private Sub Command1_Click()

n = Val(InputBox("请输入一个大于1的自然数"))

s = 0

For i = 1 To n

s = s + 2 * i

Next i

MsgBox s

End Su