开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

楼主: 精易客服
收起左侧

[有奖活动] 精易论坛2023中秋国节踩楼活动

     关闭 [复制链接]
发表于 2023-9-18 21:05:03 | 显示全部楼层   湖北省武汉市
中秋节快乐。国庆节日快乐
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 4 天

发表于 2023-9-18 21:04:41 | 显示全部楼层   福建省福州市
中秋节快乐。国庆节日快乐
回复 支持 反对

使用道具 举报

发表于 2023-9-18 20:59:38 | 显示全部楼层   河北省邢台市
中秋节快乐。国庆节日快乐
回复 支持 反对

使用道具 举报

发表于 2023-9-18 20:59:24 | 显示全部楼层   河北省邢台市

中秋节快乐。国庆节日快乐
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)

签到天数: 15 天

发表于 2023-9-18 20:57:15 | 显示全部楼层   福建省泉州市
中秋国庆节快乐,身体健康,技术更上一层楼
回复 支持 反对

使用道具 举报

结帖率:100% (18/18)

签到天数: 17 天

发表于 2023-9-18 20:53:13 | 显示全部楼层   福建省泉州市
当前总楼数4470
百分比中奖楼层如下:
1%楼------45
8.15%楼---364
10.1%楼---451
88.15%楼--3940
100%楼----4470
21.5%楼---961
31.5%楼---1408
41.5%楼---1855
51.5%楼---2302
61.5%楼---2749
71.5%楼---3196
81.5%楼---3643
15%楼-----671
85%楼-----3800

拿去玩,一起皮一下:
  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
总数整数型 
小数型0
a文本型 
n整数型 
编辑框2.内容 = “当前总楼数” + 编辑框1.内容 + #换行符“百分比中奖楼层如下:”#换行符
总数 = 到整数 (编辑框1.内容)
楼 = { 1, 8.15, 10.1, 88.15, 100, 21.5, 31.5, 41.5, 51.5, 61.5, 71.5, 81.5, 15, 85 }
计次循环首 (取数组成员数 (), n)
a = 到文本 ([n])“%楼”
编辑框2.加入文本 (a + 取重复文本 (10 - 取文本长度 (a), “-”)到文本 (到整数 (四舍五入 (总数 ÷ 100 × 楼 [n], 0)))#换行符 )
计次循环尾 ()
置剪辑板文本 (编辑框2.内容)
回复 支持 反对

使用道具 举报

发表于 2023-9-18 20:50:37 | 显示全部楼层   河北省邢台市

中秋国庆节快乐,身体健康,技术更上一层楼
回复 支持 反对

使用道具 举报

结帖率:79% (19/24)

签到天数: 5 天

发表于 2023-9-18 20:46:38 | 显示全部楼层   河南省鹤壁市
中秋快乐 大吉大利
回复 支持 反对

使用道具 举报

发表于 2023-9-18 20:45:20 | 显示全部楼层   河北省邢台市

中秋国庆节快乐,身体健康,技术更上一层楼
回复 支持 反对

使用道具 举报

发表于 2023-9-18 20:44:53 | 显示全部楼层   河北省邢台市

中秋国庆节快乐,身体健康,技术更上一层楼
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表