求各位大神解释一下下面那段Visual Fox Pro代码的意思。。。这是要在列表框里生成一个方阵,但看不懂。。
表单的Activate事件fori=1to25yes=1dowhileyes=1x=int(rand()*100)yes=0forj=1toi-1ifx=val(a(j)...
表单的Activate事件
for i=1 to 25
yes=1
do while yes=1
x=int(rand()*100)
yes=0
for j=1 to i-1
if x=val(a(j))
yes=1
exit
endif
endfor
enddo
a(i)=STR(x,3)
endfor
thisform.list1.NumberOfElements=5
thisform.text1.value=""
thisform.text2.value=""
最好能逐行解释下,谢谢! 展开
for i=1 to 25
yes=1
do while yes=1
x=int(rand()*100)
yes=0
for j=1 to i-1
if x=val(a(j))
yes=1
exit
endif
endfor
enddo
a(i)=STR(x,3)
endfor
thisform.list1.NumberOfElements=5
thisform.text1.value=""
thisform.text2.value=""
最好能逐行解释下,谢谢! 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询