滷蛋與貢丸

Partial Class _Default       Inherits System.Web.UI.Page     Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

這次的程式有加上註解 讓不會的人比較容易懂 程式還有有些地方有小bug 請見諒                                                             Partial Class _Default     Inherits System.Web.UI.Page

    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
            Response.Write(Randoms(i) & " ")
        Next
    End Sub