
常用软件类: |
|杀毒安全 | |联络聊天 | |网络软件 | |多媒体类 | |系统工具 | |图形图像 | |系统工具 | |应用软件 | |行业软件 |
开发设计类: |
|动画制作 | |图像处理 | |3D设计 | |操作系统 | |站长学院 | |网络相关 | |WEB设计 | |数据库类 | |程序开发 |
| Dim Person = New With {.Name = "John Chen", .Age = 13} Console.WriteLine("Name:" & Person.Name) Console.WriteLine("Age:" & Person.Age) |
| Public Class _ClosureClass _Closure$__10 ' Methods <DebuggerNonUserCode> _ Public Sub New()Sub New() <DebuggerNonUserCode> _ Public Sub New()Sub New(ByVal other As _Closure$__10) ' Fields Public $VB$Local_Name As String Public $VB$Local_Age As Integer End Class |
| Dim Data As String() = {"a", "b", "d", "c"} Dim Query = From O In Data Order By O Descending '这就是核心 '输出信息 For Each QItem In Query Console.WriteLine(QItem) Next |
| Dim CLRLanguage() As String = {"Visual Basic", "C#", "J#", "C++/CLI"} Dim CLRCount() As KeyValuePair(Of String, Integer) = {New KeyValuePair(Of String, Integer)("Visual Basic", 1000000), _ New KeyValuePair(Of String, Integer)("C#", 1200000), _ New KeyValuePair(Of String, Integer)("J#", 300000), _ New KeyValuePair(Of String, Integer)("C++/CLI", 600000)} Dim Query = (From O As String In CLRLanguage Order By (From Count In CLRCount Where Count.Key = O Select Count.Value)) |