万博科技职业学院 Wanbo Inst Of Since Tech 实例: 求直角三角形的斜边 Private Sub root(By val a, By Val b, c) c=Sqr(a 2+ b2) End sub a 程 序 调用: 计 Root 3. 4.Z Print z 打印结果5 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 实例： ‘求直角三角形的斜边 Private Sub Root(ByVal a, ByVal b, c) c = Sqr(a ^ 2 + b ^ 2) End Sub ‘调用： …… Root 3 , 4, z Print z ‘打印结果 5 c b a