请问那位高手教下在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
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯