本人才学不久，老师给了道题，让计算奇数之和，但是没说范围是多少的奇数，我自己试过好多遍就是不显示！
问题是：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指令结束

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

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

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

Private Sub Command1_Click()
Dim i, sum As Long
    sum = Val(Text2.Text)
    i = Val(Text1.Text)
    If i Mod 2 = 1 Then
    sum = sum + i
    Text2.Text = sum
End If

End Sub

Private Sub Command2_Click()
    End
   
End Sub

Dim sum As Long

Private Sub Command1_Click()
Dim i As Long
 i = Val(Text1.Text)
 If i Mod 2 = 1 Then
   sum = sum + i
   Text2.Text = sum
 End If
   
End Sub

Private Sub Command2_Click()
    End
   
End Sub

Private Sub Form_Load()
  sum = 0
  Text2.Text = sum
End Sub