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。
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
第三课作业
第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
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
1、Sub筛选 --没有空格，括号；应为 Sub 筛选()
运行的语句（这里没错） End - -没有Sub，应为End Sub2、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
我的作业，敬请老师批评指正
第一题的错误有三点，以下：
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.
VBA第3课作业-H15-hactnet
1、请找出下面Sub程序中的3个错误之处。
Sub筛选 答：
运行的语句（这里没错）
End 答：
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
'第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