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

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

admin2009-02-13  59
问题 下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。
       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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)