IE 148 VB lab#1

IE 148 VB lab#1 - (txtInches.Text totinches = miles 63360...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Option Strict On Public Class Form1 Private Sub Form1_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load Dim miles As Single , yards As Single , feet As Single , inches As Single , kilometers As Single , meters As Single , totcentimeters As Single , totinches As Single Dim totmeters As Single , Themetriclengthis As String miles = CSng (txtMiles.Text) yards = CSng (txtYards.Text) feet = CSng (txtFeet.Text) inches = CSng
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: (txtInches.Text) totinches = miles * 63360 + 36 * yards + 12 * feet + inches totmeters = totinches / 39.37 kilometers = Int(meters / 1000) totcentimeters = totmeters * 100 Themetriclengthis = The metric length is lstAnswer.Items.Add(Themetriclengthis & ; & kilometers & " kilometers" & ; & totmeters & " meters" & ; & totcentimeters & " centimeters") End Sub End Class...
View Full Document

This note was uploaded on 08/18/2011 for the course IE 148 taught by Professor Davesly during the Spring '11 term at Iowa State.

Ask a homework question - tutors are online