下列程序的功能是将数组中的奇数相加。给定的程序不完整 请将程序补充完整。 Option Base 1
下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。 Option Base 1 Private Sub form_Click() Dim k As Integer Dim Total As Integer Dim n n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound(n) If【 】Then Total = Total + n(k) End If Next k Print Total End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
4jj***263
2023-07-21 11:26:55
正确答案：n(k)Mod 2＜＞0或n(k)Mod 2=1或n(k)/2＜＞ Int(n(k)/2)或n(k)/2-Int(n(k)/2)＞0
判定奇数的条件是数据除以2的余数不为0。
相似问题
二叉树是结点的有限集合 这个有限集合或者为【 】 或者由一个根结点及两棵不相交的二叉树组成 分别作为
二叉树是结点的有限集合，这个有限集合或者为【 】，或者由一个根结点及两棵不相交的二叉树组成，分别作为根的左子树和右子树。请帮忙给出正确答案和分
测试是保证软件质量的重要措施 一般测试过程所产生的文档应包括：测试计划 测试过程和【 】。请帮忙给出
测试是保证软件质量的重要措施，一般测试过程所产生的文档应包括：测试计划、测试过程和【 】。请帮忙给出正确答案和分析，谢谢！
在下面程序的执行过程中 将要进行【 】次循环 而在第3次循环输出的数据是【 】。 Private S
在下面程序的执行过程中，将要进行【 】次循环，而在第3次循环输出的数据是【 】。 Private Sub Command1 Click() Dim b(-1 To 3) For i=LBo
下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值 请完善下列程序。 Fur
下列过程的功能是：用来计算并输出S=1+1 2+1 3+…+1 100的值，请完善下列程序。 Furiction SumD (n As Integer)As Single s = 1 i = 1 Do
在面向对象的方法中 一个对象请求另一个对象为其服务是通过发送【 】来完成的。请帮忙给出正确答案和分析
在面向对象的方法中，一个对象请求另一个对象为其服务是通过发送【 】来完成的。请帮忙给出正确答案和分析，谢谢！
