| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 运算函数 >> 实例分析正文
最新推荐 更多内容
VB.Net Overloads的实例
VB.Net Overloads的实例
作者:Ilu    来源:乐博网整理     更新时间:2009-10-18

VB.Net Overloads的实例

代码如下:

乐博网lob.cn提示:调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista

Public Class OverloadsForm
    Dim mianji As OverFather

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mianji = New OverFather
        Dim r As Single = CSng(InputBox("求圆面积,输入半径"))
        mianji.area1(r)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        mianji = New OverFather
        Dim width As Single = CSng(InputBox("求矩形面积,输入长"))
        Dim Height As Single = CSng(InputBox("求矩形面积,输入宽"))
        mianji.area1(width, Height)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        mianji = New OverFather
        Dim topbottom As Single = CSng(InputBox("求梯形面积,输入上底"))
        Dim downbottom As Single = CSng(InputBox("求梯形面积,输入下底"))
        Dim Height As Single = CSng(InputBox("求矩形面积,输入高"))
        mianji.area1(topbottom, downbottom, Height)
    End Sub
End Class
Class OverFather
    Inherits FatherClass
    Overloads Sub area1(ByVal r As Single)
        MessageBox.Show("乐博网提示:圆面积为:" & r ^ 2 * 3.14)
    End Sub
    Overloads Sub area1(ByVal width As Single, ByVal height As Single)
        MessageBox.Show("乐博网提示:矩形面积为:" & width * height)
    End Sub
    Overloads Sub area1(ByVal topbottom As Single, ByVal downbottom As Single, ByVal height As Single)
        MessageBox.Show("乐博网提示:矩形面积为:" & (topbottom + downbottom) * height / 2)
    End Sub
End Class

 

 

 

 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.Net overrides的实例
    VB.Net New的实例
    VB.Net inherit的实例
    VB.Net Impliments的实例
    VB.Net Computation计算周长和面积的实例
    VB.Net类Class的实例
    VB.Net Abstrct的实例
    VB.Net API声明的实例
    VB.Net Array搜索的实例
    VB.Net Property的实例
    VB.Net语法规则的3个实例
    VB.Net用Public Enum声明变量的实例
    VB.Net用Private声明变量的实例
    VB.Net声明多个变量的实例
    VB.Net双重循环的实例
    VB.Net Structure的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]