11 lines
215 B
QBasic
11 lines
215 B
QBasic
|
a=1 : b=2
|
||
|
|
print "a=";a;"b=";b
|
||
|
|
swap a,b
|
||
|
|
print "a=";a;"b=";b
|
||
|
|
dim a$(1,1),b$(1,1)
|
||
|
|
a$(1,0)="a" : b$(0,1)="b"
|
||
|
|
print "a$(1,0)=";a$(1,0);"b$(0,1)=";b$(0,1)
|
||
|
|
swap a$(1,0),b$(0,1)
|
||
|
|
print "a$(1,0)=";a$(1,0);"b$(0,1)=";b$(0,1)
|
||
|
|
|