Question

我正在尝试在VB.NET中实现map函数，我已经尝试过以下内容。

 Function Map(a,f)
    Dim i
    for each i in a
      f(i)
    next
 End Function

 Function alert(a)
    MessageBox.Show(a)
 end function

但是上面的代码没有工作，并且没有声明警告请帮帮我。

Answer 1

我不是vb专家。但是如果你使用的是vb.net。它应该是这样的：

MessageBox.Show("Your Message Here")

我在vb6中是这样的：

MsgBox("Your Message Here")

我问的原因是。在vb.net中，您可以使用

Option Strict OFF

然后您不必声明任何类型。但默认情况下，在vb.net中它设置为

Option Strict ON

Answer 2

您的功能不会返回任何内容。试试这个：

Public Sub Map(Of T)(ByVal a As IEnumerable(Of T), ByVal f As Action(T))
    For Each i As T In a
      f(a)
    Next
End Sub

Public Sub alert(ByVal a As Object)
    MessageBox.Show(a)
End Sub

vb.net中的map函数

2 个答案: