Please refer to the following codes. CLS:INPUT"Type a number";NO FOR I=31 TO 0 STEP -1 IF(NO AND(&H1<<I))!=0 THEN ?"1"; ELSE ?"0"; NEXT I ? END