本人才学不久，老师给了道题，让计算奇数之和，但是没说范围是多少的奇数，我自己试过好多遍就是不显示！
问题是：text1是说输入的奇数值，text2是显示相加后的结果，要求是text1中输入的奇数要循环相机的，偶数不计算！   急求，谢谢了！
 以下是本人自己试的！
Private Sub Command1_Click()
    Dim n, k As Long
       k = 0
    For n = 1 To 100
        If (n Mod 2) = 1 Then
        
        k = k + n
    End If
    Next n
    n = Val(Text1.Text)
    k = Val(Text2.Text)
   
End Sub

Private Sub Command2_Click()
    End
   
End Sub

什么意思啊，没看明白

楼主加加注释吧，真没看明白

就是让用VB来编程计算奇数之和，text1.text里输入奇数数值，text2.text里通过计算后显示所有在text1输入过的奇数相加的结果，比如，起始输入3，text2显示的也是3。然后输入5，显示的就是8了，一直累计相加......我也不知道我说的明不明白！希望能看懂，麻烦了！

另外 是点command1指令计算，点command2指令结束

Dim i As Long, j As Long
Dim k As Long
i = CLng(Text1.Text)
For j = 3 To i Step 2
'从3加起，如果小于3的值，就会不执行计算部分
    k = k + j
Next j

Text2.Text = k

收到的鲜花

• 花鳥風月 于 2012-02-29 14:56 送鲜花  3朵   附言：谢谢了！ 可惜还是有些遗憾呀！应该是我还 ...

哦了谢谢
请问 CLNG是什么意思啊？和VAL什么区别？能替换吗？

我试了一下，好用！但是如果输入偶数的话，也计算了！能不能输入偶数让它不计算呀？用if i mod 2 =1 可以吗？应该加在什么地方啊

第一次输入3 结果是3
第二次输入5 结果是8
第三次输入3 期望结果是多少啊：是3还是11？

收到的鲜花

• 花鳥風月 于 2012-02-29 14:57 送鲜花  1朵   附言：谢谢你的关注！(*^__^*)

谢谢了，问题解决了！谢谢你们的帮助！
正确运行的情况下，应该是输入3，结果是3；输入5，结果是8；输入6的话，结果还是8，不变；然后输入7，结果就变成15······依此类推！
另外，让text2.text的初始值为0，比如说先输入偶数的话，结果就是0，然后输入3，结果是3······
我还得努力呀！