close

Function自訂程序

func001.png  


Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j, k As Integer
        i = Val(TextBox1.Text)
        j = Val(TextBox1.Text)

        k = myFunction(i, j)
        Label1.Text = Val(K)
    End Sub
    Function myFunction(ByVal i As Integer, ByVal j As Integer) As Double
        myFunction = i + j
        Exit Function
    End Function

End Class

arrow
arrow
    全站熱搜

    興小弟讀書筆記 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄