Program Mencari Angka

Asslammualaikum wr.wb..

saya ingin meng update tntang program yang saya buat tntang pencarian suatu bilangan

nie skrip.a,,selamat mencoba yh,,,
Dim a(5) As Integer
Private Sub Command1_Click()
For n = 1 To 5
    a(n) = InputBox("masukan data a ke " & n)
Next
End Sub

Private Sub Command2_Click()
c = InputBox("apa yang anda cari")
For n = 1 To 5
    If a(n) = c Then
    ketemu = True
    urutan = n
        Print "bilangan" & c & "ketemu"
    End If
Next
        If ketemu = True Then
            MsgBox ("bilangan" & c & "ketemu")
            Else
            MsgBox ("bilangan" & c & "tdk ketemu" & n & "urutan")
            End If
End Sub

Private Sub Command3_Click()
End
End Sub

semoga bermanfaat progrm yg saya buat ini,,,

Program MEnukar angka yang lbh besar ke kecil

Asslammualaikum wr.wb..
saya ingin meng update tntang program yang saya buat tntang penukaran angka besar ke kcil

skrip.a nie...

Dim x As Integer
Dim y As Integer

Private Sub Command1_Click()
x = InputBox("masukan data yang anda inginkan ")
y = InputBox("masukan  data yang anda inginkan ")
If x > y Then
Print x
Print y
Call tukar(x, y)
Print " setelah di tukar"
End If
    Print x
    Print y
   
End Sub
Sub tukar(a, b)
temp = a
a = b
b = temp
End Sub


Private Sub Command2_Click()
End
End Sub

jika mnalami kesulitan koment ajh yh,,mngkin saya bsa membantu