第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
**** Hidden Message *****
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
第一题
⑴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
不好意思，刚才有第一题有些问题，我不能编辑，重新回复一次。
第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
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即可。
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
赶上第二页。
'第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