vb.net - Issues with structure arrays and obtaining array string from user integer input -

vb.net - Issues with structure arrays and obtaining array string from user integer input -

i'm stuck on hw question wants me utilize construction , create arrays includes 2 datatypes: minimum points needed grade , string actual grade letter. when user inputs amount of points, application should find inputted integer , display right grade. code have far, think need subtract inputted integer having problem getting work correctly. help appreciated. thanks!

public class frmmain construction gradecalculation public intpoint integer public strgrade string end construction private arrgradelist(4) gradecalculation private sub btnexit_click(sender object, e eventargs) handles btnexit.click me.close() end sub private sub txtpoints_enter(sender object, e eventargs) handles txtpoints.enter txtpoints.selectall() end sub private sub txtpoints_keypress(sender object, e keypresseventargs) handles txtpoints.keypress ' allows numbers , backspace key if (e.keychar < "0" orelse e.keychar > "9") andalso e.keychar <> controlchars.back e.handled = true end if end sub private sub txtpoints_textchanged(sender object, e eventargs) handles txtpoints.textchanged lblgrade.text = string.empty end sub private sub btndisplay_click(sender object, e eventargs) handles btndisplay.click dim intpointinput integer dim intsub integer integer.tryparse(txtpoints.text, intpointinput) until intsub = arrgradelist.length orelse intpointinput = arrgradelist(intsub).intpoint intsub += 1 loop if intpointinput < arrgradelist.length lblgrade.text = arrgradelist(intsub).strgrade end if end sub private sub frmmain_load(sender object, e eventargs) handles me.load arrgradelist(0).intpoint = 0 arrgradelist(0).strgrade = "f" arrgradelist(1).intpoint = 300 arrgradelist(1).strgrade = "d" arrgradelist(2).intpoint = 350 arrgradelist(2).strgrade = "c" arrgradelist(3).intpoint = 420 arrgradelist(3).strgrade = "b" arrgradelist(4).intpoint = 470 arrgradelist(4).strgrade = "a" end sub

dim intpointinput integer = cint(txtpoints.text) each grade gradecalculation in arrgradelist if intpointinput >= grade.intpoint lblgrade.text = grade.strgrade end if next

vb.net