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

dsjohn

第3课的作业
1、
1.        Sub与筛选应有一个空格;
2.        筛选缺（）
3.        End后面少Sub
2、
“B”的Sub调用程序
Sub b()
    Call A(100, 500)
End Sub

3、
“mysub”的Sub调用程序：
Sub mysub()
    Range("a1") = Myfun(4)
End Sub

4、
答：在vbe的工程资源管理器里双击sheet1表，在代码窗口上部的”通用”选择栏中选取worksheet,”声明”栏自动默认添加SelectionChange，这样在代码窗口就会出现如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

happym8888

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

TOMJESSON

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

                         Sub筛选
                           运行的语句（这里没错）
                         End
                        答：Sub筛选后面少了括号，应为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)
    MsgBox "欢迎学习使用SelectionChange事件"
End Sub

gaoshuichang1

第一题
⑴sub和筛选之间应有一空格;
⑵筛选后面应有"()";
⑶END后面应加一个"空格"和"SUB”。
第二题
⑴直接调用程序"A”
Sub B()
   A 100, 500
End Sub
⑵利用call调用程序"A”
Sub B()
   Call A(100, 500)
End Sub
第三题
Sub Mysub()
   Range("A1") = Myfun(4)
End Sub
第四题
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Address
End Sub

想飞的鸟

''第3课作业答案:

第1题:
       ''  错误1.sub与筛选之间无空格
        '' 错误2.筛选之后无双括号 , 即()
         ''错误3.结束语句中无  sub ,应该为:  end sub

第2题:
         Sub B()
          Call A(100, 500)

         End Sub

第3题:
        Sub mysub()
        Myfun (4)

        End Sub

第4题:
双击左边的sheel1,在右边上端的列表框中分别选择:  
Worksheet     SelectionChange  即可得到下面的代码


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

TOMJESSON

          不好意思，刚才有第一题有些问题，我不能编辑，重新回复一次。
       第3课的作业如下：
            1、请找出下面Sub程序中的3个错误之处。

                         Sub筛选
                           运行的语句（这里没错）
                         End
                答：
                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()
                    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)
                    MsgBox "欢迎学习使用SelectionChange事件"
                End Sub

汉娜

B12
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

qushui

A组学委：qushui
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即可。

yjwcyp

1、请找出下面Sub程序中的3个错误之处。
   Sub筛选
      运行的语句（这里没错）
   End
（1）sub和筛选之间应该要有空格
（2）筛选后面应该有()
（3）end后面应该要有sub
   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").Value = Myfun(4)
End Sub
4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
选择sheet1，在“通用”下拉菜单中选择worksheet，然后在“声明”下拉菜单中选择SelectionChange即可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

suntopjiang

赶上第二页。
'第3课的作业如下:
'1            ?请找出下面Sub程序中的3个错误之处?
'
                         Sub筛选                         '改为  sub 筛选()
                           运行的语句 (这里没错)
                         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()
             Call Myfun(4)
             Range("A1") = Myfun(4)
             End Sub
'         4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）

'1 、双击工程窗口里面sheet1工作表
'2、在代码窗口左上面选择worksheet，右边找到selectionchange事件即可
'3 、自动生成的代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub