下列程序的功能是将数组中的奇数相加。给定的程序不完整,请将程序补充完整。 Option Base 1 Private Sub form_Click() Dim k As Integer

admin2009-02-13  32

问题 下列程序的功能是将数组中的奇数相加。给定的程序不完整,请将程序补充完整。
       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。
转载请注明原文地址:https://kaotiyun.com/show/WO2p777K
0

最新回复(0)