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