程序运行时，单击“产生成绩”按钮，随机生成10个0-100的整数存于数字score中，并显示在text1中，成绩之间用空格隔开。单击“及格成绩”按钮，找出数组score中大于等于60分的成绩，并按下顺序显示在Text2中，成绩之间用空格隔开

下面是一个可能的实现：

Private Sub btnGenerate_Click()
Dim score(1 To 10) As Integer
Dim i As Integer
Randomize
For i = 1 To 10
score(i) = Int(Rnd * 101)
Next i
Dim scoreStr As String
scoreStr = Join(score, " ")
Me.text1.Value = scoreStr
End Sub

Private Sub btnPass_Click()
Dim score() As String
score = Split(Me.text1.Value, " ")
Dim passScores() As String
Dim passCount As Integer
Dim i As Integer
For i = LBound(score) To UBound(score)
If score(i) >= 60 Then
passCount = passCount + 1
ReDim Preserve passScores(1 To passCount)
passScores(passCount) = score(i)
End If
Next i
Dim passScoreStr As String
passScoreStr = Join(passScores, " ")
Me.text2.Value = passScoreStr
End Sub

在这个实现中，btnGenerate_Click事件处理程序使用Randomize和Rnd函数来生成10个随机整数，并将它们存储在score数组中。然后使用Join函数将数组转换为字符串，并将其设置为text1的值。

btnPass_Click事件处理程序将text1中的字符串分割为字符串数组，并遍历数组以找到大于等于60的分数。对于每个通过分数，它将其添加到passScores数组中，并使用ReDim Preserve来动态调整数组大小。最后，使用Join函数将通过分数数组转换为字符串，并将其设置为text2的值。