完善下列程序,使其具有如下功能:将任意输入的十进制正整数转换为十六进制数形式并显示。 (提示:字母A的ASCII码为65;INPUT语句用于从键盘上输入一个数据) SET TALK OFF CLEAR INPUT “请输入任一正整数” TO num &&输入一个数,并赋予变量num num1=num xnum=SPACE(0) y="IIF(MOD(num,16)>9,CHR(____________),STR(MOD(num,16),1))" DO WHILE num>15 xnum=&y+xnum num=INT(num/16) ENDDO xnum=&y+xnum WAIT WINDOWS STR(____)+“转换为十六进制后为”+xnum