close

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Const PI As Single = 3.14
        Dim r As Integer = 100

        Label1.Text = "圓周率" & PI
        Label2.Text = "半徑" & r
        Label3.Text = "圓周長" & 2 * PI * r
        Label4.Text = "園面積" & PI * r ^ 2
    End Sub
End Class

arrow
arrow
    文章標籤
    VB VB.NET 常數 圓周率 圓周 半徑 面積
    全站熱搜

    陰界黑幫 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄