我如何遍歷字典

Question

我正在嘗試為每個語句使用，以遍歷我創建的字典列表中的所有值。 我希望能夠打印出所有所有值。 以及呼吁個人價值觀。

 Dim dblExpenses = New Dictionary(Of String, Double)
    dblExpenses.Add("Travel_Days", CDbl(txtTravelDays.Text))
    dblExpenses.Add("Private_Vehicle_Miles", CDbl(txtPrivateVehicleMiles.Text))
    dblExpenses.Add("Airfare", CDbl(txtAirfare.Text))
    dblExpenses.Add("Car_Rental_Fees", CDbl(txtCarRentalFees.Text))
    dblExpenses.Add("Parking_Fees", CDbl(txtParkingFees.Text))
    dblExpenses.Add("Taxi_Charges", CDbl(txtTaxiCharges.Text))
    dblExpenses.Add("Registration_Fees", CDbl(txtRegistationFees.Text))
    dblExpenses.Add("Lodging_Per_Night", CDbl(txtLodgingPerNight.Text))
    dblExpenses.Add("Meals", CDbl(txtMeals.Text))

    For Each item As Double In dblExpenses

    Next

謝謝您的幫助。 我進行了一些搜索，但是找不到用於每個對象的a來遍歷字典的內容。

Answer 1

你應該用

For Each item As KeyValuePair(Of String, Double) In dblExpenses
    'item.Key for key
    'item.Value for value
Next

或者，您可以嘗試僅輸入值。

For Each item As Double In dblExpenses.Values
    'item
Next