Lab6 Problem 4

Lab6 Problem 4 - c = CDbl(TextBox3.Text) d =...

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

View Full Document Right Arrow Icon
Lab6 Problem 4 Option Strict On Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, d, f, aa As Double aa = (TextBox1 / 12) a = CDbl(TextBox1.Text) b = CDbl(TextBox2.Text)
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: c = CDbl(TextBox3.Text) d = CDbl(TextBox4.Text) f = CDbl(TextBox5.Text) TextBox4.Text = FormatNumber(aa * b) TextBox5.Text = FormatNumber(b - d) TextBox6.Text = FormatNumber(c - e) End Sub End Class...
View Full Document

Ask a homework question - tutors are online