VB 表格宏实现数字雨效果

Sub 数字雨() Dim i As Integer Dim j As Integer Dim Down(1 To 80) As Integer Dim Arrow(1 To 80) As Integer Dim line As String Randomize Timer Do line = "" For j = 1 To 80 Down(j) = Down(j) - 2 x = Down(j) If x < 0 Then Arrow(j) = Int((2 - 0 + 1) * Rnd + 0) Down(j) = Int((15 - 10 + 1) * Rnd + 10) End If x = Arrow(j) If x = 2 Then line = line & Int((9 - 0 + 1) * Rnd + 0) & " " Else line = line & " " End If Next j Debug.Print line Loop End Sub