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

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

admin2018-07-11  28
问题 有下列程序代码：
    Private Sub Command1_Crick()
    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/IFy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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