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

shen3360

G1:shen3360上交作业

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

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

答：正确：

Sub 筛选（）--1、Sub和程序名间要有空格；2、程序名后要有括号，即使没有参数

运行的语句

End Sub     --3、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 g1 As integer

End Sub

方法二

Sub B()

Call A

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(A)

End Sub
         4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）

答：进入“Visual Basic 编辑器”—双击工程窗口上的“sheet1工作表”---在弹出“代码窗口”中的“对象列表框”点击下拉菜单选择“worksheet”---在“事件列表框”选择“SelectionChange”

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

meishang

作业交晚了，不好意思！ 第3题做错了。
第1题：sub 后没有空格，筛选后没边(),end错，应该是：sub 筛选() endsub
第2题：Sub b() '调用A
                 A 100, 200
           End Sub
第3题：Sub mysub()
  Range("A1") = Myfun()
  If x = 4 Then
  Stop
  End If
  Debug.Print b
End Sub
第4题：工具—宏—VB编辑器—双击工程里面sheet1—worksheet——右边选择SelectionChange—在两行语句中间输入内容。

ningmeng1979

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

                         Sub筛选
                           运行的语句（这里没错）
                         End
答：正确的应该是：
Sub 筛选 ()                         
运行的语句（这里没错）
                         End Sub

            2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
              Sub A(g1 As Integer, g2 As Integer)
                    Range("a1")value。= g1 + g2
               End Sub
答：程序为：
Sub  B ()
    A1 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 Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
代码
End Sub

amy_yw

amy_yw 发表于 2012-1-12 10:53
1、请找出下面Sub程序中的3个错误之处。
Sub筛选          '子程序结构错误 sub 过程名() 少了空格和括号
...

加个别人的正确答案，

Sub B()

A 100,500

End Sub

huzhiguo

huzhiguo 发表于 2012-1-12 18:59
第3课的作业回答：
第一题、作答：
错误一：Sub 后面缺少过程名，过程应该为英文字母

谢谢兰校长的点评，太激动了！

laoau126

8955666