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

tcn541

1.  “sub”与“筛选”之间用空格隔开，“帅选”后面跟双括号
      结束语end后面加“空格和sub”
2. Sub b()
    A(100,500)
   End sub
3 Sud mysub()
   range("a1")=Myfun(4)
  End sub
4.双击microsoft excel 对象下的sheet1，然后点过左边程名称选worksheet
  再右边事件程序选change
   Private Sub Worksheet_Change(ByVal Target As Range)

   End Sub

decheng

第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。
错误2: 在程序名称“筛选”后面要跟上“(参数)”。
错误3：在最后一句代码“END”写错了，应该是“End  Sub”。

第二题：
答：
Sub B(g1 As Integer, g2 As Intege)
    Range("a1") = A(100, 500)
    Call A
End Sub


第三题：
答：
Sub mysub()
      Range("a1") = Myfun(4)
End Sub


第四题:
答：
Private  Sub  sheet1_SelectionChange（）
End   Sub

space80

1、错误一   sub后面应加空格
   错误二   筛选后面应加()
    错误三   End后面应加空格加sub
2、 Sub B()
            Call A(100, 500)
      End Sub
3、Sub mysub()
           Range("a1") = Myfun(4)
    End Sub
4、在工程列表中双击sheet1，打开代码窗口，代码窗口左上处选择worksheet，右上处选择selectionchange，完成开始和结束语句的添加。
   语句：
   Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     End Sub

XUEWU止境

1-1、  第一句有两个错误，Sub与筛选间要有个空格，且后面应加上()，正确是Sub 筛选()
1-2、 第三句有一个错误，少了Sub,正确是 End Sub
2、 答案如下：
    Sub B调用A()
            Range("G1").Value = 100
            Range("G2").Value = 500
      End Sub
3、 答案如下：   
       Sub mysub()
                 Range("A1") = MYFUN(4)
          End Sub
4、 答案如下：
在工程窗口中双击SHEET1工作表，在代码窗口中左边选择WORKSHEET，右边选择SelectionChange即可

一缕忧兰

A07:一缕忧兰
1
答：第一行Sub后少空格；筛选后少括号；结束语句少Sub
Sub 筛选()
      运行的语句（这里没错）
End Sub

2
答：
Sub B()
    Call A(100, 500)
End Sub

3
答：
Sub mysub()
    Range("A1") = Myfun(4)
End Sub

4
答：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

3D左右手

1、  Sub 筛选()           空格和括号
     运行的语句（这里没错）
     End sub             加end

2、   Sub B()
        Call A(100, 500)
     End Sub
3、  
    Sub mysub()
       Range("a1") = Myfun(4)
    End Sub

4、打开VBA编辑器--在工程窗口---点击Sheet1---查看代码
   在代码窗口上面选择栏 选择Worksheet   右栏选择SelectionChange
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

370311805

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

   Sub筛选
              运行的语句（这里没错）
       End

答：开始语句应为“Sub 筛选(参数)”；结束语句应为“End Sub”；Sub 前为Private或Public；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事件，请说出添加步骤（只添加开始和结束语句即可）

答：Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

翩翩起舞

第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()
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事件，请说出添加步骤（只添加开始和结束语句即可）
点工作表，再点WORKSHEET，再点SelectionChange即弹出以下语句即是，再中间再加上要操作的程序即可，以下即为开始和结束语句。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

wxfx1228

第1题:
错误1: “Sub”与” 筛选”之间没有空格
错误2:筛选后面没有()
错误3:END后面没有SUB

正确的如下:
Sub 筛选()
运行的语句
End Sub

第2题:
Sub b()

A 100, 500

End Sub

第3题
Sub mysub()
Range("a1") = Myfun(4)
End Sub

第4题
在VBA工程管理器中,双击sheet1,然后在代码窗口左上角,选择WORKSHHT,在右上角窗口选择SelectionChange,然后编写代码即可.

xxjjdd0000

1、请找出下面Sub程序中的3个错误之处。
            添加模块
                        Sub筛选（）
                          运行的语句（这里没错）
                        End sub

Sub A(g1 As Integer, g2 As Integer)

   Range("a1").Value = g1 + g2
End Sub
Sub B(g1 As Integer, g2 As Integer)
    g1 = 100
    g2 = 500
   A Range("b1")
End Sub

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
Function Myfun(A As Integer)
  Range("a1") = Myfun(4)
End Function


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub