[填空题] 以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。 Private Sub Command.Cli

[填空题] 以下程序代码实现单击命令按钮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

Int(Rnd*99+1)