统计VBA学习小组正式组第三讲的积分帖之作业上交贴

无尽之海

游客，如果您要查看本帖隐藏内容请回复

我不知道呀

1、请找出下面Sub程序中的3个错误之处。

                         Sub筛选
                           运行的语句（这里没错）
                         End
答:sub与筛选之间要有空格分开;筛选后要有括号;end 后面缺少Sub

            2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
              Sub A(g1 As Integer, g2 As Integer)
                    Range("a1") = g1 + g2
               End Sub
答:
  Sub B()
Call A(100, 500)
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
答:
Sub mysub()
Range("a1") = Myfun(4)
End Sub

         4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
答:在VBE编辑器中,选择通用中的WORKSHEET,并在声明中选择SELECTIONCHANGE事件即可.

水上漂123

只会第一题，错误是sub和名称之间少空格，名称后没有括号，end后少sub
第二题不会
第三题不会
第四题Private Sub SelectionChange()  
With
End With  
End Sub  

awxgaige

第一题
错误一：在“Sub”和“筛选”之间应该有一个空格；
错误二：“筛选”后少一个“（）”；
错误三：最后一行应为End Sub。
第二题
Sub B()
    A  "100", "500"
End Sub
第三题
Sub mysub()
        Range("a1") = Myfun( )
End sub
第四题
在VBA编辑器窗口“工程”中选择“sheet1”,双击，点击“通用”右侧的下拉箭头，选择“worksheet”，在“声明”下拉箭头下选择“SelectionChange”，即可。结果为：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

liuxingyi88

第三课作业.rar (12.23 KB, 下载次数: 5)

2012-1-13 23:03 上传

点击文件名下载附件 我不知道我是哪个组的，是新加入的

EP学员

第3课的作业如下：
1、请找出下面Sub程序中的3个错误之处。
Sub筛选
    运行的语句（这里没错）
End
答：
1.Sub与筛选中间要有一个空格
2.筛选的后面要有（）
3.End的后面要有一个空格和Sub
2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
Sub A(g1 As Integer, g2 As Integer)
    Range("a1") = g1 + g2
End Sub
答：
Sub B()
A 100, 500
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
答：
Sub mysub()
Range("A1") = Myfun(4)
End Sub
4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
答：
1.在工程资源管理器中，双击SHEET1；
2.打开WORKSHEET对象；
3.选择SelectionChange过程；
显示语句：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

莫其名

1、请找出下面Sub程序中的3个错误之处。
答：sub与程序名之间必须有空格；程序名后面跟（），参数写在括号内；结束用end sub
                        
            2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
       Sub B()
A 100, 500
End Sub
            3、请编写一个名子为“mysub”的Sub程序，调用下面的函数程序，把函数返回的结果放在A1（VBA中表示为Range("A1")）里。调用时参数的值设置为4（A1的结果显示为24答案为正确）
Sub mysub()
    Range("A1") = Myfun(4)
End Sub
         4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
打开VBE编辑窗口，双击sheet1,打开代码窗口，在对象窗口选择worksheet,在过程窗口选择SelectionChange，即自动完成事件的开始与结束语句。

雨后的风

雨后的风 发表于 2012-1-12 21:01
1、请找出下面Sub程序中的3个错误之处。

                          Sub筛选()

和预览的效果不一样，修正一下：
1、3个错误处：
   1）Sub与程序名称间缺少空格；
   2）程序名称-筛选后面缺少()；
   3）End后面缺少Sub。
2、Sub B()
       Call A(100,500)
     End Sub
3、Sub mysub()
       Range("a1") = Myfun(4)
     End Sub
4、在sheet1的代码窗口右上角选择worksheet，然后选择change。

bynbyn

E13学员bynbyn作业，请老师批阅
1.第一处：函数名筛选和Sub之间应该有空格
  第二处：筛选函数应该带个双括号，不管有没有参数
  第三处：应该以Endsub结尾
2.Sub B()
      A 100,500
  End Sub
3.Sub mysub()
    Range("A1")=myfun(4)
  End Sub
4.Private Sub Worksheet_SelectionChange(a1 Target As Range)
            '运行语句
  End Sub

雨后彩霞

今天终于有时间交作业了。
第一题 答：正确写法
sub  名称号（）
运行的语句
end sub

第二题
sub b ()
call  a(100,500)
end sub


第三题
sub mysub ()
range("a1")= myfun(4)
end sub
第四题
选择 worksheet     对应该的右边先SelectionChange