Foxtable(狐表) → 用户栏目 → 专家坐堂 → 实现按比例生成随机数的方法


  共有2767人关注过本帖树形打印复制链接

主题：实现按比例生成随机数的方法
帅哥哟，离线，有人找我吗？
ls93005
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00 		实现按比例生成随机数的方法  发帖心情 Post By：2019/4/26 8:30:00 [只看该作者]

比如说我想在某一列中按比例生成随机数：

100个数，（位置在一列中完全随机）
5%（也就是5个，如果可以浮动更好）生成 10以下的数（0-9）随机。
95%(也就是95个)生成10及以上的随机数。

这样的有什么实现思路呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/26 9:54:00 [只看该作者]

Dim c As Integer = 5
For i As Integer = 1 To c
    Output.Show(Rand.Next(0,10))
Next

For i As Integer = c+1 To 100
    Output.Show(Rand.Next(10,10000))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
ls93005
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00 		  发帖心情 Post By：2019/4/26 11:37:00 [只看该作者]

老师你好，那么如何让这些数字完全随机排列?

 回到顶部
帅哥哟，离线，有人找我吗？
ls93005
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00 		  发帖心情 Post By：2019/4/26 11:39:00 [只看该作者]

还有一个问题，就是，申明变量时可以用For next 循环把变量名连起来用吗？

比如 Dim drs & Index As String = "drs" & Index 这样子，但是这样测试不成功。

For Index As Integer =  0 To 2
Dim drs & Index As String = "drs" & Index

                Dim drs  As new List (of String)
                Dim drx (9) As String
                For i1 As Integer = 0 To drx .Length-1
                    drx1(i1) = sheetn(i)(7,8+i1).Text
                Next
                For Each dr  As String In drx 
                    If dr .Length <> 0  Then
                        drs .Add(dr )
                    End If
                Next
                For Each drsj  As String In drs 
                    Dim nrow   As DataRow = DataTables("路缘石检查数据").AddNew
                    nrow ("公里桩") = glz.TrimEnd("","x","l","s",".","左","右","_","侧").Replace("-","~")
                    nrow ("百米桩") = sheetn(i)(3,2).Text
                    nrow ("项次") = 1
                    nrow ("数据内容") = drsj 
                    nrow ("分表号") =  1 + i
                    nrow ("工程部位") = sheetn(i)(3,4).Text
                Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/26 11:53:00 [只看该作者]

以下是引用ls93005在2019/4/26 11:37:00的发言：
老师你好，那么如何让这些数字完全随机排列?

本来就是随机的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/26 11:53:00 [只看该作者]

回4楼。不能这样定义，只能一个个定义。使用数组或者集合不就行了
[此贴子已经被作者于2019/4/26 11:54:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ls93005
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00 		  发帖心情 Post By：2019/4/26 11:58:00 [只看该作者]

这样应该是，先生成第一个小于10的，再生成大于10的吧？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/26 12:04:00 [只看该作者]

以下是引用ls93005在2019/4/26 11:58:00的发言：
这样应该是，先生成第一个小于10的，再生成大于10的吧？

没看懂，截图详细说明一下

 回到顶部
帅哥哟，离线，有人找我吗？
ls93005
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00 		  发帖心情 Post By：2019/4/26 12:07:00 [只看该作者]

就是这些 大于10和小于10的数字，要在整个数列中的位置完全随机

 回到顶部
帅哥哟，离线，有人找我吗？
ls93005
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00 		  发帖心情 Post By：2019/4/26 12:24:00 [只看该作者]

其实也就是有没方法把一个数组或集合全部打乱顺序

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询