mobilebasic/test/variant.bas

15 lines
102 B
QBasic
Raw Normal View History

2021-03-29 19:43:07 +03:00
SUB MAIN
DIM A, B, C AS VARIANT
DIM I AS INTEGER
A=2.3
B=4
C=1
I=8
I=A+B-C
PRINT I
END SUB