Private Sub Command1_Click() n = CInt(InputBox("请输入N=？")) For i = 1 To n s = s + 2 * i - 1 Next i Print sEnd Sub
