Dim 颜色数组 As Long
For i = 121 To 225 Step 13
    c = Color(i, 51)
    ys = ys & "," & c
Next
颜色数组 = Split(Mid(ys, 2), ",")   提示我这里不对！全局应该怎么书写才对呢！！谢谢各位了

Dim 颜色数组() As string,ys as string
ys=""
For i = 121 To 225 Step 13
    c = Color(i, 51)
    ys = ys & c & ","
Next
ys=left(ys,len(ys)-1)     '去掉最后一个多余的逗号
颜色数组 = Split(ys, ",")   

[ 本帖最后由 lowxiong 于 2013-3-8 13:44 编辑 ]

lowxiong  又是你回答我！哈哈谢谢你了！我试试

ys=""  这里是什么意思呢？  我这个YS是表示颜色我 就是找颜色！必须要+  ys=""  这个吗

for 之前ys=?

split函数是字符串处理函数，使用字符串（尤其进行字符串累加）前对字符串进行清空操作是个习惯（赋初值）。"颜色数组"变量必须是一个动态字符串数组，因此应定义为“dim 颜色数组() as string”，要得到真正颜色要做一次转换（如"val(颜色数组(0))").

那准确的应该怎么写呢！
Dim 颜色数组() As string,ys as string
    While 1 = 1
    For i = 121 To 225 Step 13
    c = Color(i, 51)
    ys = ys & c & ","
Next
ys=left(ys,len(ys)-1)     '去掉最后一个多余的逗号
颜色数组 = Split(ys, ",")
        下标 = Combo1.ListIndex
        do
            If Color(下标 * 13 + 121, 51) <> 颜色数组(下标) Then
            End If
        loop
    Wend

我这样写对吗！！！！！！运行出错啊！你帮我看一下嘛

Artless  你也帮我看看嘛怎么写才对呢！！我找色执行动作

c = Color(i, 51)  运行后这里提示错误

Color 这个是什么函数？？？？

刚查了一下，Color 关键字 在VB 里一个常量。

如果你自定义了一个函数，那需要你把函数的定义也贴出来。


[ 本帖最后由 风吹过b 于 2013-3-8 16:04 编辑 ]