Public Class Form1 Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click Dim a, b, res As Double a = Val(txtFirst.Text) b = Val(txtSecond.Text) res = a + b lblResult.Text = "Result: " & res End Sub End Class Use code with caution. Copied to clipboard
Don't leave them as Button1 or TextBox1 . Use btnCalculate or txtUsername . It makes debugging 10x faster.
:
Dim numbers(9) As Integer ' 10 elements (0-9) ' Input loop For i As Integer = 0 To numbers.Length - 1 ' Fix: Length-1 numbers(i) = CInt(InputBox("Enter number " & (i+1))) Next