Sub Soal_Psikotes()

Randomize Timer

inpuut = InputBox("Masukan Jumlah Angka", "Jumlah Angka")

If Not IsNumeric(inpuut) Then Exit Sub

If Int(inpuut) = 0 Then Exit Sub

For i = 1 To inpuut

haSil = haSil & vbTab & Int(Rnd(i) * 10)

Next

Selection.TypeText Text:=haSil

End Sub