vb 在数组中存放10个数，求其中最小值，运行结果由msgbox给出

以下是使用 VB 编写的示例代码，用于在数组中查找最小值并使用 MsgBox 显示结果：

Dim numbers(9) As Integer ' 定义一个包含10个元素的整数数组
Dim min As Integer ' 定义一个变量来存储最小值

' 初始化数组
numbers(0) = 5
numbers(1) = 10
numbers(2) = 3
numbers(3) = 8
numbers(4) = 6
numbers(5) = 2
numbers(6) = 1
numbers(7) = 9
numbers(8) = 4
numbers(9) = 7

' 假设第一个元素为最小值
min = numbers(0)

' 遍历数组，查找最小值
For i = 1 To 9
    If numbers(i) < min Then
        min = numbers(i)
    End If
Next i

' 显示结果
MsgBox "数组中最小值为：" & min

在上述代码中，我们首先定义了一个包含10个元素的整数数组 `numbers`，并初始化了其中的元素。然后，我们假设数组中的第一个元素为最小值，并遍历整个数组，比较每个元素与当前的最小值，如果发现更小的元素，则更新最小值。最后，我们通过 MsgBox 显示了最终结果。

相关问题

vb数组求最大值最小值

你可以使用以下代码来求一个 VB 数组的最大值和最小值：

Dim myArray(5) As Integer ' 假设数组长度为 5

' 给数组赋值
myArray(0) = 10
myArray(1) = 20
myArray(2) = 30
myArray(3) = 40
myArray(4) = 50

' 假设最大值为数组中的第一个元素，最小值也是
Dim maxValue As Integer = myArray(0)
Dim minValue As Integer = myArray(0)

' 遍历数组，比较每个元素与当前最大值和最小值的大小关系
For i As Integer = 1 To 4
    If myArray(i) > maxValue Then
        maxValue = myArray(i)
    End If
    If myArray(i) < minValue Then
        minValue = myArray(i)
    End If
Next

' 输出结果
MsgBox("最大值为：" & maxValue & vbCrLf & "最小值为：" & minValue)

当然，你也可以使用 VB 自带的 `Max` 和 `Min` 函数来求一个数组的最大值和最小值：

Dim myArray(5) As Integer ' 假设数组长度为 5

' 给数组赋值
myArray(0) = 10
myArray(1) = 20
myArray(2) = 30
myArray(3) = 40
myArray(4) = 50

' 使用 Max 和 Min 函数求最大值和最小值
Dim maxValue As Integer = Application.WorksheetFunction.Max(myArray)
Dim minValue As Integer = Application.WorksheetFunction.Min(myArray)

' 输出结果
MsgBox("最大值为：" & maxValue & vbCrLf & "最小值为：" & minValue)

vb 数组 赋值 数组切割

在VB中，你可以使用Split函数来切割字符串。Split函数的语法是：变量 = Split(原字符串变量, 切割标志)。其中，原字符串变量是需要切割的字符串，切割标志是指定切割位置的字符或字符串。Split函数会将原字符串根据切割标志分割成多个小字符串，并将这些小字符串存储在一个数组中。

另外，在VB中，你可以使用Array函数来定义一个数组。Array函数的语法是：数组 = Array(数值1, 数值2, 数值3, ...)。这个函数会返回一个包含指定数值的数组。

下面是一些关于使用Split和Array的示例代码：

1. 使用Split函数的例子：

Private Sub Form_Load()
    Dim a
    x = "22.214 214.121 1546"
    a = Split(x)
    For i = 0 To UBound(a)
        MsgBox "第" & i + 1 & "段是" & a(i)
    Next i
End Sub

2. 使用Array函数的例子：

Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
    For i = 1 To 4
        arr2(i) = CInt(arr1(i - 1))
    Next i
    Sort arr2()
    Text1.Text = arr2(1)
    Text2.Text = arr2(2)
    Text3.Text = arr2(3)
    Text4.Text = arr2(4)
End Sub

需要注意的是，使用Array函数定义的数组的下标是随意的，并非从0开始；而使用Split函数得到的数组的下标必然是从0开始。

如果你想在VB中将一个长字符串按照空格进行分割，并将分割得到的小字符串赋值给一个数组，你可以使用类似下面的代码：

Dim ReDate() As String
ReDate = Split(TextBox1.Text, " ")

在这个例