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

雨后的风

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

                          Sub筛选()
                            运行的语句（这里没错）
                          End Sub
    注：下划线地方为错误处

2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
               Sub A(g1 As Integer, g2 AsInteger)
                     Range("a1") = g1+ g2
                End Sub
Sub B()
         CallA(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事件，请说出添加步骤（只添加开始和结束语句即可）
在sheet1的代码窗口右上角选择worksheet，然后选择change。

rabbitllu

1.第一个错是 sub后要有空格，第二个错要有双括号，第三个错结尾是End sub
sub 筛选 ()
    运行的语句
End sub

2.sub b ()
     A
不好意思，答到一半，有事情，明天再答，校长先别看，辛苦了，谢谢

十五的月亮

            1、 ①Sub筛选之间要空格   ②筛选后面加（）③结束语句End Sub
            2、Sub testB()

                     A 100, 500

                 End Sub
            3、Sub mysub()

                    Range("a1") = Myfun(4)

                 End Sub
         4、 点开Sheet1代码窗口添加

                   Private Sub Worksheet_SelectionChange(ByVal Target As Range)

                   End Sub

linmm

第三课作业

第1题
3个错误是：sub与筛选之间没有空格；筛选后面没括号；结束语句不完整，完整如下 ：
Sub 筛选()
   运行的语句
End Sub

第2题
Sub A(g1 As Integer, g2 As Integer)
       Range("a1") = g1 + g2
    End Sub

  Sub B()
    A 100, 500
  End Sub

第3题
  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对象代码窗口，在对象列表框中选中worksheet，在过程列表框中选中SelectionChange
下方出现
Option Explicit
(这里是程序分隔线)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

w2001pf

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即可。代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

liuho1

1、Sub筛选          --没有空格，括号；应为 Sub 筛选()

       运行的语句（这里没错）

        End               - -没有Sub，应为End Sub

2、  Sub B()

        Call A(100, 500)

        End Sub

3、Sub mysub()

      Range("A1") = Myfun(4)

      End Sub

4、打开VBE窗口，在工程资源管理器中，双击sheet1，打开sheet1的代码窗口，在代码窗口上方的左下来框（通用），选择“Worksheet”，在右下拉框，选择SelectionChange，代码窗口中出现SelectionChange事件的开始和结束语句： Private Sub Worksheet_SelectionChange(ByVal Target As Range)…………End Sub

awxgaige

我的作业，敬请老师批评指正

释怀

第一题的错误有三点，以下：
1、Sub与筛选之间应该空一格                          
2、筛选后面要加个括号。
3、最后End后面应该空一格，再加个Sub。

即如下：
Sub 筛选()
   运行的语句（这里没错）
End Sub


第二题的代码如下：
Sub B()
  A(100,500)
End Sub

第三题的代码如下：
Sub mysub()
Range("a1")=Myfun(4)
End sub

4、在Micrsoft Excel对象中，选择sheet1(sheet1),然后选择worksheet和SelectionChange


若有错解，希望得到指正.TKS.

hactnet

VBA第3课作业-H15-hactnet
1、请找出下面Sub程序中的3个错误之处。
     Sub筛选      答：[1、这里sub后少空格，2、筛选后少参数括号()，应为：sub 筛选()]
        运行的语句（这里没错）
     End          答：[3、这里end，应为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()
     dim a1
     a1=myfun(4)
     range("a1")=a1
    end sub
     
4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
答：在VBE编辑器的工程窗口中选择："vbaproject"---"microsoft excel对象"---双击"sheet1(sheet1)"对象
，在右边的工作表代码编辑窗口中选择"worksheet"，添加"selectionchange"事件,然后输入相应的程序代码
。
  例：private sub worksheet_selectionchange(byval target as range)
      msgbox  "欢迎打开工作表！"
      end sub

mfksypss

'第3课的作业如下:
'1?请找出下面Sub程序中的3个错误之处?

                         Sub 筛选() '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()
               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事件，请说出添加步骤（只添加开始和结束语句即可）
'双击工程窗口中的sheet1 , 在对象框中选worksheet, 在过程框中选selectionchange