VB.NET Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>.Item1屬性代碼示例

本文整理匯總了VB.NET中System.Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>.Item1屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>.Item1屬性的具體用法？VB.NET Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>.Item1怎麽用？VB.NET Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>.Item1使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>的用法示例。

在下文中一共展示了Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>.Item1屬性的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: Example

Module Example
    Sub Main()
        Dim from1980 As Tuple(Of Integer, Integer, Integer) =
            Tuple.Create(1203339, 1027974, 951270)
        Dim from1910 As New Tuple(Of Integer, Integer, Integer, Integer, Integer, Integer, Integer, _
            Tuple(Of Integer, Integer, Integer)) _
            (465766, 993078, 1568622, 1623452, 1849568, 1670144, 1511462, from1980)
        Dim population As New Tuple(Of String, Integer, Integer, Integer, Integer, Integer, Integer, _ 
            Tuple(Of Integer, Integer, Integer, Integer, Integer, Integer, Integer, Tuple(Of Integer, Integer, Integer))) _
            ("Detroit", 1860, 45619, 79577, 116340, 205876, 285704, from1910)

        Console.WriteLine("Population of {0}", population.Item1)
        Console.WriteLine()
        Console.WriteLine("{0,5}  {1,14}  {2,10}", "Year", "Population", "Change")

        Dim year As Integer = population.Item2
        ShowPopulation(year, population.Item3)
        year += 10
        ShowPopulationChange(year, population.Item4, population.Item3)
        year += 10
        ShowPopulationChange(year, population.Item5, population.Item4)
        year += 10
        ShowPopulationChange(year, population.Item6, population.Item5)
        year += 10
        ShowPopulationChange(year, population.Item7, population.Item6)
        year += 10
        ShowPopulationChange(year, population.Rest.Item1, population.Item7)
        year += 10
        ShowPopulationChange(year, population.Rest.Item2, population.Rest.Item1)
        year += 10
        ShowPopulationChange(year, population.Rest.Item3, population.Rest.Item2)
        year += 10
        ShowPopulationChange(year, population.Rest.Item4, population.Rest.Item3)
        year += 10
        ShowPopulationChange(year, population.Rest.Item5, population.Rest.Item4)
        year += 10
        ShowPopulationChange(year, population.Rest.Item6, population.Rest.Item5)
        year += 10
        ShowPopulationChange(year, population.Rest.Item7, population.Rest.Item6)
        year += 10
        ShowPopulationChange(year, population.Rest.Rest.Item1, population.Rest.Item7)
        year += 10
        ShowPopulationChange(year, population.Rest.Rest.Item2, population.Rest.Rest.Item1)
        year += 10
        ShowPopulationChange(year, population.Rest.Rest.Item3, population.Rest.Rest.Item2)
    End Sub

    Private Sub ShowPopulationChange(ByVal year As Integer, ByVal newPopulation As Integer, ByVal oldPopulation As Integer)
        Console.WriteLine("{0,5}  {1,14:N0}  {2,10:P2}", year, newPopulation,
                          (newPopulation - oldPopulation) / oldPopulation / 10)
    End Sub

    Private Sub ShowPopulation(ByVal year As Integer, ByVal newPopulation As Integer)
        Console.WriteLine("{0,5}  {1,14:N0}  {2,10:P2}", year, newPopulation, "n/a")
    End Sub
End Module

開發者ID:VB.NET開發者，項目名稱:System，代碼行數:56，代碼來源:Tuple.Item1

輸出：

Population of Detroit
Year      Population      Change
1860          45,619         n/a
1870          79,577      7.44 %
1880         116,340      4.62 %
1890         205,876      7.70 %
1900         285,704      3.88 %
1910         465,766      6.30 %
1920         993,078     11.32 %
1930       1,568,622      5.80 %
1940       1,623,452      0.35 %
1950       1,849,568      1.39 %
1960       1,670,144     -0.97 %
1970       1,511,462     -0.95 %
1980       1,203,339     -2.04 %
1990       1,027,974     -1.46 %
2000         951,270     -0.75 %

注：本文中的System.Tuple<T1,T2,T3,T4,T5,T6,T7,TRest>.Item1屬性示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台，相關代碼片段篩選自各路編程大神貢獻的開源項目，源碼版權歸原作者所有，傳播和使用請參考對應項目的License；未經允許，請勿轉載。