VB School Assignment? Project Due Tomorrow? Chat LIVE With A Programming Expert!

Code Snippets

Visual Basic Source Code

You're Browsing As A Guest! Register Now...
Become a VB Expert! Join 358,485 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 2,185 people online right now.Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Pythagoras' Theorem

Finding the hypotenuse.

Submitted By: firebolt

Actions:

Rating:

Views: 896

Language: Visual Basic

Last Modified: April 20, 2009

Instructions: Place in a command button.

Snippet

Dim a As Single
Dim b As Single
Dim c As Single
Cls
a = InputBox("Enter Side A")
b = InputBox("Enter Side B")
c = Sqr(a ^ 2 + b ^ 2)
Print c

Copy & Paste

Comments
There are currently no comments for this snippet. Be the first to comment!

Add comment
You must be registered and logged on to </dream.in.code> to leave comments.

Advertising | Terms of Use | Privacy Policy | About Us | Site Map

Advertise on this site through Lake Quincy Media

Forum Index: Programming Help | C and C++ | VB6 | Java | VB.NET | C# | ASP.NET | PHP | ColdFusion | Perl and Python | Ruby | Databases | Other Languages | Game Programming | Mobile Development | Software Development | Computer Science | Industry News | 52 Weeks Of Code | Programming Tutorials | C++ Tutorials | Visual Basic Tutorials | Java Tutorials | VB.NET Tutorials | C# Tutorials | Linux Tutorials | PHP Tutorials | ColdFusion Tutorials | Windows Tutorials | HTML/JavaScript Tutorials | CSS Tutorials | Flash Tutorials | Web Promotion Tutorials | Graphic Design & Photoshop Tutorials | Software Development Tutorials | Database Tutorials | Other Language Tutorials | ASP.NET Tutorials | Game Programming Tutorials | WPF & Silverlight Tutorials | Mobile Development Tutorials | Python Tutorials | Ruby Tutorials |

Copyright 2001-2010 MediaGroup1 LLC, All Rights Reserved
A MediaGroup1 LLC Production - Version 6.0.2.1.36
Server: secure2

Search^Updated!w00t

Over 509,000 Pages! Advanced Forum Search

Live VB Help!

Be Social

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Join our IRC Chat

Bye Bye Ads

Monthly Drawing

Top Contributors

Top 10 Kudos This Month