滷蛋與貢丸

Partial Class _Default

      Inherits System.Web.UI.Page

    Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Dim b As Integer

        b = TextBox1.Text

        Dim a As Date

        a = Now()                                        /////顯示今天的時間

        Label1.Text = a                                  /////輸入a變數

        Label2.Text = DateAdd("d", b, a)                 ////將a變數加上今天時間顯示在label2

    End Sub

End Class