|
本帖最后由 筱沫i 于 2024-8-11 11:52 编辑
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | b | 整数型 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 常量数组 | 文本型 | | 0 | c | 整数型 | | | 随机常量 | 文本型 | | | 年份 | 文本型 | | | 月份 | 文本型 | | | 日 | 文本型 | | | 生日 | 文本型 | | | 三位数 | 文本型 | | | sfz号 | 文本型 | | | sfz号_str | 文本型 | | 0 | a | 整数型 | | | sfz号_int | 整数型 | | 0 | i | 整数型 | | | 余数 | 整数型 | | | 最后一位 | 文本型 | | | 姓 | 文本型 | | | 名 | 文本型 | | | 姓名 | 文本型 | | |
常量数组 = 分割文本 ( #地区数据, “,”, )置随机数种子 ()c = 取随机数 (1, 6719 )随机常量 = 常量数组 [c ]年份 = 到文本 (1970 + 取随机数 (1, 36 )) 月份 = “0” + 到文本 (取随机数 (1, 9 )) 日 = 到文本 (取随机数 (10, 28 )) 生日 = 年份 + 月份 + 日 三位数 = 到文本 (取随机数 (1, 9 )) + 到文本 (取随机数 (1, 9 )) + 到文本 (取随机数 (1, 9 )) sfz号 = 随机常量 + 生日 + 三位数 文本_逐字分割 (sfz号, sfz号_str )a = 取数组成员数 (sfz号_str )重定义数组 (sfz号_int, 假, a )计次循环首 (a, i )sfz号_int [i ] = 到整数 (sfz号_str [i ])计次循环尾 ()余数 = (sfz号_int [1 ] × 7 + sfz号_int [2 ] × 9 + sfz号_int [3 ] × 10 + sfz号_int [4 ] × 5 + sfz号_int [5 ] × 8 + sfz号_int [6 ] × 4 + sfz号_int [7 ] × 2 + sfz号_int [8 ] × 1 + sfz号_int [9 ] × 6 + sfz号_int [10 ] × 3 + sfz号_int [11 ] × 7 + sfz号_int [12 ] × 9 + sfz号_int [13 ] × 10 + sfz号_int [14 ] × 5 + sfz号_int [15 ] × 8 + sfz号_int [16 ] × 4 + sfz号_int [17 ] × 2 ) % 11 判断 (余数 = 0 )最后一位 = “1”判断 (余数 = 1 )最后一位 = “0”判断 (余数 = 2 )最后一位 = “X”判断 (余数 = 3 )最后一位 = “9”判断 (余数 = 4 )最后一位 = “8”判断 (余数 = 5 )最后一位 = “7”判断 (余数 = 6 )最后一位 = “6”判断 (余数 = 7 )最后一位 = “5”判断 (余数 = 8 )最后一位 = “4”判断 (余数 = 9 )最后一位 = “3”判断 (余数 = 10 )最后一位 = “2”sfz = sfz号 + 最后一位姓 = 文本_取随机姓氏 ()名 = 文本_取随机汉字 (2 )姓名 = 姓 + 名 编辑框1. 加入文本 (姓名 + “ ” + sfz + #换行符 )b = b + 1 透明标签1.标题 = “已生成” + #换行符 + 到文本 (b ) RT,刚学易语言,写了一个小软件,功能可以实现,但是感觉代码不够简洁,大佬帮忙看一下呗,用到了数组,混合运算啥的
|
|