请问那位高手教下在vfp中怎样获得一个0-9的随机数据

答案:2 悬赏:60 手机版

解决时间 2021-12-28 08:19

提问者网友：容嬷嬷拿针来
2021-12-28 04:26

懂点皮毛,正在做一个小的表单.非常感谢!

最佳答案

五星知识达人网友：雾月
2021-12-28 05:17

表单中添加一个label1和一个command1
form1 init事件
a=ALLTRIm(STR(int(rand()*10))) 因为caption要字符型的，所以转字符
thisform.label1.caption=a

command1 click事件中
a=ALLTRIm(STR(int(rand()*10)))
thisform.label1.caption=a
thisform.refresh

全部回答

1楼网友：迟山
2021-12-28 05:45

rand(0) &&产生随机数，运行一次加0参数可以每次得到不同的随机序列 tmpn=int(rand()*100) &&产生随机数0~100 do while .t. &&进入循环 if (tmpn>=97 .and. tmpn<=122) .or. (tmpn>=65 .and. tmpn<=90) &&如果数值范围在字母的asicc值范围内 ?chr(tmpn) &&输出字母 exit &&退出循环 endif tmpn=int(rand()*100) &&产生随机数0~100 enddo

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息