С клавиатуры вводится число - VB
Формулировка задачи:
С клавиатуры вводится число. Составить программу, которая увеличи-вает это число в два раза, если оно положительное, и уменьшает его на три в противном случае.
помогите, в visual basic
Решение задачи: «С клавиатуры вводится число»
textual
Листинг программы
Option Explicit
dim x as double
Private Sub Form_Load()
x=Inputbox("Vvedite chislo ")
if x>0 then x=2*x else x=x/3
Print x
End Sub