好耐冇up過qz...
le排都冇乜特別.
前2日剪左頭髮-->7 -  -"
上個禮拜買左電話htc wildfire白色.
跟住好似都冇咩特別..
係連續3個禮拜不停的日日測驗測驗=3=
爽丫丫的說0v0
有1日係到諗1件事..希望5係真ga啦-V-

琴晚因為食得太飽.打5到qz...
琴日作文.因為冇去到秋季旅行.so"無題"
作700字...作死人...作到晏就放學都未作完-3-
搞到成5點..沖返hm換3去Four season食buffet.
狂係到影相...影到痴左線-v-
食左超多野ar...飽到咩咁.
食完出去行5郁了.坐低左係到xD
le個星期真係好難捱.日日都測驗sosad=(

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = InputBox("")
        Dim j As Integer = InputBox("")
        Dim k As Integer = InputBox("")
        MsgBox(area1(i))
        MsgBox(area1(j, i))
        MsgBox(area1(k, j, i))
    End Sub
    Function area1(ByVal a As Integer)
        Dim ans As Single
        ans = Math.PI * (Math.Pow(a, 2))
        Return ans
    End Function
    Function area1(ByVal a As Integer, ByVal b As Integer)
        Dim ans As Integer
        ans = a * b
        Return ans
    End Function
    Function area1(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
        Dim ans As Single
        ans = ((c + b) * a) / 2
        Return ans
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i As Integer = InputBox("")
        MsgBox(power(2, i))
    End Sub
    Function power(ByVal a As Integer, ByVal b As Integer)
        Dim ans As String = "1"
        Dim j As Integer
        For j = 1 To b
            ans = ans & "+ " & a & "^" & j
        Next
        Return ans
    End Function