|
|
Visual Basic .NETSORGENTI - VARIE - CALCOLARE QUANTO TEMPO IMPIEGA VISUAL BASIC.NET AD ESEGUIRE UN'OPERAZIONE Imports System Imports System.Collections Public Class MainClass Shared Sub Main(ByVal args As String()) Dim start_time As DateTime Dim stop_time As DateTime Dim elapsed_time As TimeSpan ' Get the number of items. Dim num_items As Integer = 10000 ' One-dimensional array. Dim array1(0 To num_items - 1) As Integer start_time = Now For i As Integer = 0 To num_items - 1 array1(i) = i Next i stop_time = Now elapsed_time = stop_time.Subtract(start_time) Console.WriteLine( elapsed_time.TotalSeconds().ToString ) End Sub End Class |