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

sunjing-zxl

E学委:sunjing-zxl      交作业

Sub 筛选()
运行的语句 (这里没错)
End Sub
错误1：sub和筛选没有空格
错误2：筛选后面没有括号
错误3：end后面没有sub

Sub B()
Call A(100, 500)
End Sub

Sub mysub()
Range("A1") = Myfun(4)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
步骤：
'选择工程管理器里面的sheet1表
'在代码窗口的左上角选择Worksheet
'在代码窗口的右上角选择SelectionChange

梅一枝

A06：梅一枝  第3课的作业如下：             1、请找出下面Sub程序中的3个错误之处。                          Sub筛选                                       运行的语句（这里没错）                          End 答：1.没空格隔开，没带参数用的（）；2、结束没写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（）           A 100,500 END SUB 或者    Sub BB（）                Call（100,500） Edn 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”)=mayfun(4) End sub          4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）

答：打开工作表，点击VBE编辑器，打开工程窗口，找到 sheet1工作表对象，双击，调出代码窗口，在代码窗口的左上角的 对象窗口上选择WORKSHEET, 在右侧的过程窗口上选择SelectionChange事件，

自动形成语句：

                                 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

回答完毕！

wp8680

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

                         Sub筛选
                           运行的语句（这里没错）
                         End
答：1. 第一句的sub与宏名“筛选”之间应有一空格
2. “筛选”后面得加一对英文半角的括号
3. 结束时语句应为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事件，请说出添加步骤（只添加开始和结束语句即可）
答：双击工程窗口的Sheet1，在代码窗口的上左边下拉中选择Worksheet，右边选择SelectionChange事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

君子豹变

第1题
Sub筛选
    运行的语句 (这里没错)
End
答：错了三处，Sub后要空格，名称后要有括号，结束语句为End Sub
正确过程
Sub 筛选()
    '运行的语句 (这里没错)
End Sub
第2题
Sub A(g1 As Integer, g2 As Integer)
    Range("a1") = g1 + g2
End Sub
答案：
Sub b()
    Call A(100, 500)
End Sub

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


第4题
在工程窗口，双击Microsoft Excel对象中的Sheeet1对象，在弹出的代码窗口里，在对象选项中选择Worksheet，在过程选项中选择SelectionChange，代码区域就自动添加了开始和结束语句。

szczm121

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

'         Sub筛选   1、sub和宏名称之间有空格，2、后面有半角全括号。
'            运行的语句 (这里没错)
'         End   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()
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编辑器中,双击工程窗口中sheet1,弹出BOOK1-sheet1(代码)窗口；第二步，点击左上角下拉框,选择WORKSHEET,此时窗口中就会默认出现SelectionChange事件代码首尾句。

yijundanny

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

szczm121

谢谢校长给分，看到你的给出的评语“答案正确”，太开心，我这个零分起学生有进步了。

sddz1977

1、请找出下面Sub程序中的3个错误之处。
a、 sub 空格  筛选
b、  筛选后加括号（参数）
c、 结尾：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事件，请说出添加步骤（只添加开始和结束语句即可）

Private Sub sheet1_Change( )
  
End Sub

sddz1977

更改第4题：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

ada_smile

1.Sub与程序名称之间要有空格，程序名称后面有（），程序结束 end sub正确的应该为  
Sub 筛选（）
    运行的语句
End sub
2.Sub test B()
    call A g1=100,g2=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