PRIVATE SUB FORM_CLICK( )
X=INT(RND)+6
SELECT CASE X
CASE IS>5
PRINT 5
CASE IS >4
PRINT 4
CASE IS>3
PRINT 3
CASE ELSE
PRINT 2
END SELECT
END SUB
微信扫码预览、分享更方便