口袋怪兽绿叶版的 所有金手指代码？

一、口袋怪兽绿叶版的 所有金手指代码？

去看一下

务必采纳

怪兽:

物品:

二、通达信指标公式编写,谢谢!

MA1:=MA(CLOSE,M1);

MA2:=MA(CLOSE,M2);

MA3:=MA(CLOSE,M3);

MA4:=MA(CLOSE,M4);

MA1>REF(MA1,1) AND MA2>REF(MA2,1) AND MA3>REF(MA3,1) AND MA4>REF(MA4,1) AND REF(C,2)<REF(O,2) AND REF(C,1)<REF(O,1) AND REF(V,2)<REF(V,3) AND REF(V,1)<REF(V,2) AND C>((REF(O,1)-REF(C,1))/2+REF(C,1));

操作步骤：单击公式管理器-双击条件选股-双击其他类型-单击新建-在公式名称里起个名-单击引入指标公式-MA刷绿后点击确定-删除掉4行公式内容，复制我给你的公式，点击测试公式，再点击确定就OK了。

三、VB程序设计，功能是打印“九九表”，如图所示。

Dim i As Integer, j As Integer, s As Integer

Private Sub Command1_Click()

Print Tab(35); 九九乘法表

  For i = 1 To 9

    For j = 1 To 9

       Print Tab((j - 1) * 9); i & × & j & = & i * j;

    Next j

    Print

  Next i

  Print

End Sub

Private Sub Command2_Click()

Print Tab(35); 九九乘法表(下三角)

  For i = 1 To 9

    For j = 1 To i                  '就只有这里有点变化1 to i

       Print Tab((j - 1) * 9); i & × & j & = & i * j;

    Next j

    Print

  Next i

  Print

End Sub

Private Sub Command3_Click()

Print Tab(35); 九九乘法表(上三角)

  For i = 1 To 9

    For j = i To 9                  '就只有这里有点变化i to 9

       Print Tab((j - 1) * 9); i & × & j & = & i * j;

    Next j

    Print

  Next i

End Sub

四、口袋妖怪绿宝石金手指

绿宝石金手指代码大全

金手指使用教程（有图）

首先要在修改选项里选择第二个——金手指列表，第一个选项不常用的，一般都是用第二，三个，

第二个是加入作弊码，即是已知地址，自己加入，以代码031F84:3A1A为例：把“冒号前的”

031f84输入Address栏里，“冒号后的”3A1A输入Value。下边的一栏是注释，不是必填项目，如

果你想长期使用该金手指而怕和其他金手指混淆可以选择填写一下说明。第三个是GS

（gameshark）代码，以代码是80937B15 015E46E3 78DA95DF 44018CB4 为例，不管这个代

码有多长，都统一放进Cobe栏，注释栏仍是写不写无所谓。大致上，经常使用的都教了，你去贴吧的

教程看看吧，是以口袋妖怪的修改为例的参考资料：

图文教程

希望能帮到楼主：）