Private Sub Command1_Click()
  Call sub1
End Sub
Static Sub sub1()
  Dim i%, sum%
  For i = 1 To 10
    sum = sum + 1
  Next i
  Print sum
End Sub

知道了，不好意思哦