博客园 :: :: 博问 :: 闪存 :: 新随笔 :: :: :: 管理 ::

 

 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 &"×"&i &"="& j*i
 9 next  
10 
11 next 
12 set xls = nothing

 

posted on 2018-06-23 08:39  #include<stdio.h>  阅读(319)  评论(0编辑  收藏  举报