请教各位高手奇数相加的编程
本人才学不久,老师给了道题,让计算奇数之和,但是没说范围是多少的奇数,我自己试过好多遍就是不显示!问题是: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