How do you swap two numbers in qbasic?
Create a form with two text boxes (txtNumber1, and txtNumber2)
and a command button (cmdSwap).
Option Explicit
Dim numb1 As Variant
Dim numb2 As Variant
Private Sub cmdSwap_Click()
numb1 = txtNumber1.Text
numb2 = txtNumber2.Text
txtNumber2.Text = numb1
txtNumber1.Text = numb2
End Sub