以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。
Private Sub Command.Click()
Dim arr(1 To 20)
For i=1 To 20
　arr(i)= (14)
　Text1.Text=Text1.Text&arr(i)&Chr(13)&chr(10)
Next i
Sum=0
For Each x In arr
　If x＞50 Then
　　Print Tab(20);x
　　Sum= (15)
　End If
Next x
　Print Tab(20);"Sum=";Sum
　End Sub