UC知道有几道VF题要请教~~急啊！谢谢~~~
来源：百度知道 编辑：UC知道 时间：2024/06/30 02:50:08
1.从键盘输入1~9十个数字中的任意一个，从屏幕上显示其汉字“壹-玖”，要求可以多次输入，并且只有当输入“0”时退出程序。
2.用子程序方式计算：S=(1+2+3+...+N)*(1+2+3+...M)*(1+2+3+...+P)
3.用过程及过程文件的方式改写第一题中的程序。
4.编写程序将Xsda.dbf中的第二条和最后一条记录对调。
5.输入一个字符串，统计出各种字符的个数。
6.从键盘输入十个整数，然后按从大到小的顺序输出。
2.用子程序方式计算：S=(1+2+3+...+N)*(1+2+3+...M)*(1+2+3+...+P)
3.用过程及过程文件的方式改写第一题中的程序。
4.编写程序将Xsda.dbf中的第二条和最后一条记录对调。
5.输入一个字符串，统计出各种字符的个数。
6.从键盘输入十个整数，然后按从大到小的顺序输出。
楼上的 看不懂你写的！
1：
SET TALK OFF
CLEAR
DIMENSION a(9)
a(1)='壹'
a(2)='贰'
a(3)='叁'
a(4)='肆'
a(5)='伍'
a(6)='陆'
a(7)='柒'
a(8)='捌'
a(9)='玖'
do while .t.
input '请输入一个数（1——9）： ' to n
IF n!=0
?a(n)
else
?"谢谢使用"
exit
endif
enddo
set talk on
2:
set talk off
clear
dimen a(3)
public z
store 0 to a(1),a(2),a(3),z
input "请输入N： " to n
input "请输入M： " to m
input "请输入P： " to p
do 临时 with n
do 临时 with m
do 临时 with p
s=a(1)*a(2)*a(3)
?s
set talk on
临时：
param x
z=z+1
for y=1 to x
a(z)=y+a(z)
endfor
return a(z)
3:
SET TALK OFF
CLEAR
DIMENSION a(9)
PUBLIC n
a(1)='壹'
a(2)='贰'
a(3)='叁'
a