>

그래서 샘플 Visual Basic 코드를 받았으며 코드 내에서 주어진 함수를 실행하도록 요청했습니다. 온라인 VB 컴파일러에서 컴파일하면 실행되지 않고 다음 오류 메시지가 반환됩니다.

  • 오류 VBNC30203 : 식별자가 필요합니다. (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 16, 17, 18, 22 행)
  • 오류 VBNC30037 : 기호가 유효하지 않습니다. (13, 14, 15, 19, 20, 21 행)

다음은이 질문에 대한 코드입니다.

Function ???? (data As Integer(), val As Integer) As Boolean
    Dim i As Integer
    For i = 0 To data.Length - 1
        If data(i) = val Then
            Return True
        End If
    End For
    Return False
End Function
data:
|----|----|----|----|----|
|  2 |  6 | -3 |  3 |  7 |
|----|----|----|----|----|
val: 5
data:
|----|----|----|----|----|
| -1 |  8 |  2 | -4 |  9 |
|----|----|----|----|----|
val: 2


  • 답변 # 1

    먼저 Module 에 함수를 넣어야합니다.  블록. 그런 다음 함수 이름을 변경해야합니까 ???? 유효한 이름으로. 그리고 For   next 로 블록 마감  다음과 같은 단어 :

    Module VBModule
        Sub Main()
            Console.WriteLine("Hello World")
        End Sub
    function functionName (data As Integer(), val As Integer)  As Boolean
    Dim i As Integer
        For i = 0 To data.Length - 1
            If data(i) = val Then
                Return True
            End If
        next
        Return False
    End Function
    End Module
    
    

관련 자료

  • 이전 react native - Firebase 데이터를 가져 와서 배열에 저장 한 다음 flatlist를 사용하여 표시하는 방법은 무엇입니까?
  • 다음 Jupyter Notebook/Lab에서 간단한 위젯 또는 앱을 작성하여 텍스트에서 하위 문자열을 대화 형으로 추출하는 방법은 무엇입니까?