2. 计算机
  3. 有下列程序代码： Private Sub Command1-Click() Randomize Dim x(30)As Integer，s As Integer For k％=1 To 30 x(k)=Int(Rnd*100) Next k For k=1

有下列程序代码： Private Sub Command1-Click() Randomize Dim x(30)As Integer，s As Integer For k％=1 To 30 x(k)=Int(Rnd*100) Next k For k=1

admin2018-12-20  12
问题 有下列程序代码：
Private Sub Command1-Click()
Randomize
Dim x(30)As Integer，s As Integer
For k％=1 To 30
x(k)=Int(Rnd*100)
Next k
For k=1 To 30
If x(k)Mod 2=1 Then
s=s+x(k)
End If
Next k
Print s
End Sub
程序运行后的输出是(    )。
选项 A、30个随机整数中所有个位数为1的数之和
B、30个随机整数中所有偶数的和
C、30个随机整数的和
D、30个随机整数中所有奇数的和
答案D
解析 第一个For循环利用表达式Int(Rnd*100)随机产生一个[0，99]之间的整数，并依次赋值给数组中每个元素。第二个For循环语句的功能是：循环遍历数组中的所有元素，使用If语句判断每个元素是否为奇数，若是奇数则将该元素累加到变量s中。综上所述，本程序的功能是随机产生30个整数，并将所有奇数进行累加输出。故D选项正确。
转载请注明原文地址:https://jikaoti.com/ti/2cm0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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