- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在 vb.net 中开发一个网页,该网页将为用户生成许多多项选择题。我需要对已经放入数组中的四个答案进行洗牌。让我们假设我必须关注数组:
array = {"Correct", "Wrong1", "Wrong2", "Wrong3"}
我尝试使用以下方法:
Public Shared Function Shuffle(ByVal items() As String) As Array
Dim max_index As Integer = items.Length - 1
Dim rnd As New Random(DateTime.Now.Millisecond)
For i As Integer = 0 To max_index
' Pick an item for position i.
Randomize()
Dim j As Integer = rnd.Next(i, max_index)
' Swap them.
Dim temp As String = items(i)
items(i) = items(j)
items(j) = temp
Next i
Return items
End Function
这个功能工作得很好,但我的问题是,如果我有四个问题,每个问题的答案都会被打乱,但正确的答案会在一个位置,比如:
array = {"Wrong1", "Correct", "Wrong2", "Wrong3"}
array = {"Wrong2", "Correct", "Wrong3", "Wrong1"}
array = {"Wrong3", "Correct", "Wrong1", "Wrong2"}
array = {"Wrong1", "Correct", "Wrong3", "Wrong2"}
我需要的是将其位置从一个问题更改为另一个问题的正确答案。感谢您的帮助。
最佳答案
您的 Shuffle 方法和 Random
的使用存在几个问题。
Randomize
用于旧的、遗留的 VB Rnd
函数。它对 Shiny 的新 NET Random
类没有影响。创建一个 Random
供整个应用使用,而不是每次随机播放(或单击某些内容)。并且永远不要在循环中创建它们 - 这几乎可以保证重复的数字。
Random.Next(min, max)
的最大参数是独占,因此您的范围实际上比应有的小 1 个元素。
Sub
) 使其非常高效(而不是返回一个新集合)标准的 Fisher-Yates 洗牌:
' form/class level var
Private rnd As New Random()
Public Sub Shuffle(items As String())
Dim j As Int32
Dim temp As String
For n As Int32 = items.Length - 1 To 0 Step -1
j = rnd.Next(0, n + 1)
' Swap them.
temp = items(n)
items(n) = items(j)
items(j) = temp
Next n
End Sub
相同起始数组的 4 次随机播放的输出:
Shuffle #1 Wrong3 Correct Wrong2 Wrong1
Shuffle #2 Correct Wrong2 Wrong1 Wrong3
Shuffle #3 Wrong2 Correct Wrong3 Wrong1
Shuffle #4 Correct Wrong1 Wrong2 Wrong3
Shuffle #5 Correct Wrong1 Wrong3 Wrong2
您可以传递它而不是全局 Random
生成器(作为扩展方法有用):
Public Sub Shuffle(items As String(), RNG As Random)
改组许多类型的通用方法:
' Generic shuffle for basic type arrays
Public Sub Shuffle(Of T)(items As T(), rng As Random)
Dim temp As T
Dim j As Int32
For i As Int32 = items.Count - 1 To 0 Step -1
' Pick an item for position i.
j = rng.Next(i + 1)
' Swap
temp = items(i)
items(i) = items(j)
items(j) = temp
Next i
End Sub
例子:
Shuffle(intArray, myRnd)
Shuffle(strArray, myRnd)
Shuffle(colors, myRnd)
Shuffle(myButtons, myRnd)
简单的重新排序
最后,对于可能只重新排序一次的简单内容,使用扩展方法的简单且通常足够好的版本:
Dim ShuffledItems = myItems.OrderBy(Function() rnd.Next).ToArray()
这有更少的代码,很容易冲刺,但很多效率低下。
1 你想向后循环的原因是限制每个数组元素一个交换。一旦在最后一步将“X”移动到 items(j)
,该位置将不再考虑,因为 rnd.Next(0, n + 1)
只会选择直到最后一个元素/循环索引。许多实现都犯了这个错误。
关于.net - 在 vb.net 中对字符串数组进行洗牌,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29358857/
我正在尝试创建一个包含 int[][] 项的数组 即 int version0Indexes[][4] = { {1,2,3,4}, {5,6,7,8} }; int version1Indexes[
我有一个整数数组: private int array[]; 如果我还有一个名为 add 的方法,那么以下有什么区别: public void add(int value) { array[va
当您尝试在 JavaScript 中将一个数组添加到另一个数组时,它会将其转换为一个字符串。通常,当以另一种语言执行此操作时,列表会合并。 JavaScript [1, 2] + [3, 4] = "
根据我正在阅读的教程,如果您想创建一个包含 5 列和 3 行的表格来表示这样的数据... 45 4 34 99 56 3 23 99 43 2 1 1 0 43 67 ...它说你可以使用下
我通常使用 python 编写脚本/程序,但最近开始使用 JavaScript 进行编程,并且在使用数组时遇到了一些问题。 在 python 中,当我创建一个数组并使用 for x in y 时,我得
我有一个这样的数组: temp = [ 'data1', ['data1_a','data1_b'], ['data2_a','data2_b','data2_c'] ]; // 我想使用 toStr
rent_property (table name) id fullName propertyName 1 A House Name1 2 B
这个问题在这里已经有了答案: 关闭13年前。 Possible Duplicate: In C arrays why is this true? a[5] == 5[a] array[index] 和
使用 Excel 2013。经过多年的寻找和适应,我的第一篇文章。 我正在尝试将当前 App 用户(即“John Smith”)与他的电子邮件地址“jsmith@work.com”进行匹配。 使用两个
当仅在一个边距上操作时,apply 似乎不会重新组装 3D 数组。考虑: arr 1),但对我来说仍然很奇怪,如果一个函数返回一个具有尺寸的对象,那么它们基本上会被忽略。 最佳答案 这是一个不太理
我有一个包含 GPS 坐标的 MySQL 数据库。这是我检索坐标的部分 PHP 代码; $sql = "SELECT lat, lon FROM gps_data"; $stmt=$db->query
我需要找到一种方法来执行这个操作,我有一个形状数组 [批量大小, 150, 1] 代表 batch_size 整数序列,每个序列有 150 个元素长,但在每个序列中都有很多添加的零,以使所有序列具有相
我必须通过 url 中的 json 获取文本。 层次结构如下: 对象>数组>对象>数组>对象。 我想用这段代码获取文本。但是我收到错误 :org.json.JSONException: No valu
enter code here- (void)viewDidLoad { NSMutableArray *imageViewArray= [[NSMutableArray alloc] init];
知道如何对二维字符串数组执行修剪操作,例如使用 Java 流 API 进行 3x3 并将其收集回相同维度的 3x3 数组? 重点是避免使用显式的 for 循环。 当前的解决方案只是简单地执行一个 fo
已关闭。此问题需要 debugging details 。目前不接受答案。 编辑问题以包含 desired behavior, a specific problem or error, and the
我有来自 ASP.NET Web 服务的以下 XML 输出: 1710 1711 1712 1713
如果我有一个对象todo作为您状态的一部分,并且该对象包含数组列表,则列表内部有对象,在这些对象内部还有另一个数组listItems。如何更新数组 listItems 中 id 为“poi098”的对
我想将最大长度为 8 的 bool 数组打包成一个字节,通过网络发送它,然后将其解压回 bool 数组。已经在这里尝试了一些解决方案,但没有用。我正在使用单声道。 我制作了 BitArray,然后尝试
我们的数据库中有这个字段指示一周中的每一天的真/假标志,如下所示:'1111110' 我需要将此值转换为 boolean 数组。 为此,我编写了以下代码: char[] freqs = weekday
我是一名优秀的程序员,十分优秀!