win7系统下空当接龙VBA自动玩法成功一半

dongdonggege

zopey 发表于 2020-5-17 15:23
Sub f()
s = "83 80 83 81 80 " & _
  "20 27 72 " & _

皮亚诺曲线的四阶、五阶

dongdonggege

这是五阶的，麻烦大师了。

lsdongjh

dongdonggege 发表于 2021-9-8 11:19
这是五阶的，麻烦大师了。

刚刚写的皮亚诺坐标生成类，送你了， clsPeano.rar (1.17 KB, 下载次数: 8)

2021-9-8 15:12 上传

点击文件名下载附件

你根据 GetPosition 方法生成的坐标，自己绘制图片吧

lsdongjh

dongdonggege

lsdongjh 发表于 2021-9-8 15:13
刚刚写的皮亚诺坐标生成类，送你了，你根据 GetPosition 方法生成的坐标，自己绘制图片吧

谢谢老师，得到坐标，怎么画线呢？

lsdongjh

dongdonggege 发表于 2021-9-8 15:54
谢谢老师，得到坐标，怎么画线呢？

就知道你要这么问，见24楼

dongdonggege

lsdongjh 发表于 2021-9-8 15:13
刚刚写的皮亚诺坐标生成类，送你了，你根据 GetPosition 方法生成的坐标，自己绘制图片吧

都100阶了，我得到的和你的不一样，怎么画线还是不懂。是不是用Set shp = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)表示？完整的程序如何表达？。刚才外出，才回来，麻烦老师帮助，谢谢。

1. Sub test()
   
2.     Dim Peano As clsPeano, lngStep As Long
   
3.     Dim ArrID As Variant, ArrPost As Variant
   
4.    
   
5.     Set Peano = New clsPeano
   
6.    
   
7.     lngsetp = 100 '4阶
   
8.    
   
9.     '获得皮亚诺曲线在平面上的各个点位的顺序
   
10.     ArrID = Peano.GetPostID(lngStep)
    
11.    
    
12.     '获得皮亚诺曲线各个坐标点，左上角为(0,0)，用于绘图
    
13.     ArrPost = Peano.GetPosition(lngStep)
    
14.    
    
15.     '在平面是展现皮亚诺曲线点位顺序
    
16.     Sheet1.Range("A1").Resize(UBound(ArrID), UBound(ArrID)) = ArrID
    
17.    
    
18.     '按顺序显示皮亚诺曲线各个坐标点位
    
19.     Sheet2.Range("A1").Resize(UBound(ArrPost), 2) = ArrPost
    
20. End Sub

复制代码

lsdongjh

dongdonggege 发表于 2021-9-8 16:09
都100阶了，我得到的和你的不一样，怎么画线还是不懂。是不是用Set shp = ActiveSheet.Shapes.AddLine(x1 ...

24楼 有完整的代码，在你的基础上修改的

dongdonggege

lsdongjh 发表于 2021-9-8 16:17
24楼 有完整的代码，在你的基础上修改的

先感谢老师，学校电脑太卡，我回到家里的电脑了。
excel我不熟，主要我学的是powerpoint的。
4:30就放学了，我还有校车，说这么罗嗦，不好意思，太高兴了。
程序我正在抄，回头测试。有不懂的问题，我继续请教。

lsdongjh

可能是前面的类有问题 clsPeano.rar (1.17 KB, 下载次数: 3)

2021-9-8 16:34 上传

点击文件名下载附件

另外，7层就很浪费资源了