fork(1) download

copy

' VB6 Form1.frm
 
Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Command1_Click()
    Const MAXDIM As Integer = 30000
    Dim sum As Double
    sum = 0#
 
    Dim dm(MAXDIM - 1) As Double
 
    Dim i As Integer, j As Integer
    Dim temp As Double
 
    For i = 0 To MAXDIM - 1
      dm(i) = Rnd
    Next
 
    Dim tstart As Long
    tstart = GetTickCount
 
    For i = 0 To MAXDIM - 1
      j = MAXDIM - i - 1
      dm(i) = dm(i) * dm(j) + 1
    Next
 
    For i = 0 To MAXDIM - 1
        j = MAXDIM - 1
        Do While j > i
            If dm(i) > dm(j) Then
                temp = dm(i)
                dm(i) = dm(j)
                dm(j) = temp
            End If
            j = j - 1
        Loop
    Next
 
    For i = 0 To MAXDIM - 1
        j = MAXDIM - i - 1
        dm(i) = dm(i) * dm(j) - 1
    Next
 
    For i = 0 To MAXDIM - 1
        sum = sum + dm(i)
    Next
 
    Dim tend As Long
    tend = GetTickCount
 
    Dim result As String
    result = "VB6" & vbCrLf & "SUM = " & sum & " : elpased = " & tend - tstart
    Text1.Text = result
 
End Sub
 

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/AkXDk6/prog.vb (5,16) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (7,12) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (8,10) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (9,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (10,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (12,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (14,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (15,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (17,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (18,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (19,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (21,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (22,11) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (24,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (25,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (26,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (27,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (29,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (30,10) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (31,11) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (32,15) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (33,21) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (34,19) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (35,19) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (36,19) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (37,14) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (38,13) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (39,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (41,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (42,10) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (43,11) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (44,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (46,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (47,12) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (48,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (50,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (51,9) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (53,8) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (54,11) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (55,10) : Error VBNC30203: Not valid as identifier.
/home/AkXDk6/prog.vb (57,8) : Error VBNC30203: Not valid as identifier.
There were 41 errors and 0 warnings.
Compilation took 00:00:00.7034800

Standard output is empty