无法编译此Visual Basic程序

Posted 2021-04-28

因此，我得到了示例Visual Basic代码，并要求运行代码中给定的功能。当我在在线VB编译器上编译它时，它不运行，它返回以下错误消息：

• 错误VBNC30203：预期的标识符。 （第1、2、3、4、5、6、7、8、9、10、11、12、16、17、18、22行）
• 错误VBNC30037：符号无效。 （第13、14、15、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

答案

Function ???? (data As Integer(), val As Integer) As Boolean 

这是您对功能的声明。它当前名为????，它不能用作代码基础的名称。它接受两个参数，一个整数数组（数据）和一个要在该数组中找到的整数（值），并返回一个布尔值（真/假值）。

Dim i As Integer  

声明一个名为i的整数

For i = 0 To data.Length - 1  
    If data(i) = val Then
        Return True
    End If
End For
Return False

For循环运行从0到数组数据长度（从函数导入）的整数。如果在数组中找到该值，则返回True，如果找不到，则返回False

End Function

函数的结尾。在这里它将返回到称为该函数的任何模块。

data:
|----|----|----|----|----|
|  2 |  6 | -3 |  3 |  7 |
|----|----|----|----|----|
val: 5

对于此数据，该函数应返回False，因为在数据中不存在5。

data:
|----|----|----|----|----|
| -1 |  8 |  2 | -4 |  9 |
|----|----|----|----|----|
val: 2

对于此数据，该函数应返回True，因为数字2显示在数组空间2中（请记住，数组从0开始）。

老实说，这是我希望在Chegg而不是StackOverflow上看到的一个问题。

另一答案

首先，您需要将该函数放入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