GVB 程序寻助

tl2655600

10 IF A= 10 THEN A$="A"
20 IF A= 11 THEN A$="B"
30 IF A= 12 THEN A$="C"
40 IF A= 13 THEN A$="D"
50 IF A= 14 THEN A$="E"
60 IF A= 15 THEN A$="F"

这是GVB的一段程序，但我认为这很不方便，
请高手帮忙把他简单化
谢谢

LOJA

10 IF A>15 OR A<10 THEN END
20 REM 限制A的范围，还有最好用A%表示整数，否则加上A=INT(A)
30 A$=CHR$(A-10+65)
40 REM 因为"A"的ASCII码是65，而且英文字母在ASCII表中是连续的