E13学员bynbyn作业，请老师批阅
1.第一处：函数名筛选和Sub之间应该有空格
第二处：筛选函数应该带个双括号，不管有没有参数
第三处：应该以Endsub结尾
2.Sub B()
A 100,500
End Sub
3.Sub mysub()
Range("A1")=myfun(4)
End Sub
4.Private Sub Worksheet_SelectionChange(a1 Target As Range)
'运行语句
End Sub
今天终于有时间交作业了。
第一题 答：正确写法
sub名称号（）
运行的语句
end sub
第二题
sub b ()
calla(100,500)
end sub
第三题
sub mysub ()
range("a1")= myfun(4)
end sub
第四题
选择 worksheet 对应该的右边先SelectionChange
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
第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。
错误2: 在程序名称“筛选”后面要跟上“(参数)”。
错误3：在最后一句代码“END”写错了，应该是“EndSub”。
第二题：
答：
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
第四题:
答：
PrivateSubsheet1_SelectionChange（）
End Sub
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
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
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
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