在VBA中创建随机数循环
在VBA（Visual Basic for Applications）中创建随机数循环是一个常见的编程任务，通常用于模拟、数据分析或游戏开发等领域。下面我将详细介绍如何在VBA中创建随机数循环，包括基础概念、优势、类型、应用场景以及可能遇到的问题和解决方法。
基础概念
VBA是一种基于Visual Basic的宏语言，主要用于Microsoft Office应用程序（如Excel、Word、PowerPoint等）的自动化和扩展。通过VBA，用户可以编写宏来执行复杂的任务。
创建随机数循环的基本步骤
- 引入随机数生成器：使用
Rnd函数生成随机数。 - 设置循环：使用
For循环或Do While循环来重复生成随机数。 - 处理生成的随机数：根据需要处理或存储生成的随机数。
示例代码
以下是一个简单的VBA代码示例，展示如何在Excel中创建一个生成10个随机数的循环：
Sub GenerateRandomNumbers()
Dim i As Integer
Dim randomNumber As Double
' 设置随机数种子（可选）
Randomize
' 循环生成10个随机数
For i = 1 To 10
randomNumber = Rnd()
' 将随机数写入单元格A1到A10
Cells(i, 1).Value = randomNumber
Next i
End Sub优势
- 灵活性：VBA允许用户根据具体需求自定义代码，实现复杂的逻辑。
- 集成性：VBA可以直接与Excel等Office应用程序集成，方便数据处理和分析。
- 易用性：对于熟悉Visual Basic的开发者来说，VBA的学习曲线较为平缓。
类型
- 简单随机数生成：使用
Rnd函数生成单个随机数。 - 范围随机数生成：通过乘法和加法操作生成指定范围内的随机数。
- 序列随机数生成：生成一系列不重复的随机数。
应用场景
- 数据模拟：用于模拟实验数据或市场数据。
- 游戏开发：在Excel或其他Office应用程序中开发简单的游戏。
- 数据分析：生成随机数据进行统计分析或测试。
可能遇到的问题及解决方法
- 随机数重复：如果需要生成不重复的随机数，可以使用数组来存储已生成的随机数，并在生成新随机数时检查是否已存在。
- 随机数重复：如果需要生成不重复的随机数，可以使用数组来存储已生成的随机数，并在生成新随机数时检查是否已存在。
- 随机数种子问题：如果不设置随机数种子（
Randomize），每次运行代码时生成的随机数序列将是相同的。通过调用Randomize函数可以确保每次运行时生成不同的随机数序列。
参考链接
通过以上内容，你应该能够在VBA中成功创建随机数循环，并解决可能遇到的问题。如果需要进一步的帮助或有其他问题，请随时提问。
相关·内容
是否有一种方法可以使用vba随机地在两个值(也是随机的)之间添加或减去一个数字？我不知道怎样才能做到两者都是随机的。任何帮助都是非常感谢的！
浏览 3提问于2016-10-27得票数 1
我正在尝试使用VBA子例程模拟649彩票抽奖。对于抽奖，将由球机选择6个球，开始时有49个球，每个球有1/49被选中的概率，在第一个球被选中后，剩下的48个球将每个有1/48被选中的概率，以此类推。 没有直接的VBA函数来生成随机数，使得间隔不是连续的；例如，第一个选择的数字是3，而第二个数字选择的3将不可用！所以计算机必须从1，2，4，...，49中选择。 下面是我写的一个子程序，基本上我使用Int((UBound(数组)-1+ 1) * Rnd + 1)首先生成整数间隔之间的随机数，但我只将随机数作为索引；例如，对于第二个数字选择，我只剩下上面的48个数字: 1，2，4，...，49，现
浏览 108提问于2019-02-28得票数 0
我想使用PowerPoint VBA用随机生成的数字填充PowerPoint表中所有选定的单元格。
我可以使用此子例程在当前光标位置插入一个随机生成的数字：
Sub RandomNumberGenerator()
Dim oRange As TextRange
Set oRange = ActiveWindow.Section.TextRange.Characters
oRange.Text = Int(Rnd()*10000)
End Sub
如何将其扩展为在Table的所有选定单元格中填充随机数
浏览 20提问于2016-03-11得票数 0
1回答
嗨，我试图在Vba代码中生成n个随机数，以便它们的和在每次都不同：
一次和必须是1000，一次和必须是1500...and，因此代码中的和被称为(项)
问题是，我不想为固定行生成随机数的数组，我需要为1列随机生成1次10行，1次columns..one时间15行.我怎么才能解决呢？
Sub randomality()
Dim ary(1 To 10) As Double, zum As Double
Dim i As Long
Randomize
zum = 0
Dim destination_order_unit As String
Dim items As Variant
Number
浏览 4提问于2019-11-10得票数 0
回答已采纳
4回答
早期循环结束的VBA
、、、
如果我迭代k=1到100，如果不满足条件，有时需要重新启动迭代。在这个例子中，我创建了一个介于1到100之间的随机数，但是如果这个数字低于51，我希望迭代重新开始。
现在，代码正在返回一个可变数量的值。有时是1，有时是90。
知道为什么吗？
Public k as long
Sub Example()
For k = 1 To 100
Call ExampleExtended
Next k
End Sub
Sub ExampleExtended()
Dim Val As Integer
Val = Int((100 - 1 + 1) * Rnd)
If Val < 5
浏览 2提问于2015-08-19得票数 0
回答已采纳
1回答
是否可以像excel一样为MSP中的遗传算法编写vba代码?
为了优化项目任务的持续时间，以最小化总成本为目标，需要运行遗传算法随机改变每个任务的持续时间，如果可以在microsoft project中用Vba编写该算法，MSP将根据每个任务的新持续时间和新的项目总工期来分级资源，从而计算出新的成本。
我知道在excel中有可供优化的vba遗传代码，在MSP的Vba中可以编写相同的代码吗？
如果不是，那么从MSP导出数据并将它们导入excel以运行算法，同时再次将数据导入MSP又会怎么样呢？
非常感谢,
浏览 0提问于2018-08-07得票数 0
2回答
我在txt文件中列出了一个大陆名称，名为conts.txt：
africa
america
asia
australia
europe
我如何创建一个批处理文件，其中它可以创建新的txt文件或重新创建conts.txt文件，并在文件中按大陆名称的随机顺序排列。
感谢并为我糟糕的英语感到抱歉
编辑：更正和向礼仪者道歉
我有批处理脚本，它将创建一个文件txt，其中包含按我的顺序列出的大陆名称：
@echo off
set list=africa america asia australia europe
(for %%a in (%list%) do (
echo %%a
))>conts.
浏览 4提问于2016-07-09得票数 1
回答已采纳
1回答
我已经创建了一个VBA函数，它将产生一个随机生成的XX00XXX格式字符串。我运行此命令是为了在excel电子表格中创建超过400000个串行，但是对于同一个字符串有一个异常高的重放次数；超过60%的字符串有一个以上的实例(在某些情况下超过250个！)我预计会有一些重复，但远没有达到这个水平。我的代码有问题吗？或者这是我的一周玩彩票。
Function NewVRN() As String
Dim strOne As String
Dim strTwo As String
Dim strThree As String
Dim strFour As String
Dim strFive As
浏览 1提问于2014-03-06得票数 0
回答已采纳
在VBA中是否有可以访问的API、库或其他基于芯片组的命令？ 我目前有一个获取随机数的设置；但是，当我对结果集进行测试时，这些数字甚至还不能生成良好的统计曲线。我对此进行了测试，生成了600个模拟的两个六面骰子，每次两个骰子加在一起。我希望数字7能取得巨大的领先地位；然而，它两次排在第二位，与正在创建的适当统计曲线相去甚远。 我当前的代码使用标准的VBA方法，但正如我所说的，它没有通过统计测试： Randomize
GetRandomNo = Int((6 * RND) + 1)
浏览 43提问于2020-04-27得票数 1
回答已采纳
我对Excel VBA编码有问题。
我想做一个编码，可以将数据从一个工作表复制到具有特定条件的工作表。我的二进制形式的数据。
sheet1中的数据有近千行。我只想从sheet1中随机抽取15行数据到表2。必须满足的标准是，一个特定的列的总和是12。如果不满足，将采取其他数据。
数据示例
结果示例
这是我的代码，但它不能工作。
dim clm , ClmTtl as integer
for row = 1 to 1000
ClmTtl = ClmTtl + Sheets(1).Cells(row,8).Value
next
if not ClmTtl = 12 then
浏览 1提问于2016-11-08得票数 0
当我在while循环中创建一个随机数作为局部变量时，一切都会正常工作，但是当我生成一个随机数作为全局变量时，我就会陷入无限循环。
我不明白这怎么会和为什么会有什么不同。目标是使用While循环输出所有小于0.7的随机数。
下面是创建无限循环的代码：
let rnd = Math.random();
let continue = true;
while (continue) {
console.log(rnd);
if (rnd > 0.7) {
continue = false;
alert(rnd + ' is bigger than 0.7!'
浏览 2提问于2021-07-10得票数 0
1回答
我是一个VBA业余爱好者，正在尝试创建一个自定义函数，该函数返回一个已知范围内的随机值。我一定是在下面的代码中做错了什么，因为它会导致程序崩溃。 您是否知道如何进行更正，以允许函数循环遍历范围内的每个单元格，直到单元格值等于随机数，该随机数已被任意限制为1和1000？ 非常感谢你的任何想法！ Function RandinList(InRange As Range) As Long
Dim random As Long
Dim cell As Range
Do
random = Int((1000 - 1 + 1) * Rnd + 1)
For Each cell I
浏览 22提问于2020-04-21得票数 0
我想要创建一个创建10x10表的函数。
我使用rand在表上生成随机数。
我的问题是，rand函数在所有地方都会生成一个数字相同的表。
我的代码：
#include <iostream>
#include <time.h>
#include <Windows.h>
void Table()
{
using namespace std;
srand(time(0));
int Nums = rand() % 10;
int Table_size = 10;
cout << "\n Please
浏览 1提问于2019-12-09得票数 1
回答已采纳
我必须检查包含敏感数据的财务报告，但仍然保留报告的外观、感觉和目的。我希望创建一个宏来查找所有数值数据(非公式)，并将其乘以一个数字(或理想的随机数)来更改值，从而为我的公司的顾问清理它。
到目前为止我找到的剧本是这样的。它可以清除所有数字数据，留下文本和公式。有人能帮我把这个VBA代码修改成多个数字，而不是删除它吗？
For Each wks In Worksheets
'ignore errors in case there is only formulas
On Error Resume Next
wks.Cells.SpecialCells (xlCel
浏览 3提问于2014-11-14得票数 1
回答已采纳
我需要做一个VBA来复制一个单元格到另一个工作表的单元格。(相同的工作簿)。
之后，我必须创建一个pdf (我有VBA为此)。
在pdf创建后，我需要做所有这一切自动，我希望有一个VBA这一点。因为我需要制作200个pdf
因此，我的问题是：
我如何创建一个VBA，它将一个单元格从列表I sheetB复制到SheetA中的一个单元格，并在创建pdf后，使用sheetB中的下一个单元格值重新创建？我猜是和“循环”工具有关吧？
浏览 0提问于2017-10-30得票数 0
1回答
我想解决一个特定的问题，但我不知道如何正确地解决它。我必须在链中创建N个进程，在我完成所有这些进程之后，初始进程将随机生成一个数字并将其写入管道中，其他进程从管道中读取该数字，它们随机生成一个数字并减去读取的数字的结果，然后将其写回到管道中，依此类推。以下是我尝试过的方法
#include <string.h>
#include <sys/types.h>
#include <stdlib.h>
#include <time.h>
#include <stdio.h>
#include <unistd.h>
#includ
浏览 0提问于2017-05-12得票数 1
2回答
我正在玩excel 2007 VBA，并希望创建一个宏来生成一个随机数，然后根据生成的数字输出一个字符串。例如,
Number String
1 Athena
2 Belerephone
3 Castor
4 Dionysos
如果随机数为4，输出将是Dionysos，1将是雅典娜等等。
基本上，我希望宏在" number“列中搜索，找到与随机生成的数字匹配的单元格，然后将单元格中的字符串输出到它的右边。
我的Excel工作表中有一个类似性质的表。
到目前为止，我还没有成功地做到这一点，有什
浏览 4提问于2013-12-02得票数 1
回答已采纳
1回答
我对vba脚本很陌生。我正试图在下面写一个函数，但没能成功地写出它。我真的很感激我能帮上什么忙。
守则是：
Option Explicit
Dim status As String
Sub StartModule()
Dim index As Integer
Dim result As String
Dim a As Integer
Dim Name As Variant
Range("D4").Value = 1
Range("D5").Value = 5
Range("D6").Value = 9
Range("D7")
浏览 1提问于2014-11-10得票数 1
2回答
我正在学习C#，并在我的程序中创建了一个包含随机数生成器的类：
class RandomNumberGenerator
{
Random RNG = new Random();
// A bunch of methods that use random numbers are in here
}
在这个类中有几个使用RNG的方法。数据从程序的其他部分发送到这里，经过处理，然后返回。其中一种方法执行以下操作：
// Method works something like this
int Value1 = RNG.Next(x, y);
int Value2 = RNG.Next
浏览 0提问于2012-11-04得票数 1
回答已采纳
我的目标是制作一个游戏，通过随机生成来询问用户3个问题。为此，我创建了一个类，创建了新的问题实例，并将它们推入数组中。之后，我创建了一个函数，通过数组“提示”每个问题，并要求用户输入正确的答案。如果用户没有输入正确的答案，它会给用户提供更多的机会来正确猜测答案，否则用户就会松掉。
在这段代码中，我将3个问题推入问题数组，并编写了一行代码"const randomVal = Math.floor(Math.random() *questions.length)“，以生成数组的随机元素。
我的目标是打印所有三个随机插入数组中的问题，但我的代码只打印一个随机问题，然后中断。
我尝试在Ques
浏览 0提问于2019-04-05得票数 0
回答已采纳
2回答
在Excel VBA中，我抛出四枚硬币并计算人头数。我使用的代码是： CoinHeads = Int(Round(Rnd(), 0)) + Int(Round(Rnd(), 0)) + Int(Round(Rnd(), 0)) + Int(Round(Rnd(), 0)) 这很有效，但我想知道是否有更简单的方法在Excel VBA代码中做到这一点，仍然可以给我从0到4的相同的人头计数分布。谢谢你的建议！
浏览 36提问于2019-02-27得票数 0
目标是创建一个具有随机函数的变量，其中变量对其运行的每个循环都会发生变化。
我用随机函数创建了变量age。当我在多个循环中运行它，而不是给我多个随机数，它只给了我一个随机数并把它循环起来。
我已经解决了这个问题，但我想了解为什么需要在for循环中创建带有随机函数的变量才能正常工作。
import random
people = ['eddie', 'irina', 'eric']
random.shuffle(people)
age = random.randrange(1, 120)
for person in people:
浏览 1提问于2019-07-21得票数 1
1回答
我试图在舞台上散布8个球，它们之间的距离不均匀，在一定范围内。在这个语句中使用myNum变量，ball.x = 150 + i * myNum;在for循环中跳过，它将在一个不均匀的空间中将8个球中的每个球展开。然而，这不是正在发生的事情，相反，它用一个均匀的空间定位了8个球，大约一分钟后，它定位了另一组不同间距的8个球。
var minLimit: int = 25;
var maxLimit: int = 43;
var range: int = maxLimit - minLimit;
var myNum: Number = Math.ceil(Math.random() * range
浏览 0提问于2015-09-16得票数 0
回答已采纳
1回答
基本上，我在创建一个随机的数学生成器。
第一行有一个从1到99的随机数，第二行有从1到99的随机数。
我们还生成了一个随机算子(*，+，-)，
最后一行粗体是计算的结果。
单击时，我们调用一个函数，该函数生成一个包含所有逻辑的div，
我们使用
浏览 0提问于2022-09-02得票数 4
回答已采纳
所以这可能是多余的，也许这就像问为什么大多数人生来就有5个手指，最后的简短答案总是:因为它就是这样的，它只是工作，但我讨厌这个答案，我想知道Rnd()在VBA中是如何工作的。
Ms Office Excel的MSDN表示，RND定义为：
Rnd[(number)] 'The optional number argument is a Single or any valid numeric expression.
它接着说
数字的值决定了Rnd是如何产生随机数的:对于任何给定的初始种子，都会产生相同的数字序列，因为每次对Rnd函数的连续调用都使用前一个数字作为序列中下一个数的种子。
浏览 7提问于2016-07-12得票数 4
嗨，我想要生成一个随机数据矩阵，例如行*col= 30000*500000。我尝试在Excel中使用VBA来减缓速度；即使我在我的8G内存盒上使用bigmemory包，64位R也被冻结了。为了使它尽快完成，我应该使用C吗？在这个问题上，Java 8中的并行编程有用吗？有人有过这方面的经验吗？非常感谢！
浏览 1提问于2015-03-05得票数 1
回答已采纳
我正在努力理解碰撞检测，并决定创建一个模拟Pacman的程序。简单地说，当吃豆人撞上幽灵时，它就死了。
我指定我想要多少个Pacman，并在我的MainForm_Paint (当我的控件需要绘制时调用)中，我创建了一个指定数量的数组，这个数组是我创建的一个名为Pacman的类。然后，我继续使用指定的参数构造数组中的每个Pacman。
当所有的都说了，做了，然后我继续试着在一个循环中画出所有的吃豆人。无论我指定要绘制多少个，在ClientRectangle中只绘制一个。当我展开我的ClientRectangle时，我看到一些小线条或者看起来像是吃豆人的东西。我已经检查过了，以确保起始位置在Cli
浏览 0提问于2009-11-12得票数 0
回答已采纳
最近，在大学里，我们开始使用Linux和Bash。我们有一个任务，必须创建名称为Directory1、Directory2等的5个目录。在每个目录中，我们必须创建10个文件，其中包含一个随机数。
我是这样开始的，但我不知道下一步该怎么做：
#!/bin/bash
for i in {1..5}
do
mkdir "Directory${i}"
done
你能帮帮我吗？
浏览 0提问于2020-12-01得票数 0
回答已采纳
我正在尝试在java中创建一个冒泡排序算法，并且尝试使用for循环创建一个包含随机整数的列表，但是它只有一个值。代码如下：
public class bubbleSort {
public static void main(String[] args)
{
int length = getLength();
System.out.println(length);
List<Integer> randomList = createArray(length);
System.out.println(randomList);
}
publi
浏览 0提问于2017-11-13得票数 0
2回答
Console.WriteLine("How many times would you like to roll?");
string count = Console.ReadLine();
int cnt = Convert.ToInt32(count);
for (int i = 1; i <= cnt; i++)
{
int rol = new int();
Random roll = new Random();
rol = roll.Next(1, 6);
Console.WriteLine("Die {0} landed
浏览 0提问于2015-04-06得票数 2
1回答
这是一个日食学习课的代码，我们的老师不在，请有人解释一下错误，谢谢。我们试图在数组中的循环中创建一个循环。
包装Wrok；
import java.util.Random;
public class Victory {
public static void main(String[] args) {
// TODO Auto-generated method stub
Random ran = new Random();
double x = ran.nextInt(6) + 5;
Random ran1
浏览 1提问于2016-02-19得票数 1
好的!我在这个场景中的所有代码都在一个脚本和一个管理器对象中。全部都是700行左右。所以我不能把它放在这里。我测试了不同的东西：
1)将平台从android切换到pc/mac。
2)对先前版本的统一进行测试(前一个2017年，当前为2018.1 )
他们都解决不了这个问题。然后，我更改了我怀疑造成问题的代码的某些部分。(他们都解决不了这个问题)。然后，我开始将Debug.Log()放在任何地方。所以我找到了结冰的地方。
以下是代码：
IEnumerator ShowSigns(int Button1State, int EqualState, int Button2St
浏览 0提问于2018-05-30得票数 1
回答已采纳
1回答
我是新来这个论坛的，如果我不习惯这个程序，请原谅。
我的问题如下：
假设我在VBA中运行一个循环，i=1到10，我想根据循环的数量来定义变量。
也就是说，如果有10个循环，则创建了10个变量x1，x2，...，x10如果有20个循环，则创建了20个变量x1，x2，.....，x20。
我是VBA的新手，对此了解不多。
任何帮助都是非常感谢的。
非常感谢
浏览 1提问于2013-05-15得票数 1
3回答
COM对象清理
、、、、
我正在从C# dll中定义的excel中的VBA脚本实例化一个COM对象。我实例化的C#类有一个终结器，它执行垃圾收集，特别是它引用的其他MS Office对象，我应该看到这些对象在任务管理器中出现和消失。事实上，单元测试表明，当调用dll时，Office进程会出现，当它完成时，Office进程会消失。
当从VBA调用dll时，我注意到进程在VBA函数结束后仍保持打开状态，即对象在被调用后未被清除，这使我相信VBA不会释放COM对象。
我的函数看起来像这样：
Function Raz(inp As String)
Dim o: Set o = CreateObject("foo.ba
浏览 6提问于2010-11-13得票数 3
1回答
创建命令按钮数组
、、、、
在这种情况下，我需要创建多个Command buttons，并使用下面的事件处理程序将单个event handler分配给这些按钮。
Private Sub Digits_Click(Index as Integer)
Display.Caption=Display.Caption+Digits(Index).Caption
End Sub
我创建了第一个按钮，并将其复制粘贴到userform中，但没有提示：
“您已经有一个控件名称XXX。是否要创建控件数组？”
VBA不允许我们像在VB6和VB.Net中那样创建控件数组。我的问题是，我们仍然可以在VBA中创建控制数组吗？我是第一次接触这个话题
浏览 7提问于2020-05-25得票数 1
我是VBA新手，需要帮助。我想创建vba函数，它接受表名作为输入，并从该表中区分特定的字段。我创建了一个函数，当我在vba即时窗口中运行它时(当我使用debug.print命令显示结果时)。但是当我在sql中调用这个函数时，它只返回最后一个字段值，而不是整个字段的值。我不擅长vba语法，所以我需要帮助来理解。函数可以返回多个值吗？如果可以，如何使用，如果不可以，还可以使用什么？下面是我的代码：
Public Function TableInfo(tabela As String)
Dim db As Database
Dim rec As Recordset
Dim polje1 As Fie
浏览 0提问于2013-08-21得票数 1
我需要在Powershell中为任意数量的字符串创建一组不重复的排列。最简单的例子是：
$x = "Alpha","Beta","Charlie"
输出将为：
Alpha
Beta
Charlie
Alpha Beta
Alpha Charlie
Beta Charlie
尽管在谷歌和StackExchange上进行了大量搜索，我还是没能找到一个有用的例子。
浏览 0提问于2015-05-13得票数 0
我正在尝试复制70行，根据特定的标准随机选择到另一个工作表中，但确保在复制后的第二个工作表中只有70个唯一的行。
我的下面的代码按照所需的条件正确地复制了70行，但它也复制了重复的行，因为如果数组中有重复的值，则没有选择另一行的逻辑。
如果行已经存在于数组中，则修改代码以选择另一行的任何帮助都将不胜感激。
我想我需要存储随机选择的行，然后检查下一个选择的行是否已经不在该数组中，否则选择另一行？
Sub MattWilliams()
Dim rawDataWs As Worksheet, randomSampleWs As Worksheet
Dim map, i As Lon
浏览 0提问于2018-08-23得票数 2
我对r没有足够的理解，想解决我的好奇心。 我看过解释说 "rbinom函数生成随机偏差“， 并发现即使在相同的种子下，重复rbinom也会产生不同的结果。 rbinom(1, size=10, prob=0.2) 但我也发现，如果我创建"for loop“并在该循环中激活rbinom，那么在重复的情况下，它会生成相同的结果。 我使用的代码是 > A=rep(0,10)
> for (i in 1:10)
+ {set.seed(i)
+ x=rbinom(1, size=10, prob=0.2)
+ A[i] = x/n}
> A 单独激活rbinom和在
浏览 19提问于2020-04-02得票数 0
回答已采纳
我没有任何强大的背景使用sql编码，所以我总是依赖堆栈溢出和谷歌的答案。
因此，我希望创建多个命名范围，名称依赖于A列中的值，“引用”(范围)依赖于列B。
我已经成功地处理了一些代码，它们可以为我创建命名范围，但是我似乎找不到一种方法让vba逐行完成它。
以下是我的专栏：
这是我的vba代码：
Sub createNamedRange()
Dim myWorksheet As Worksheet
Dim myRangeName As String
Set myWorksheet = ActiveWorkbook.ActiveSheet
myRangeN
浏览 0提问于2019-02-07得票数 1
回答已采纳
1回答
我的名字是Rik，我是一个6-sigma绿化带，我已经创建了一个飞机发动机维修设施的蒙特卡洛模拟。我目前正在用Excel VBA做一个6-sigma项目。
我在开发程序时简单地调整了一个随机数，但现在它已经开发出来了，我想使用逆对数正态CDF 来创建随机修复时间，但我在网上找不到这个函数。
我确实在上找到了下面的代码，但它是针对正态分布的，我不确定它的准确性。我找不到逆对数正态CDF的方程。我希望逆对数正态CDF函数有类似的代码。
任何帮助都是非常感谢的。
'****************************************************************
浏览 0提问于2011-03-29得票数 1
回答已采纳
a=18;
b=22;
for i=1:10
r1 = randi([18 22],1,1)
name= (b-a).*rand(r1,2) + a
end
现在保存此所有名称值矩阵在结果矩阵中，每个循环行大小中的所有属性值的不是固定的，而是coiumn为2。
浏览 0提问于2017-04-09得票数 0
我有一个通过VBA修改的文件。它将工作表中的三列连接起来以创建名称。
但是，需要连接另一个信息来创建新数据。需要通过从另一个工作簿中的数据中推断出一些东西来创建数据。
在具有相同名称(但其位置可以更改，无论在工作表中)的指定列中，宏需要查找特定的信息。有四种可能性。
一旦确定了这种可能性，一旦与这四个术语中的任何一个匹配，VBA就应该增加工作簿中术语末尾的数字。
is的结构在第一本工作簿中如下：
Nip Nup本体
“本体”有四种情况:本体、本体
VBA连接: NipNupNoupa
(或者可能是NipNupNoupx，NipNupNoupu.)
然后，VBA应该在另一本工作簿中查找“本体
浏览 2提问于2020-02-28得票数 0
回答已采纳
我有一些MS访问VBA代码，我使用的是IE导航代码。
现在，我希望创建另一个事件，以便能够在特定时间之后启动上述VBA代码，然后在特定时间后停止代码。
“开始”和“停止”代码列在下面，但它不能正常工作。
Private Sub Command13_Click()
Dim t1
Dim t2
Dim t3
For i = 1 To 10000
i = 1
t1 = Now()
t2 = "2/27/2016 11:55:35 AM"
t3 = DateDiff("n", [t1], [t2])
'run specefic vba code
If t3 &l
浏览 2提问于2016-02-27得票数 1
2回答
生成一个具有5K个顶点和D个密度的随机大型连通无向图。但是，在随机V1和随机V2之间生成边缘需要花费大量时间。我试着从所有可能的边的列表中删除一个创建的边，然后从剩余的边中选择一个随机边，但这再次花费了大量的时间。
你认为以随机的方式为巨大的连通图生成边的快速方法是什么？
浏览 1提问于2013-10-22得票数 0
4回答
我正在构建一个程序，在这个程序中，用户输入一个数字(n)，然后创建一组随机数。例如，如果用户输入8，则应创建8个随机数，它们的范围应为0-999,999。程序似乎正在编译，唯一的问题是，只生成了一个随机数。
#include <iostream>
#include <vector>
#include <cstdlib>
using namespace std;
main()
{
int n;
int r;
int i;
int j;
vector<int> v;
cout <<
浏览 0提问于2011-01-29得票数 0
回答已采纳
4回答
加入VBA骰子卷
、、、、
即使对我来说，VBA骰子卷也很简单，但是我需要特定的类型，当滚动6意味着您可以再次滚动并将这两个滚轮相加在一起时(如果您连续滚动6次，则得到第三次滚动等等)。
我试过两种方法，但都失败了。
Sub roll_dice_1()
Dim result As Range
Set result = Range("A1")
result = Application.WorksheetFunction.RandBetween(1, 6)
If result = 6 Then
result = result + Application.WorksheetFunction.Rand
浏览 6提问于2017-10-13得票数 1
回答已采纳
1回答
我想画一排砖头
砖块应该有随机长度。
砖块不应该从帆布上伸出来。
画布长度为400，我希望在10 px的每一侧的行和画布之间填充。
每个砖块之间应该有10个像素的填充(或者更好，因为用户可以放大量的，比如35，你可以使填充小一些，比如2 px )。
在这段糟糕的代码中，您可以看到我试图创建7块drawRow(7)。它们有随机大小，但它们与画布的宽度不成比例，减去画布衬垫。而且他们在砖块之间没有10个px填充物。这是个数学题，我可能不知道比例。任何帮助都会很感激的。
$(function(){
var canvas = $("canvas")[0],
浏览 1提问于2015-12-01得票数 0
回答已采纳
7回答
//Generate Food Personality
for(i=0; i<food.size(); i++)
{
srand(time(0));
int randomFood = rand() % 6;
if(randomFood == 1 || randomFood == 3 || randomFood == 5)
{
badFood.push_back(food[randomFood]);
}
else if(randomFood == 0 || randomFood == 2 || randomFoo
浏览 0提问于2010-10-06得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
