Question

编写vb程序，通过文本框Text1输入N的值，计算1²+3²+5²+……（2N-1）².计算结果显

编写vb程序，通过文本框Text1输入N的值，计算1²+3²+5²+……（2N-1）².计算结果显示在标签Label2中，谢谢大家了！

Answer 1

'VB6测试通过
Private Sub Command1_Click()
    Dim n As Integer, i As Integer, sum As Long
    sum = 0
    n = Val(Text1.Text)
    For i = 1 To n
        sum = sum + (2 * i - 1) * (2 * i - 1)
    Next i
    Label2.Caption = Str(sum)
End Sub

Answer 2

Private Sub Command1_Click()
Dim n%, s&
n = Text1
For i = 1 To n
s = s + (2 * i - 1) ^ 2
Next
Label2 = s
End Sub

Private Sub Form_Load()
Text1 = ""
End Sub

追问

第二个是什么啊