兰色幻想 发表于 2012-1-11 09:16

VBA学习小组第3课作业

       第3课的作业如下：
            1、请找出下面Sub程序中的3个错误之处。

                         Sub筛选
                           运行的语句（这里没错）
                         End
            2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
            Sub A(g1 As Integer, g2 As Integer)
                  Range("a1") = g1 + g2
               End Sub
            3、请编写一个名子为“mysub”的Sub程序，调用下面的函数程序，把函数返回的结果放在A1（VBA中表示为Range("A1")）里。调用时参数的值设置为4（A1的结果显示为24答案为正确）

            Function Myfun(A As Integer)
                Dim x As Integer
               Myfun = 1
               For x = A To 1 Step -1
                     Myfun = Myfun * x
                  Next x
             End Function
         4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）

       上述4个题目请上交到班统计的发的作业上交处，注意直接把代码和答案粘贴在你的回贴里，不用做成附件上传，也不要在本贴后跟贴上交答案

windimi007 发表于 2012-1-11 09:18

沙发是我的吗？{:3912:}

kakaco 发表于 2012-1-11 09:26

板凳呢

yewei113 发表于 2012-1-11 09:26

我是板凳               

F_LM 发表于 2012-1-11 09:27

前排就坐:lol:lol:'$:'$:'$

libenwen2011 发表于 2012-1-11 09:28

谢谢                              

开心rabbit 发表于 2012-1-11 09:28

^:D^:D^:D认真做作业！！

qzc804030 发表于 2012-1-11 09:31

来看作业来了!^:D

zhbitgogo 发表于 2012-1-11 09:33

顶起支持老师:victory:

hanqing 发表于 2012-1-11 09:38

看看什么作业{:1_1:} 给自己一点压力
页: [1] 2 3 4
查看完整版本: VBA学习小组第3课作业