VB.NET Class.4 (函數)

函數、傳入值：

-----------------------------------------------------------------------------------------------------------------

<pre class="prettyprint">

Public Class Form1

    Private Sub slogan()

        MessageBox.Show("你好嗎?")

        MessageBox.Show("我很好!!")

    End Sub

</pre>

Public Class Form1
    Private Sub slogan()
        MessageBox.Show("你好嗎?")
        MessageBox.Show("我很好!!")
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub cal(ByVal x, ByVal y)
        Label1.Text = x + y
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim y As Integer
        x = 5
        y = 3
        slogan()
        cal(x, y)
    End Sub
End Class

-----------------------------------------------------------------------------------------------------------------

函數、回傳值：

-----------------------------------------------------------------------------------------------------------------
Public Class Form1
    Private Sub slogan()
        MessageBox.Show("你好嗎?")
        MessageBox.Show("我很好!!")
    End Sub
-----------------------------------------------------------------------------------------------------------------
    Private Function cal(ByVal x, ByVal y)
        Dim result As Integer
        result = x * y
        Return result
    End Function
-----------------------------------------------------------------------------------------------------------------
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        slogan()

        Dim x As Integer
        Dim y As Integer
        x = InputBox("輸入X值")
        y = InputBox("輸入Y值")
        Dim result As Integer = cal(x, y)
        MessageBox.Show("結果值為" & result)
        Label1.Text = result
    End Sub
End Class

-----------------------------------------------------------------------------------------------------------------

練習一(輸入一個值算出有幾個因數)：

-----------------------------------------------------------------------------------------------------------------

Public Class Form1

    Public Function countfac(x)

        Dim i As Integer

        Dim number As Integer = 0

        For i = 1 To x

            Dim result As Integer = x Mod i

            If result = 0 Then

                number += 1

            End If

        Next

        Return number

    End Function

-----------------------------------------------------------------------------------------------------------------

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

        Dim x As Integer = TextBox1.Text

        Dim result As Integer = countfac(x)

        Label1.Text = "您輸入的值 " & x & " 共有 " & result & " 個因數"

        MessageBox.Show("您輸入的值 " & x & " 共有 " & result & " 個因數")

    End Sub

End Class

-----------------------------------------------------------------------------------------------------------------