[跟孩子定好了规矩，但是孩子总是不遵守该怎么办]明明跟孩子定好了规矩，为什么孩子总是不遵守？家长该拿孩子怎么办呢？相信很多妈妈都遇到过这样的问题，每次遇到这样的问题，我也是头都大了。那么，孩子为什么会这样呢？其实，某些性格...+阅读

最简单的不重复随机数算法是这样的。

假如要取0-9个随机数

那么先定义一个10个元素数组，存放0-9的值。再定义一个数字，存放数组有效元素的起始下标。

然后取随机数，范围为0-当前数组有效元素个数。 第一次为0-10（即取包含0，不包含10的随机数）。

假设第一次取到是5。

那么将数组中第5个元素输出，然后将第5个元素置为有效元素的起始下标（此时是0），有效元素的起始下标置为-1（这步做不做无所谓。），数组有效元素下标+1

继续取1-9，假设下一个随机数是5，那么将第5个元素输出，然后将第5个元素置为有效元素的起始下标（此时是1），数组有效元素下标+1。

继续取2-9，假设下一个随机数是5，那么将第5个元素输出，然后将第5个元素置为有效元素的起始下标（此时是2），数组有效元素下标+1。

以此类推，直到取了10次随机数，10个数字都被取出，循环结束。

以下为关联文档：

VBA生成不重复的随机数Option Explicit Private Sub CommandButton1_Click() Dim i As Integer, j As Integer, k As Integer, v As Integer Dim ish As Boolean Randomize For i = 1 To 100 For...

PPT中如何设置字符间距步骤： 1、新那一个PPT文档。同时新建一个word文档。 2、在word里输入一段文字，设置文字的字间距及样式。方法：选中文字，右键——字体——字符间距即可。然后复制该文字。 3、在P...

excel用VBA根据概率生成随机数这个需要用VBA么？Excel函数就搞定了。 当然录制一个宏也没问题。 准备好数据，点击数据分析按钮，如图操作。 我这准备的数据是5个，总概率是1(0.1,0.15,0.2,0.25,0.3)，分别对应值...

如何用EXCEl VBA生成随机整数可以重复VBA生成随机数的函数是rnd，生成的是0到1之间的随机数。如果想生成50到100之间的随机数，可以用以下公式： Sub Button1_Click() Dim a a = Int(Rnd * 50) + 50 End Sub注解： rnd*5...

请教EXCEL中用VBA输入递加公式的问题Worksheets（＂非常用件订货管理＂）.Cells(5, 11) = ＂=IF(J5=＂＂＂＂,IF(I5=＂＂＂＂,0,$C$1-I5),J5-I5)＂ Worksheets（＂非常用件订货管理＂）.Cells(5, 11).Copy Range(Cells(6, 11), Cells(20, 11)) 第一...

求写一道VBA语句的题判断你的生日是一个星期中的第几天并且输Sub 我的生日（） '在A1单元格输入生日日期，格式为：2000/10/25 sr = Range(＂A1＂) If sr <> ＂＂ Then week = Weekday(sr, 2) If week = 1 Then wek = ＂一＂ If week = 2 Then wek = ＂二＂ If...

一道奥林匹克数学竞赛的题48个（结合一楼和三楼的解答） 设a 是其中最小的一个数。“其它数”就是（42倍数- a） 。 则任意两个数的和都可以表示为（42倍数-2a），包括a+(42-a)=42. 依题（42倍数-2a）是42的倍数，则2a 是...

请教怎么在access中用VBA导入excel数据到access库Public Sub 客户正常供价批量维护（） If Cells(4, 6) = ＂＂ Then MsgBox ＂请先选择需要维护价格的系统！＂， vbInformation Cells(4, 6).Select Exit Sub Else Dim i As Integer, j As I...

大家帮我出点知识竞赛的题八、照样子写出带“言”的词语。 名人说过的话叫（名言） 生前留下的话叫（遗言） 教育鞭策的话叫（格言 ） 写在书前的话叫（序言） 规劝告诫的话叫（箴言） 分别勉励的话叫（赠言） 公开宣告的话叫...