الگوریتم هسته با vb.net