prvo pokusao sam i neam pojma kako.... drugo nije domaca zadaca ...
trece pokusavam i pokusavat cu.. pa ne mora niko uradit zadatak samo da uputi kako da ga uradim
....
a radio sam skoro jedan nije ni jedna od ova dva samo imam problem sa ispisom
Code:
Private Sub Command1_Click()
Dim a(100) As Integer
For k = 1 To n
d.AddItem InputBox("unesi clanove niza" + CStr(k))
Next k
End Sub
Private Sub Command2_Click()
Dim a(100) As Integer
For j = 1 To n - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
For j = 1 To n
h.AddItem a(j)
Next j
End Sub
Private Sub Command3_Click()
End
End Sub
program za unos nekoliko brojeva u list box ... i u drugom da ih poreda po redi u rastzucem redu ali nece.. ispise samo nule