Vb Net Lab Programs For Bca Students Jun 2026

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click Dim num1 As Double = Convert.ToDouble(txtNum1.Text) Dim num2 As Double = Convert.ToDouble(txtNum2.Text) Dim result As Double = num1 + num2 lblResult.Text = "Sum: " & result.ToString() End Sub

Private Sub btnCreate_Click(sender As Object, e As EventArgs) Handles btnCreate.Click myAccount.AccountNumber = "BCA1001" myAccount.HolderName = txtName.Text myAccount.Deposit(5000) MessageBox.Show("Account Created. Balance: " & myAccount.GetBalance()) End Sub vb net lab programs for bca students