问题描述：
VBA程序设计代码,输入一个大于一的整数,然后分别计算从0到该数之间的奇数和和偶数和,怎么设计?如图
问题解答：
我来补答
你的图与你的问题无关
你是要做类似图中这样的吗?
代码如下
Private Sub CommandButton1_Click()
Dim i&, x&, js&, Os&
i = TextBox1.Value
For x = 0 To i
If x Mod 2 Then Os = Os + x Else js = js + x
Next x
TextBox2.Value = Os
TextBox3.Value = js
End Sub
图如下
再问： 是这样的效果，但我按照这个代码试了，好象不行。
这样是什么情况，怎么调试？
再答： 数据类型
你是要做类似图中这样的吗?
代码如下
Private Sub CommandButton1_Click()
Dim i&, x&, js&, Os&
i = TextBox1.Value
For x = 0 To i
If x Mod 2 Then Os = Os + x Else js = js + x
Next x
TextBox2.Value = Os
TextBox3.Value = js
End Sub
图如下
再问： 是这样的效果，但我按照这个代码试了，好象不行。
这样是什么情况，怎么调试？再答： 数据类型
展开全文阅读