Imports System

Imports System.Web.Mvc

Imports System.Collections.Generic

​

Namespace HelloWorldMvcApp

    Public Class HomeController

        Inherits System.Web.Mvc.Controller

​

        <HttpGet> _

        Function Index() As ActionResult

            Return View(New SampleViewModel)

        End Function

​

        <HttpPost> _

        Function GetAnswer(ByVal Question As String) As JsonResult

            Dim index As Integer = 1 + _rnd.Next(_db.Count)

            Dim answer = _db(index)

            Return Json(answer)

        End Function

​

        Private Shared _rnd As Random = New Random()

​

        Private Shared _db As List(Of String) = New List(Of String) From {"Yes", "No", "Definitely, yes", "I don't know", "Looks like, yes"}

​

    End Class

End Namespace

​