上周的！我不哭

Private Sub Command1_Click()

 Dim i As Integer

 Dim a(10) As Integer

 Randomize

 For i = 1 To 10

 a(i) = Int(Rnd * 1000) + 1

 Sum = Sum + a(i)

 Next i

 Print Sum

End Sub

 

 

 

Private Sub Command1_Click()

  Cls

  Font.Size = 50

  Print f(15)

 

End Sub

Private Function f(x As Integer) As Long

   If x = 1 Then

      f = x

    Else

      f = x + f(x - 1)

    End If

   

End Function上周明明做了八个！但是发不上去





我告诉自己不许哭。现在就剩两个了。没错，我就是明明！