Laman

Sabtu, 05 Juli 2014

If (condition) then-bilangan terkecil Pada VB.NET 2005 Console Application

If (condition) then-bilangan terkecil Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim Bil1, Bil2, bil As Double
        Write("MASUKAN BIL 1 : ")
        Bil1 = ReadLine()
        Write("MASUKAN BIL 2: ")
        Bil2 = ReadLine()
        If Bil1 > Bil2 Then
            bil = Bil2
        Else
            bil = Bil1
        End If
        WriteLine("BILANGAN TERKECILNYA ADALAH: " & bil)
        ReadLine()
    End Sub

End Module

Hasilnya :

Tidak ada komentar :

Posting Komentar