fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main()
        ' (一)
        Dim intArray(19, 29) As Integer
        ' (二)
        ReDim intArray(19, 39)
        setArray(intArray)
        ' (三)
        Console.WriteLine("答案(三)" & vbCrLf & countNegativeValue(intArray))
        ' (四)
        Dim A(5) As Integer
        randomNumber(A)
        Console.ReadKey()
 
    End Sub
    ' (三)
    ' 計算二微陣列裡有多少負數
    Function countNegativeValue(ByRef x As Array) As Integer
        Dim count As Integer
        count = 0
        For i = x.GetLowerBound(0) To x.GetUpperBound(0)
            For j = x.GetLowerBound(1) To x.GetUpperBound(1)
                If x(i, j) < 0 Then
                    count += 1
                End If
            Next j
        Next i
        Return count
    End Function
    ' (四)
    Sub randomNumber(ByRef A As Array)
        For i = 0 To A.GetUpperBound(0)
            A.SetValue(CInt(Int((49 * Rnd()) + 1)), i)
        Next
        Console.WriteLine("答案(四)")
        For i = 0 To 5
            Console.Write(A(i) & ",")
        Next
    End Sub
    ' 初始化陣列值
    Sub setArray(ByRef x As Array)
        'Console.WriteLine(x.GetUpperBound(0))
        'Console.WriteLine(x.GetUpperBound(1))
 
        For i = x.GetLowerBound(0) To x.GetUpperBound(0)
            For j = x.GetLowerBound(1) To x.GetUpperBound(1)
                If i = 0 Then
                    ' 第一列設為-1
                    x.SetValue(-1, i, j)
                End If
            Next j
        Next i
 
    End Sub
End Class
 
 

Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/fMqD4o/prog.vb (9,18) : error VBNC30369: Cannot refer to an instance member of a class from within a shared method or shared member initializer without an explicit instance of the class.
/home/fMqD4o/prog.vb (11,64) : error VBNC30369: Cannot refer to an instance member of a class from within a shared method or shared member initializer without an explicit instance of the class.
/home/fMqD4o/prog.vb (14,22) : error VBNC30369: Cannot refer to an instance member of a class from within a shared method or shared member initializer without an explicit instance of the class.
/home/fMqD4o/prog.vb (23,16) : error VBNC30451: 'i' is not declared. It may be inaccessible due to its protection level.
/home/fMqD4o/prog.vb (34,16) : error VBNC30451: 'i' is not declared. It may be inaccessible due to its protection level.
/home/fMqD4o/prog.vb (38,16) : error VBNC30451: 'i' is not declared. It may be inaccessible due to its protection level.
/home/fMqD4o/prog.vb (47,16) : error VBNC30451: 'i' is not declared. It may be inaccessible due to its protection level.
There were 7 errors and 0 warnings.
Compilation took 00:00:00.9706860

Standard output is empty