**** Hidden Message *****
1、请找出下面Sub程序中的3个错误之处。
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事件，请说出添加步骤（只添加开始和结束语句即可）
答:在VBE编辑器中,选择通用中的WORKSHEET,并在声明中选择SELECTIONCHANGE事件即可.
只会第一题，错误是sub和名称之间少空格，名称后没有括号，end后少sub
第二题不会
第三题不会
第四题Private Sub SelectionChange()
With
End With
End Sub
第一题
错误一：在“Sub”和“筛选”之间应该有一个空格；
错误二：“筛选”后少一个“（）”；
错误三：最后一行应为End Sub。
第二题
Sub B()
A"100", "500"
End Sub
第三题
Sub mysub()
Range("a1") = Myfun( )
End sub
第四题
在VBA编辑器窗口“工程”中选择“sheet1”,双击，点击“通用”右侧的下拉箭头，选择“worksheet”，在“声明”下拉箭头下选择“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()
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事件，请说出添加步骤（只添加开始和结束语句即可）
答：
1.在工程资源管理器中，双击SHEET1；
2.打开WORKSHEET对象；
3.选择SelectionChange过程；
显示语句：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
1、请找出下面Sub程序中的3个错误之处。
答：sub与程序名之间必须有空格；程序名后面跟（），参数写在括号内；结束用end sub
2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
Sub B()
A 100, 500
End Sub
3、请编写一个名子为“mysub”的Sub程序，调用下面的函数程序，把函数返回的结果放在A1（VBA中表示为Range("A1")）里。调用时参数的值设置为4（A1的结果显示为24答案为正确）
Sub mysub()
Range("A1") = Myfun(4)
End Sub
4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
打开VBE编辑窗口，双击sheet1,打开代码窗口，在对象窗口选择worksheet,在过程窗口选择SelectionChange，即自动完成事件的开始与结束语句。
雨后的风 发表于 2012-1-12 21:01 static/image/common/back.gif
1、请找出下面Sub程序中的3个错误之处。
Sub筛选()
和预览的效果不一样，修正一下：
1、3个错误处：
1）Sub与程序名称间缺少空格；
2）程序名称-筛选后面缺少()；
3）End后面缺少Sub。
2、Sub B()
Call A(100,500)
End Sub
3、Sub mysub()
Range("a1") = Myfun(4)
End Sub
4、在sheet1的代码窗口右上角选择worksheet，然后选择change。
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