请教各位高手奇数相加的编程

花鳥風月发布于 2012-02-29 08:09， 1557 次点击

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

13 回复

apple00720112012-02-29 09:32

什么意思啊，没看明白

NightSky2012-02-29 09:38

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

花鳥風月2012-02-29 09:41

回复 2楼 apple0072011

就是让用VB来编程计算奇数之和，text1.text里输入奇数数值，text2.text里通过计算后显示所有在text1输入过的奇数相加的结果，比如，起始输入3，text2显示的也是3。然后输入5，显示的就是8了，一直累计相加......

我也不知道我说的明不明白！希望能看懂，麻烦了！

花鳥風月2012-02-29 09:43

回复 4楼花鳥風月

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

风吹过b2012-02-29 09:55

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 09:58

回复 6楼风吹过b

哦了谢谢

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

花鳥風月2012-02-29 10:09

回复 6楼风吹过b

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

apple00720112012-02-29 12:20

回复 8楼花鳥風月

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

#10

花鳥風月2012-02-29 14:54

回复 9楼 apple0072011

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

#11

花鳥風月2012-02-29 15:42

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

#12

花鳥風月2012-02-29 15:44

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

#13

terry_zhao2012-03-01 00:24

怎么把VB的东东搬到这来了！

#14

Artless2012-03-01 01:23

以下是引用terry_zhao在2012-3-1 00:24:16的发言：

怎么把VB的东东搬到这来了！