滷蛋與貢丸

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

這次的程式有加上註解 讓不會的人比較容易懂 程式還有有些地方有小bug 請見諒                                                            

Partial Class _Default

    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Randoms(9) As Short

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For i As Integer = 0 To 9
            Randoms(i) = Rnd() * 200