我连续使用相同的功能,有没有办法 with basicmove(){(r),(u, 20),(r)end with 代替 basicmove(r) basicmove(u, 20) basicmove(r) 编辑:或 basicmove(l, 5) basicmove(d, 3) basicmove(l, 21) basicmove(u, 5) 我不完全确定这会解
with basicmove()
{(r),(u, 20),(r)
end with
代替
basicmove(r)
basicmove(u, 20)
basicmove(r)
编辑:或
basicmove(l, 5)
basicmove(d, 3)
basicmove(l, 21)
basicmove(u, 5)
我不完全确定这会解决你要求的所有问题,但也许它会给你一个想法.
编辑:根据更新的问题,我有另一种解决方案.这需要在编程中理解two-dimensional arrays.您只需将所有“坐标”加载到一个数组中,然后迭代它们并按照它们输入到数组中的相同顺序执行操作.
Sub Main()
' multi-dimensional array of moves (there are plenty of way to create this object if this is confusing)
Dim myList(,) As Object = New Object(,) { _
{"l", 5}, _
{"d", 3}, _
{"l", 21}, _
{"u", 5} _
}
' iterate the array and perform the moves.
For x As Integer = 0 To myList.GetUpperBound(0)
' getting coordinates from the first & second dimension
basicmove(myList(x, 0), myList(x, 1))
Next
Console.ReadLine()
End Sub
Private Sub basicmove(ByVal a As String, ByVal b As Integer)
Console.WriteLine("param1:" & a & ",param2:" & b)
End Sub
