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

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

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

那准确的应该怎么写呢！
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)  运行后这里提示错误

风吹过b   

那请问一下我应该怎么书写才对呢！！能帮我修改一下我的那个代码吗！！！

lowxiong 在吗你帮看看应该怎么写才对啊！！

Artless   在吗
Color 定义的是坐标！就是指定的一个横坐标！！！

这个是原稿！！！但是在VB里运行不聊！！！在按键精灵里却可以运行！在VB里应该怎么写才对呢！！！
For i=121 to 225 step 13   
    c = GetColor(i, 51)
    ys = ys & "|" & color
Next
颜色数组=Split(Mid(ys,2),"|")
下拉框 =
键值=Form1.InputBox1.Text
do
    If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
        Delay 500
    End If
    Delay 100
loop

=========================================================================================

下面是修改后的但是还是有错！应该怎么写才是VB的书写方式呢？？？
Dim 颜色数组() As string,ys as string
For i=121 to 225 step 13   '这里是横坐标的意思121到225的一个范围内的横坐标
    c = GetColor(i, 51)    '这里是赋值横坐标到i，51是固定的竖坐标！这个坐标不变！只是横坐标变动
    ys = ys & c & "-"      '这里YS是颜色的意思，也就是一个横坐标对应一个颜色利用“-”分割他们
Next
ys=left(ys,len(ys)-1)      这个是修改后的！但是运行到这里就错误！应该怎么书写才能通过啊！！！
颜色数组 = Split(ys, "-")
下拉框 = Combo1.ListIndex
do
    If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
        Delay 500
    End If
    Delay 100
loop

[ 本帖最后由 qiziyun 于 2013-3-9 06:24 编辑 ]