VF编程 专业人事进
发布网友
发布时间：2024-10-22 09:16
共3个回答
热心网友
时间：2024-10-22 10:51
*1.假设你的数组名字为A
STORE 0 TO S1,S2,S3
FOR I=1 TO 5
DO CASE
CASE A(I)>1
S1=S1+1
CASE A(I)=1
S2=S2+1
CASE A(I)<1
S3=S3+1
ENDCASE
ENDFOR
?"大于1的个数:",S1
?"等于1的个数:",S2
?"小于1的个数:",S3
2.
CLEAR
FOR i=1 TO 5
INPUT "请输入一个数：" TO X
IF i==1
nMax = X
ELSE
IF X> nMax
nMax = X
ENDIF
ENDIF
ENDFOR
?"您输入的最大值是:",nMax
热心网友
时间：2024-10-22 10:50
程序一：
a=0
b=0
c=0
dimension X(5)
X(1)=2
X(2)=0
X(3)=5
X(4)=1
X(5)=-1
FOR EACH nVar IN X
IF nVar>1
a=a+1
ELSE
IF nVar == 1
b=b+1
ELSE
c=c+1
ENDIF
ENDIF
ENDFOR
?"大于1的个数:",a
?"等于1的个数:",b
?"小于1的个数:",c
程序二：
dimension X(5)
FOR i=1 TO 5
INPUT "请输入一个数：" TO X(i)
IF i==1
nMax = X(i)
ELSE
IF X(i) > nMax
nMax = X(i)
ENDIF
ENDIF
ENDFOR
?"您输入的最大值是:",nMax
热心网友
时间：2024-10-22 10:54
本人是外行，但在 VFP 方面还是能弄出一些像样的东西来的。嘿嘿嘿。。。
注：
一，以下程序，是按软件行业有关规定／约定而编写的，诸如程序的书写格式、变量的命名要求等等，都是正统的；
二，你所要求的那两点，我把它揉进一个程序里了；
三，为了方便你理解，我在非基础的语句末尾加了注解；
四，本程序虽然短小，但它能够启发你，能让你举一反三。
最后，祝你新年进步！
*** Begin
CLOSE ALL
CLEAR ALL
CLEAR
RAND(-1)
nEndNo = 5 &&& 这个数字你可以根据需要改成任何大于等于五的正整数。
cEndNo = ALLTRIM(STR(nEndNo))
nContTimes_00 = 0
nContTimes_01 = 0
nContTimes_02 = 0
?
?"随机产生以下&cEndNo.个数："
DIMENSION aMyArray(nEndNo)
FOR nLoop_01 = 1 TO nEndNo
nRand_No = INT(RAND() * 10) &&& 产生一个小于十的随机整数
nRand_Flag = INT(RAND() * 10) &&& 产生一个小于十的随机整数，做旗标用
IF MOD(nRand_Flag, 2) = 0 &&& 旗标数为偶时，则将随机数设为负数放入数组中；否则直接将随机数放入数组中。
aMyArray(nLoop_01) = - nRand_No
ELSE
aMyArray(nLoop_01) = nRand_No
ENDIF
??aMyArray(nLoop_01)
DO CASE
CASE aMyArray(nLoop_01) < 1
nContTimes_00 = nContTimes_00 + 1
CASE aMyArray(nLoop_01) < 1
nContTimes_01 = nContTimes_01 + 1
OTHERWISE
nContTimes_02 = nContTimes_02 + 1
ENDCASE
NEXT
cContTimes_00 = ALLTRIM(STR(nContTimes_00))
cContTimes_01 = ALLTRIM(STR(nContTimes_01))
cContTimes_02 = ALLTRIM(STR(nContTimes_02))
?
?"其中小于1的有：&cContTimes_00.个；"
?"其中等于1的有：&cContTimes_01.个；"
?"其中大于1的有：&cContTimes_02.个。"
= ASORT(aMyArray)
cMaxNo = ALLTRIM(STR(aMyArray(nEndNo)))
cMinNo = ALLTRIM(STR(aMyArray(1)))
?
?"随机产生的 &cEndNo. 个数中，&cMaxNo. 最大；&cMinNo. 最小。"
RETURN
*** End
