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

Private Sub Command1_Click()

  Dim A(1 To 20) As Single, Sum As Single, Str As String

  Sum = 0: Str = ""

  For i = 1 To 20

    Randomize

    A(i) = Int(100 * Rnd + 1)

    Str = Str & Format(CStr(A(i)), "@@@")

    If A(i) Mod 2 <> 0 Then

      Sum = Sum + A(i)

      Str = Str & "  奇数"

    End If

    Str = Str & vbCrLf

  Next i

  Str = Str & vbCrLf

  MsgBox Str & "所有奇数的和=" & Sum

End Sub

20个元素，每5个打印一行
Private Sub Command1_Click()
Dim a(20) As Integer, s As Integer
For i = 1 To 20
a(i) = Int(Rnd * 1000) + 1
Print a(i);
If i Mod 5 = 0 Then Print
Next i
For i = 1 To 20
If a(i) Mod 2 <> 0 Then
s = s + a(i)
End If
Next i
Print " 奇数和为：" & s
End Sub

程序如下，用了二个列表框，一个放随机的20个数，另一个放为奇数的，结果在窗口上打印出来。
Dim AA(20) As Integer
Randomize '随机数初始化
SS = 0
For I = 1 To 20
AA(I) = Rnd(1) * 1000 + 0.5 '随机产生一个数，转换为整数
List1.AddItem AA(I)
If (AA(I) Mod 2) = 1 Then '判断数是否为奇数
SS = SS + AA(I)
List2.AddItem AA(I)
End If
Next I
Print SS '元素值为奇数的元素的和

又不好好学习