qb64手记（2）

传值与传引用

PRINT mymax(12, 111)

x1 = 55
x2 = 66
myswap
PRINT x1


FUNCTION mymax (x, y)
IF x > y THEN
    mymax = x
ELSE
    mymax = y
END IF
END FUNCTION


SUB myswap
SHARED x1, x2
temp = x1
x1 = x2
x2 = temp

END SUB

FOR i = 1 TO 10
    PRINT nowvalue
NEXT i






FUNCTION nowvalue
STATIC x
x = x * x MOD 198 + 1999
nowvalue = x


END FUNCTION