如何在VB.Net中为此示例添加另一个值？

Question

如何添加另一个值/参数/变量到这个例子？

Dim pricesList As New List(Of KeyValuePair(Of String, String)) 
pricesList.AddRange({New KeyValuePair(Of String, String)("$5", "1"), 
        New KeyValuePair(Of String, String)("$3", "2")}) 

For Each item As KeyValuePair(Of String, String) In pricesList 
    Console.WriteLine(String.Format("Price: {0}, Value {1}", item.Key, item.Value)) 
Next item 

所以，我得到这样的

Dim pricesList As New List(Of KeyValuePair(Of String, String)) 
pricesList.AddRange({New KeyValuePair(Of String, String)("$5", "1","1","1"), 
        New KeyValuePair(Of String, String)("$3", "2","2","2")}) 

For Each item As KeyValuePair(Of String, String) In pricesList 
    Console.WriteLine(String.Format("Price: {0}, Value {1}, Value {1}, Value {1}, Value {1}", item.Key, item.Value)) 
Next item 

Answer 1

你不能传递一个数组String.Format，并有阵列的不同元素在你的字符串替换不同的参数。你可以做如下的事情。请注意，我将List (Of KeyValuePair)更改为Dictionary，因为这似乎更有意义。由于键和值似乎都是整数，所以您可能还想使用整数（或某种数字）值而不是字符串。

[编辑]在回复评论时，添加了一个声明，显示使用TextBoxes中的值向Dictionary添加项目的示例。

Dim pricesList As New Dictionary(Of String, String()) _ 
    From {{"$5", {"1", "1", "1"}}, {"$3", {"2", "2", "2"}}} 

pricesList.Add(PriceTextBox.Text, {V1TextBox.Text, V2TextBox.Text, V3TextBox.Text}) 

For Each item As KeyValuePair(Of String, String()) In pricesList 
    Console.WriteLine(String.Format("Price: {0}, Value {1}, Value {2}, Value {3}", item.Key, item.Value(0), item.Value(1), item.Value(2))) 
Next item