当单击command1时，在文本框（text1）中输出101~500之间的所有奇数，在文本框（text2）中输出以上所有奇数的和。小弟急求各位大虾，请把commad1的click事件代码写下来。多谢了！！

。。。。。太。。。容。。。。。易。。。。。了。。。。。。吧。。。。。。

Private Sub Command1_Click()
Dim sumj As Long, n As Integer
sumj = 0
For n = 101 To 500
       If (n Mod 2) = 1 Then
                    Text1.Text = Text1.Text & Str(n)
                    sumj = sumj + n
       End If
       Text2.Text = sumj
Next
End Sub