none
关于“函数”的问题 RRS feed

  • 问题

  • 比如现在我有两个数组

    Public A1(5),B1(5) As String

    A1(0)=C1

    A2(1)=C2

    ……接下来是空的

    B1(0)=D1

    B1(1)=D2

    ……接下来是空的

    我想写一个函数想清除A1,或B1的i(下标)里的数据

    怎样才能说明是A1的还是B1的i

     

    2011年1月26日 5:12

答案

  • 您好,

    请尝试下面的代码,希望对你有所帮助。如有什么疑问,请及时回复。

    Public Class Form1

        Dim A1(5) As String

        Dim B1(5) As String

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            A1(0) = "C1"

            A1(1) = "C2"

            B1(0) = "D1"

            B1(1) = "D2"

        End Sub

       Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

            Fun_Del(A1, 1)

            MessageBox.Show(A1(1).ToString)

        End Sub

        Public Sub Fun_Del(ByVal arr As String(), ByVal i As Integer)

            arr(i) = ""

        End Sub

    End Class

    Best regards


    Liliane Teng [MSFT]
    MSDN Community Support | Feedback to us
    Get or Request Code Sample from Microsoft
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    • 已标记为答案 酷.睿 2011年1月28日 3:09
    2011年1月28日 2:57

全部回复

  • 加个参数,判断想清除的数组


    http://feiyun0112.cnblogs.com/
    2011年1月26日 6:38
    版主
  • 或许你多贴一些代码更能明白你的意思。这里没有i啊?你写了循环?贴出你代码先。
    2011 c# mvp China
    2011年1月26日 8:05
  • 没有循环,不过是用i做下标。

    我只是想函数判断是哪个数组的下标,然后删除这个数组指定下标的数据。

    2011年1月26日 8:45
  • 您好,

    不太理解你的意思。 假设如果已知i=1,你不知要删除A1(1)的值还是B1(1)的值?那知道要删除的数据是什么吗?可以把你的问题描述的更详细一点吗?

    Best regards


    Liliane Teng [MSFT]
    MSDN Community Support | Feedback to us
    Get or Request Code Sample from Microsoft
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    2011年1月27日 7:39
  • 对不起我没有说清楚~

    “i”是不确定的,要删除的数组的名字都是不确定

    比如FunctionDelete(<数组名>,<下标>)

    这个函数就会删除这个数组的第指定个的数据。

    谢谢~

    2011年1月27日 14:05
  • 对不起我没有说清楚~

    “i”是不确定的,要删除的数组的名字都是不确定

    比如FunctionDelete(<数组名>,<下标>)

    这个函数就会删除这个数组的第指定个的数据。

    谢谢~


    if  <数组名>="A1" then 你的删除操作
    http://feiyun0112.cnblogs.com/
    2011年1月28日 1:03
    版主
  • 您好,

    请尝试下面的代码,希望对你有所帮助。如有什么疑问,请及时回复。

    Public Class Form1

        Dim A1(5) As String

        Dim B1(5) As String

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            A1(0) = "C1"

            A1(1) = "C2"

            B1(0) = "D1"

            B1(1) = "D2"

        End Sub

       Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

            Fun_Del(A1, 1)

            MessageBox.Show(A1(1).ToString)

        End Sub

        Public Sub Fun_Del(ByVal arr As String(), ByVal i As Integer)

            arr(i) = ""

        End Sub

    End Class

    Best regards


    Liliane Teng [MSFT]
    MSDN Community Support | Feedback to us
    Get or Request Code Sample from Microsoft
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    • 已标记为答案 酷.睿 2011年1月28日 3:09
    2011年1月28日 2:57
  • 哈哈~这是我想要的答案~太谢谢了。同时也谢谢其它专家
    2011年1月28日 3:09