急，vb程序设计，在线等

来源：百度知道 编辑：UC知道 时间：2024/06/03 19:42:41
VB程序设计…急，明天要用…建立一个数组，并通过Rnd函数（该函数返回一个0~1之间的数）为每个元素赋一个1到100之间的整数。然后显示所有小于60的元素

Option Explicit
Dim a(70) As Integer
Dim i As Integer
Private Sub Command1_Click()
For i = 0 To 70
a(i) = CInt(Rnd * 100)
If a(i) < 60 Then
Print a(i)
End If
Next i

End Sub
很简单的怎么不自己做啊