UC知道VF程序 不知道那错了 紧急
来源：百度知道 编辑：UC知道 时间：2024/07/16 04:37:41
CLEAR ALL
CLEAR
DIME A(20)
FOR I=1 TO 20
A(I)=INT(RAND(I)*1000)
?? A(I)
NEXT
wait"是否显示个位比十位小2的数(Y/N):" to YN
IF uppe (YN)="N"
EXIT
ENDIF
FOR i=1 to 30
a=int(A(i)/10)%10
b=A(i)%10
if b=a+2
?? A(i)
next
wait "是否将30个数从大到小排列并求出最大最小数(Y/N):" to YN
if uppe (YN)="N"
exit
endif
for i=1 to 29
for j=i+1 to 30
if A(i)<A(j)
T=A(i)
A(i)=A(j)
A(j)=T
ENDIF
ENDFOR
ENDFOR
?A(i)
?A(1),A(30)
next
wait "是
CLEAR
DIME A(20)
FOR I=1 TO 20
A(I)=INT(RAND(I)*1000)
?? A(I)
NEXT
wait"是否显示个位比十位小2的数(Y/N):" to YN
IF uppe (YN)="N"
EXIT
ENDIF
FOR i=1 to 30
a=int(A(i)/10)%10
b=A(i)%10
if b=a+2
?? A(i)
next
wait "是否将30个数从大到小排列并求出最大最小数(Y/N):" to YN
if uppe (YN)="N"
exit
endif
for i=1 to 29
for j=i+1 to 30
if A(i)<A(j)
T=A(i)
A(i)=A(j)
A(j)=T
ENDIF
ENDFOR
ENDFOR
?A(i)
?A(1),A(30)
next
wait "是
程序中多处有误，修改如下：
CLEAR ALL
CLEAR
DIME A(30)
FOR I=1 TO 30
A(I)=INT(RAND(I)*1000)
?? A(I)
NEXT
wait"是否显示个位比十位小2的数(Y/N):" to YN
IF uppe (YN)="Y"
for i=1 to 30
c=int(A(i)/10)%10 && c是十位数
b=A(i)%10 &&b是个位数
if c=b+2
?? A(i)
endif
next
endif
wait "是否将30个数从大到小排列并求出最大最小数(Y/N):" to YN
if uppe (YN)="Y"
for i=1 to 29
for j=i+1 to 30
if A(i)>A(j)
T=A(i)
A(i)=A(j)
A(j)=T
ENDIF
ENDFOR
ENDFOR
for i=1 to 30
?? A(i)
next
?A(1),A(30)
endif
wait "是否计算最小数的价乘(Y/N):" to YN
if uppe (YN)="Y"
jie=1
FOR i=1 to A(1)
jie=jie*i
next
?jie
endif
wait "是否计算奇数和及偶数和(Y/N):" TO YN
if uppe (YN)="Y"