[已解决]请教关于赋值问题

Crystalm

我想实现这样的一个功能：a为一数组 a=array(1,3,4,6),  b，c 为一数值，如果b的值等于a数组中的任何一个值就将b值赋于c，即c=b。
请问这个应该怎么写代码？

最佳答案

月排行榜 / 总排行榜

zjdh

2011-12-14 17:47

    A = Array(1, 3, 4, 6)
    ARR = Filter(A, B)
    If UBound(ARR) > -1 Then C = B

跳转到最佳答案楼层

mxg825

用循环吧
b = 1
a = Array(1, 3, 4, 6)
For i = 0 To UBound(a)
   If a(i) = b Then c = b: Exit For
Next

zjdh

    A = Array(1, 3, 4, 6)
    ARR = Filter(A, B)
    If UBound(ARR) > -1 Then C = B

菜鸟锐

厉害，都是VB高手，拜服！！！

Crystalm

zjdh 发表于 2011-12-14 17:47
A = Array(1, 3, 4, 6)
    ARR = Filter(A, B)
    If UBound(ARR) > -1 Then C = B

很好啊, 谢谢！