Vb最大值程式碼

在Visual Basic中，可以使用Math.Max方法來找到兩個數字中的最大值。以下是一個簡單的例子：

Dim number1 As Double = 10
Dim number2 As Double = 20
Dim maxNumber As Double

maxNumber = Math.Max(number1, number2)

' 輸出最大值
Debug.WriteLine("最大值是：" & maxNumber)

在上面的程式碼中，我們定義了兩個Double型別的變數number1和number2，並賦予它們值10和20。然後我們使用Math.Max方法來找出這兩個數字中的最大值，並將結果賦予給maxNumber變數。最後，我們使用Debug.WriteLine方法來輸出最大值。

如果你想要找出一個數組中的最大值，你可以使用迴圈來遍歷數組中的每個元素，並將它們與已經找到的最大值進行比較。以下是一個例子：

Dim numbers() As Integer = {1, 5, 3, 9, 11, 2}
Dim maxNumber As Integer

' 找到數組中的最大值
maxNumber = numbers(0)
For i As Integer = 1 To numbers.Length - 1
    If numbers(i) > maxNumber Then
        maxNumber = numbers(i)
    End If
End Sub

' 輸出最大值
Debug.WriteLine("最大值是：" & maxNumber)

在上面的程式碼中，我們定義了一個Integer型別的數組numbers，並賦予它一些值。然後我們初始化maxNumber變數為數組的第一個元素，接著使用迴圈來遍歷數組中的其他元素，並將它們與maxNumber進行比較。如果發現有更大的數字，我們就將其賦予給maxNumber。最後，我們輸出最大值。