Scribd
Upload
36 views1 page

Private Property As Integer Private Property As Object Sub Dim As Integer

This document contains code for a module that takes in 3 numbers from the user, compares them, and outputs the largest number. It prompts the user to input the first and second numbers, compares them to an initial third number and a variable to store the largest. It then calls a second subroutine and performs additional comparisons to definitively determine the largest number, outputting the result.

Uploaded by

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

Private Property As Integer Private Property As Object Sub Dim As Integer

This document contains code for a module that takes in 3 numbers from the user, compares them, and outputs the largest number. It prompts the user to input the first and second numbers, compares them to an initial third number and a variable to store the largest. It then calls a second subroutine and performs additional comparisons to definitively determine the largest number, outputting the result.

Uploaded by

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

Module module1

Private Property MN As Integer

Private Property FORMA As Object

Sub main()
Dim N1, N2, N3, NM As Integer
[Link] = [Link]
[Link](2, 3)
[Link]("ingrese el primer numero: ")
N1 = CInt([Link])
[Link] = [Link]
[Link] = [Link]
[Link]("ingrese el Segundo numero: ")
N2 = CInt([Link])
If N1 And N1 > N3 Then
NM = N1
Else
If N2 > N3 Then
MN = N2
Else
MN = N3
End If
End If

Segunda(FORMA)

If N1 > N2 And N1 > N3 Then


MN = N1
ElseIf N2 > N3 Then
MN = N2
Else
NM = N3
End If
[Link]("el numero mayor es: {0}", NM)
[Link]()
End Sub

End Module

You might also like