Scribd
Upload
13 views2 pages

Volume and Average Calculator Code

This document contains code for calculating the volume of a rectangular prism and averaging three numbers. It defines a Calculator class with methods to get length, breadth, and height input from the user and calculate the volume. It also defines an Average class with a method to sum three input numbers and divide by three to get the average. The main method calls the Calculator methods to get and output the volume. The button click event handler calls the Average method to get and display the average of three combo box selections.

Uploaded by

Faiz
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
13 views2 pages

Volume and Average Calculator Code

This document contains code for calculating the volume of a rectangular prism and averaging three numbers. It defines a Calculator class with methods to get length, breadth, and height input from the user and calculate the volume. It also defines an Average class with a method to sum three input numbers and divide by three to get the average. The main method calls the Calculator methods to get and output the volume. The button click event handler calls the Average method to get and display the average of three combo box selections.

Uploaded by

Faiz
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Imports System

Module Module1
Public Class calculator
Dim l, b, h As Integer
Dim v As Integer
Function getdata()
[Link]("Enter Length, Breadth and height")

l = [Link]()

b = [Link]()

h = [Link]()

End Function
Function volume()
v = l * b * h
Return v
End Function
End Class
Sub main()
Dim a As Integer
Dim v1 As New calculator
[Link]()
a = [Link]
[Link]("Volume:" & a)
[Link]()
End Sub
End Module
Public Class Form1

Class Average
Dim x, y, z As Integer

Dim avg As Integer

Dim total As Integer

Public Function Average(ByVal x As Integer, ByVal y As Integer, ByVal z


As Integer)

total = Val(x) + Val(y) + Val(z)

avg = total / 3

Return avg

End Function
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


[Link]
Dim a1 As New Average()
Dim A = [Link]([Link], [Link],
[Link])

MsgBox("Average = " & A)


End Sub
End Class

You might also like