vb01 - プログラム倉庫

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim a As Single
        Dim b As Single
        Dim c As String
 
 
 
        a = 22
        b = 2
        a = g(a)
        c = "hg"
 
 
 
        Debug.Print(c)
 
 
 
    End Sub
    Function f(a As Single)
        Dim f1 As Single
 
        f1 = 2 * a
        Return f1
    End Function
 
    Function g(a As Single)
        Dim f1 As Single
 
        f1 = 2 * a + 5
        Return f1
    End Function
 
 
 
End Class