电脑桌cad怎么画:谁能帮兄弟看看这个VFP程序哪里错了?

来源:百度文库 编辑:中科新闻网 时间:2024/05/07 18:26:37
STORE 1 to a
DIMENSION tarray(3)
DO while a<4
tarray(a)=INPUTBOX("请输入第"+STR(a)+"个数","输入数字")
DO WHILE TYPE('tarray(a)')!=int
MESSAGEBOX("您的输入有误,请认真检查!",0+64,"错误提示")
tarray(a)=INPUTBOX("请输入第"+STR(a)+"个数","输入数字")
ENDDOa=a+1
enddo

c=1
d=tarray(1)
DO while c<=2
c=c+1
if d<tarray(c)
d=tarray(c)
ENDIF
ENDDO
=MESSAGEBOX("这三个数的最大值是:"+d,0+64,"结果!")
上述程序,关键错在type函数的运用,谁能帮帮我看看怎么样?

DO WHILE TYPE('tarray(a)')!=int
改一下
DO WHILE TYPE('tarray(a)')!='int'
DO WHILE TYPE(tarray(a))!='int'
DO WHILE TYPE('tarray(a)')!=int
DO WHILE TYPE(&tarray(a).)!='int'
DO WHILE TYPE(&tarray(a).)!=int

你尝试一下吧。。。我也不肯定了VFP/FP那些东西若干年没弄了。。我学FP那会儿,MS还没把FP买走了。。。

DO WHILE TYPE('tarray("a")')!="N"

type()的参数必须是字符,所以a要加上双引号。