我连续使用相同的功能,有没有办法 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