Question

用VB语言编程计算1-10之间奇数的平方和

Answer 1

话说楼上的已经很好了，还要在做什么？
算了，给你个实例吧，添加一个command按钮，输入以下代码
Option Explicit

Private Sub Command1_Click()
Dim result As Long
Dim i As Integer
For i = 1 To 9 Step 2
result = result + i ^ 2
Print result
End Sub
这样窗体上就会显示出1-10之间奇数的平方和

不会再追

Answer 2

for i= 1 to 9 step 2
a=a+i^2
next
print a
不会再追

追问

可以写的更规范完整些么？