Dim ary() As Integer = {31, 11, 5} Dim num As Integer = 100 For i As Integer = 0 To num \ ary(0) For j As Integer = 0 To num \ ary(1) For k As Integer = 0 To num \ ary(2) If ary(0) * i + ary(1) * j + ary(2) * k = num Then output.show( i & " " & j &" " & k) end if next next Next