A-A+

下列程序的功能是将数组中的奇数相加。给定的程序不完整 请将程序补充完整。 Option Ba

2022-08-12 20:16:51 问答库 阅读 197 次

问题详情

下列程序的功能是将数组中的奇数相加。给定的程序不完整,请将程序补充完整。 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


请帮忙给出正确答案和分析,谢谢!

参考答案

正确答案: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。

考点:程序,奇数