this question has answer here:
- what nullreferenceexception, , how fix it? 29 answers
i have program creates list of 25 random numbers 0 1,000. have buttons first button load list box random numbers , second button sort list of numbers smallest largest implemented bubble sort code. other list box supposed hold sorted numbers doesn't work shows 1 number instead of of them.
here code:
option strict on public class form1 dim rn random = new random dim clicked long = 0 dim numbers, sort long private sub generatebtn_click(byval sender system.object, byval e system.eventargs) handles generatebtn.click clicked += 1 x = 0 25 numbers = rn.next(0, 1000) randombox.items.add(numbers) if clicked >= 2 randombox.items.clear() clicked = 1 end if next end sub private sub sortbtn_click(byval sender system.object, byval e system.eventargs) handles sortbtn.click dim sorted() long = {numbers} dim swapped boolean dim endofarray integer = sorted.length - 1 dim tmp byte while (swapped) swapped = false = 0 endofarray - 1 if sorted(i) > sorted(i + 1) tmp = cbyte(sorted(i)) sorted(i) = sorted(i + 1) sorted(i + 1) = tmp swapped = true end if endofarray = endofarray - 1 next end while sortbox.items.clear() = 0 sorted.count - 1 sortbox.items.add(sorted(i)) next end sub end class
change your:
dim sorted() long = {numbers} to
sorted(x) = numbers edit: since changed code. need put in line loads sorted array.
for x = 0 25 numbers = rn.next(0, 1000) randombox.items.add(numbers) sorted(x) = numbers if clicked >= 2 randombox.items.clear() clicked = 1 end if next and remove the:
dim sorted() long = {numbers} from second part , put declaration in beginning had:
dim sorted(26) long the way have show latest random number. not array single entity. therefore latest add array. need load each number array create each one. (x) loads position x.
Comments
Post a Comment