Public Class Form1Private Sub txtUpperlimit_TextChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles txtUpperlimit.TextChangedresultListBox.Items.Clear()End Sub''' <summary>''' Calculate button''' </summary>''' <param name="sender"></param>''' <param name="e"></param>''' <remarks></remarks>Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnCalculate.ClickTryDim counter As Integer = 1resultListBox.Items.Clear()resultListBox.Items.Add("N" + vbTab + "N^2" + vbTab +"N^3")Do Until counter > Integer.Parse(txtUpperlimit.Text)resultListBox.Items.Add(counter.ToString() + vbTab + Math.Pow(counter,2).ToString() + vbTab + Math.Pow(counter, 3).ToString())counter += 1LoopCatch ex As ExceptionMessageBox.Show("Incorrect data")End TryEnd SubEnd Class
Comments