单选题有下列程序代码：
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选项正确。