从键盘输入任一个正整数 N ,输出一个字符串。字符串的每一位对应 N 的每位数加 1 ,如果 N 上的某一位是 0 ,则字符串对应位是 1 ,如果 N 上某一位是 9 ,则字符串对应位是 A ,例如,输入 12986 ,则输出 ”23A97” Dim n as long,x as string,y as string Dim c as string*1,I as integer Do (1)=inputbox(“ 请输入任一正整数 ”) Loop until n>0 '此保证n的值为正整数,若输入值小于0,则重新输入 x=(2)(str(n)) '把 n转换为字符串并去掉左边的空格 y=”” For i=1 to (3) c=(4) If c=(5) then Y=y & “A” Else Y=y & ((6)+1) End if Next i Print y