1 使用循环嵌套，按以下要求编程：输入一任意4位整数钱数，转换成大写形式，如：输入1234，输出壹仟贰佰叁拾肆元整。
2分别用子程序、函数、过程编程，在屏幕上显示以下图形。
********
********
********
********
********
3编写一自定义函数myrecc，其功能相当于系统函数reccount( )的功能。


谢谢大家啦呀```急救急救````为这几道题``快愁死了呀``希望有强人帮我解答```

拜托大家了```无比感谢``

这是我粘贴过来的，并非原创！

　代码一、 FUNCTION Rmbzh
1.　PARA nDhsj
2.　rmbxx=allt(str(nDhsj,12,2))
3.　lszs=allt(str(int(nDhsj)))
4.　cd0=len(lszs)
5.　dws0='元拾佰千万拾佰千亿'
6.　sh0='壹贰叁肆伍陆柒捌玖零'
7.　rmbdx=''
8.　cd1=cd0
9.　for I=1 to cd0
10. lspd=right(lszs,cd1)
11. if val(lspd)=0
12. rmbdx=rmbdx+iif(cd1>4,'万元','元')
13. exit
14. 　 endi
15. 　 ss=int(val(subs(lszs,I,1)))
16. 　 if ss#0
17. 　 　 rem0=SUBSTRC(sh0,ss,1)+SUBSTRC(dws0,cd1,1)
18. 　 else
19. 　 　 rem0=iif(I#cd0,'零','元')
20. 　 endi
21. 　 rmbdx=rmbdx+rem0
22. 　 cd1=cd1-1
23. endf
24. do while atc('零零',rmbdx)>0
25. 　 cc=10-atc('零零',rmbdx)
26. 　 rmbdx=strtr(rmbdx,'零零',SUBSTRC(dws0,cc,1),1,1)
27. 　 rmbdx=strtr(rmbdx,'零零','零',1,1)
28. 　 rmbdx=strtr(rmbdx,'零零','',1,1)
29. endd
30. lsxs=allt(str(nDhsj,12,2))
31. lsxs=right(lsxs,2)
32. if val(lsxs)#0
33. 　 ss=int(val(subs(lsxs,1,1)))
34. 　 rem0=SUBSTRC(sh0,ss,1)+'角'
35. 　 rmbdx=rmbdx+rem0
36. 　 ss=int(val(subs(lsxs,2,1)))
37. 　 rem0=iif(ss=0,'整',SUBSTRC(sh0,ss,1)+'分')
38. 　 rmbdx=rmbdx+rem0
39. else
40. 　 rmbdx=rmbdx+'整'
41. endi
42. Retu rmbdx

好``谢谢呀``我会参考

set talk off
clear
input " Please Input a number:"to n
dime t( 10 )
t(1)=" 零 "
t(2)=" 壹 "
t(3)=" 贰 "
t(4)=" 叁 "
t(5)=" 肆 "
t(6)=" 伍 "
t(7)=" 陆 "
t(8)=" 柒 "
t(9)=" 捌 "
t(10)=" 玖 "
for a=0 to 9
for b=0 to 9
for c=0 to 9
for d=0 to 9
m=a*1000+b*100+c*10+d*1
if m=n
?"您输入的钱数为：",t(a+1),"仟",t(b+1),"佰",t(c+1),"拾",t(d+1),"元整"
endif
next
endfor
endfor
endfor
set talk on
更为简单呀```嘿嘿``

都是高手哈！
凑个热闹，嘿嘿！