首页 > 计算机 > 计算机考试 正文

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

时间:2021-07-20 16:26:45 解答: 94 次

[填空题] 下列程序的功能是将数组中的奇数相加。给定的程序不完整,请将程序补充完整。

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 【13】 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。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-03 02:10:52

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-03 02:10:52

←请使用微信扫码支付