quote.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 23 行

Imports System

Namespace myComponents

Public Class Quote

  Dim myRand As New Random

  Public Function ShowQuote() As String
    Select myRand.Next( 3 )
      Case 0
        Return "Look before you leap"
      Case 1
        Return "Necessity is the mother of invention"
      Case 2
        Return "Life is full of risks"
    End Select
  End Function

End Class

End Namespace