<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > VBnet >
      • vb.net教程之綜合實例

      • 2015-01-24 13:14 來源:未知
      綜合實例(相關vb.net教程)
      用定義類的方法編程序,對任輸入的矩形的兩邊,求其周長與面積,并對輸入的兩邊進行正確性檢查。見,矩形的兩邊求面積與周長類,程序為:[實驗報告7]  或類的應用矩形問題
      Public Class juxing
          Public w, h As Integer
          Public Sub New()
              w = 0 : h = 0
          End Sub
          Public Sub New(ByVal a As Integer, ByVal b As Integer)
              If a >= 0 Then
                  w = a
              Else
                  MsgBox("無效的矩形長度,即將退出!", MsgBoxStyle.OkOnly, "提示")
                  End
              End If
              If b >= 0 Then
                  h = b
              Else
                  MsgBox("無效的矩形高度,即將退出!", MsgBoxStyle.OkOnly, "提示")
                  End
              End If
          End Sub
          Public Function zhouchang(ByVal w As Integer, ByVal h As Integer) As Integer
              zhouchang = 2 * (w + h)
          End Function
          Public Function area(ByVal w As Integer, ByVal h As Integer) As Double
              area = w * h
          End Function
      End Class
      測試類為:
      Public Class Form1
          Dim x, y As Integer
          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim p As Integer
              Dim s As Double
              x = InputBox("輸入矩形的長度", "輸入", 1)
              y = InputBox("輸入矩形的高度", "輸入", 1)
              Dim a As New juxing(x, y)
              p = a.zhouchang(x, y)
              s = a.area(x, y)
              Console.WriteLine("矩形的兩邊為:" & x & "  " & y)
              Console.WriteLine("矩形的周長為:" & p)
              Console.WriteLine("矩形的面積為:" & s)
          End Sub
       
          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              End
          End Sub
      End Class
       
      相關教程
      江苏快3 兴安盟 | 塔城 | 昌吉 | 迁安市 | 攀枝花 | 吴忠 | 诸城 | 湘西 | 安阳 | 西双版纳 | 醴陵 | 阳江 | 安吉 | 蓬莱 | 东阳 | 自贡 | 阿勒泰 | 青海西宁 | 临海 | 台湾台湾 | 云南昆明 | 珠海 | 大庆 | 鸡西 | 台州 | 赤峰 | 厦门 | 松原 | 岳阳 | 威海 | 江西南昌 | 永州 | 乌兰察布 | 茂名 | 海门 | 荆门 | 兴安盟 | 庆阳 | 丽江 | 六安 | 仁怀 | 宿迁 | 宜春 | 如皋 | 陇南 | 泉州 | 吉林长春 | 洛阳 | 晋中 | 河源 | 湖州 | 衡阳 | 平顶山 | 台南 | 眉山 | 盐城 | 玉树 | 临海 | 伊春 | 厦门 | 建湖 | 昭通 | 通辽 | 柳州 | 海门 | 开封 | 舟山 | 临海 | 永康 | 资阳 | 青州 | 衡阳 | 霍邱 | 普洱 | 济宁 | 陇南 | 宜昌 | 天门 | 张北 | 大理 | 阿里 | 阜新 | 顺德 | 宜昌 | 塔城 | 汕尾 | 大同 | 博罗 | 乐清 | 吉林长春 | 滕州 | 天水 | 台中 | 大丰 | 苍南 | 潮州 | 中山 | 乐清 | 明港 | 平潭 | 潜江 | 台州 | 攀枝花 | 昌吉 | 红河 | 伊春 | 庆阳 | 青海西宁 | 资阳 | 贺州 | 商丘 | 海北 | 池州 |