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