一道VB习题，求答案

来源：百度知道 编辑：UC知道 时间：2024/05/11 04:43:42
题目：输出101到500之间的所有奇数，每行显示10个奇数，并输出奇数之和。要详尽的可以执行的程序代码，谢谢，OK的追加分哦~谢谢各位啦

Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim s As Long
j = 0
s = 0
Me.AutoRedraw = True '自动重画，显示结果
For i = 101 To 500
If i Mod 2 = 1 Then
Me.Print i;
s = s + i
j = j + 1
If j = 10 Then
Me.Print
j = 0
End If
End If
Next i
Me.Print
Me.Print "SUM="; s
End Sub
调试通过

for i=101 to 500
line=line+1
if line mod 10 =0 then
print chr(13)
end if
print i
sum =sum+i
i=i+2
next i
大概意思这样 我这没有VB 不好调试