VB题：定义一个具有20个元素的一维数组,并对其随机赋值,然后求出其中元素值为奇数的元素的和

20个元素,每5个打印一行Private Sub Command1_Click()Dim a(20) As Integer,s As IntegerFor i = 1 To 20a(i) = Int(Rnd * 1000) + 1Print a(i);If i Mod 5 = 0 Then PrintNext iFor i = 1 To 20If a(i) Mod 2 0 The...