有没有小数部分,还是只要整数的[em18]

用QB实现(输入十六进制数分别转换为二进制,十进制数!)限制输入一个<>五位的十六进制数
整数的:
CLS
DIIM A(20)
INPUT "十六进制:";A$
S=0
FOR I=1 TO LEN(A$)
  X$=MID$(A$,I,1)
  IF  X$>="0" AND X$<="9" THEN
    S=S*16+VAL(X$)
  ELSE 
    S=S*16+ASC(A$)-55
  ENDIF
NEXT I
PRINT "十进制:";S
J=0
DO
  J=J+1
  A(J)=S MOD 2
  S=S\2
LOOP UNTIL S=0
PRINT "二进制:";
FOR I=J TO 1 STEP -1 
  PRINT USING"#";A(I);
NEXT I
END