博客园 :: :: 新随笔 :: :: :: 管理 ::

随笔分类 -  vbs

摘要:1 dim xls ,i,j 2 set xls = createObject("excel.application") 3 xls.visible = true 4 xls.caption = "测试" 5 xls.workbooks.add 6 for i = 1 to 9 7 for j = 1 to i 8 xls.cells(i,j).value =j &"×"&... 阅读全文
posted @ 2018-06-23 08:39 #include<stdio.h> 阅读(334) 评论(0) 推荐(0)

摘要:内涵图 阅读全文
posted @ 2018-06-15 14:40 #include<stdio.h> 阅读(707) 评论(0) 推荐(0)

摘要:'用Y()替换X()中的元素Dimx(2)Dimy(2)Dima(2)Dimcountx(0)=0x(1)=1x(2)=2y(0)=7y(1)=8y(2)=9Forcount=0To2x(count)=Replace(x(count),x(count),y(count))MsgBoxx(count)Next 阅读全文
posted @ 2011-03-08 14:09 #include<stdio.h> 阅读(229) 评论(0) 推荐(0)