- 最后登录
- 2009-8-31
- 在线时间
- 50 小时
- 阅读权限
- 10
- 注册时间
- 2008-4-24
- 积分
- 73
- 帖子
- 72
- 精华
- 0
- UID
- 29732
- 性别
- 保密

- 积分
- 73
- 帖子
- 72
- 精华
- 0
- UID
- 29732
- 性别
- 保密
|
第9题 vba程序 (仅用于验证^_^)
<P>'新建一个excel文件,将以下程序贴入excel的vba程序中就可生成计算结果, A列为序号,B列为0的项表示关灯。 </P>
<P>Sub Macro1() </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<P>For I = 1 To 100 N = 1 </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<P>For J = 1 To I </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<P>K = "=MOD(" & I & "," & J & ")" </P>
<P>Range("C" & I) = K </P>
<P>If Range("C" & I) = 0 Then N = 1 - N </P></BLOCKQUOTE>
<P>Next </P>
<P>Range("A" & I).Select </P>
<P>ActiveCell.FormulaR1C1 = I </P>
<P>Range("B" & I).Select </P>
<P>ActiveCell.FormulaR1C1 = N</P></BLOCKQUOTE>
<P>Next </P></BLOCKQUOTE>
<P>End Sub</P>
[ 本帖最后由 BOBO2004 于 2008-7-18 11:38 编辑 ] |
|