Arrays 试图从数组中获取最小的数字总是返回“0”；0“；

我正在用VB2010Express编写一个骰子滚动程序，它滚动许多不同类型的骰子，每种类型最多15个。目前，我有4个选项可供选择。选择多少骰子，选择骰子上有多少边，只选择最高的骰子，只选择最低的骰子。除了“使用最低的模具”代码外，一切似乎都在按预期工作。如果有人能给我指出正确的方向，或者给我一个如何做得更好的例子。提前谢谢你的帮助

    Dim DiceArray(frmRoller.cmbNumberofdice.Text) As Long
    Dim iTemp As Integer
    Dim i As Integer
    Dim numofDice As Integer
    Dim CountArrayHigh(100) As Integer
    Dim CountArrayLow(100) As Integer
    numofDice = frmRoller.cmbNumberofdice.Text

    Select Case frmRoller.cmbChooseDie.Text
        Case "D4"
            For i = 1 To numofDice
                iTemp = D4()
                DiceArray(i) = iTemp
                If iTemp > CountArrayHigh(0) Then CountArrayHigh(0) = iTemp
                If iTemp < CountArrayLow(0) Then CountArrayLow(0) = iTemp

            Next i

            highDie = CountArrayHigh(0)
            lowDie = CountArrayLow(0)

Dim dice数组（frmRoller.cmbNumberofdice.Text）长度相同
Dim iTemp作为整数
作为整数的Dim i
作为整数的Dim numodice
Dim CountArrayHigh（100）为整数
Dim CountArrayLow（100）为整数
numodice=frmRoller.cmbNumberofdice.Text
选择Case frmRoller.cmbcoosedie.Text
案件“D4”
对于i=1到numofDice
iTemp=D4（）
DiceArray（i）=iTemp
如果iTemp>CountArrayHigh（0），则CountArrayHigh（0）=iTemp
如果iTemp

在VB.NET中，数组是基于零的。因此，只要，除了不屏蔽用户的输入之外，声明一个类似于Dim DiceArray（frmRoller.cmbNumberofdice.Text）的数组实际上就是创建一个比需要大一个元素的数组。我们需要更多的代码来确定，但我得说你忘记了零元素。也长得好像杀伤力太大了。。。它可以通过9223372036854775807容纳-9223372036854775808。

在VB.NET中，数组是基于零的。因此，只要，除了不屏蔽用户的输入之外，声明一个类似于Dim DiceArray（frmRoller.cmbNumberofdice.Text）的数组实际上就是创建一个比需要大一个元素的数组。我们需要更多的代码来确定，但我得说你忘记了零元素。也长得好像杀伤力太大了。。。它可以通过9223372036854775807保存-9223372036854775808。

请发布其余代码该代码片段有点无用。向我们展示产生意外结果的代码，以及对所需结果的解释以及异常可能发生的位置。请帮自己一个忙，在代码顶部添加

选项Strict On

，或在项目属性中设置它。此行：

Dim dice数组（frmRoller.cmbNumberofdice.Text），只要

是错误的。您正在尝试使用字符串分配数组。如果没有对进行严格的

选项，VB将尝试将其转换为一个数字，如果文本框中没有有效整数，则该数字将失败。请发布其余代码。该代码片段有点无用。向我们展示产生意外结果的代码，以及对所需结果的解释以及异常可能发生的位置。请帮自己一个忙，在代码顶部添加
选项Strict On
，或在项目属性中设置它。此行：
Dim dice数组（frmRoller.cmbNumberofdice.Text），只要
是错误的。您正在尝试使用字符串分配数组。如果没有

选项Strict On，VB将尝试将其转换为一个数字，如果文本框中没有有效整数，则转换将失败。