吉祥0011vba入门班 8组
1、请找出下面Sub程序中的3个错误之处。
Sub筛选
运行的语句（这里没错）
End
答：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 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
1、请找出下面Sub程序中的3个错误之处。
Sub筛选
运行的语句（这里没错）
End
Sub 筛选()
运行的语句 (这里没错)
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") = Myfun(4)
End Sub
4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
①按ALT+F11或者其他方式进入VBE编辑器
②在sheet1内输入如下代码，将会通过消息窗口返回选中单元格或者区域的地址。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Selection.Address
End Sub
第一题里面的参数写成参考了。①程序名称后面没加括号，没有参数也要加括号，里面留空。级别太低，没有编辑权限。^:L
1、SUB后面没有()
SUB与筛选之间应有空格
END后面还应有SUB
2、程序如下：
Sub B()
A 100, 500
End Sub
3、程序如下：
Sub mysub()
Range("A1") = Myfun(4)
End Sub
4、进入sheet1工作表的代码窗口，在过程列表框左边的框中选择“worksheet‘，过程列表框中选择”SelectionChange“即可。
1、请找出下面Sub程序中的3个错误之处。
答：SUB后未加空格；程序名外未加（）；最后收尾时未加上程序名称 SUB收尾
Sub筛选（）
运行的语句
End sub
2、请编写一个名子为“B”的Sub程序，调用下面带参数的“A”程序，第一个参数值为100，第二个参数值为500
Sub B()
Call 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事件，请说出添加步骤（只添加开始和结束语句即可）
答：打开visual basic 窗口，在工程窗口里找到SHEET1，并双击，在通用里下拉框里选择WORKSHEET，在右边动作里选择SelectionChange
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
中间编辑内容
End Sub
第3课的作业回答：
第一题、作答：
错误一：Sub 后面缺少过程名，过程应该为英文字母
错误二：Sub过程名后面应该有（），里面参数可以缺省。
错误三：结尾应该是End Sub
第二题、作答
Sub b()
Dim g1 As Integer
Dim g2 As Integer
g1 = 100
g2 = 500
Call A(g1, g2)
End Sub
第三题、作答
Sub C()
Dim x1 As Integer
x1 = 4
Range("a1") = Myfun(x1)
End Sub
第四题、作答
在代码窗口，选择通用“sheet1”，声明里面选择“SelectionChange”事件，代码窗口便可以新增一串代码，将Worksheet修改sheet1生成如下代码：
Private Sub sheet1_SelectionChange(ByVal Target As Range)
End Sub
sddz1977 发表于 2012-1-11 15:57 static/image/common/back.gif
1、请找出下面Sub程序中的3个错误之处。
a、 sub 空格筛选
b、筛选后加括号（参数）
subB()
calla (100,500)
end sub
jjxym 发表于 2012-1-11 20:42 static/image/common/back.gif
1、 Sub与筛选没有空格；筛选后面没有参数、括号；End后面没有Sub
2、 Sub B ()
2
Sub b()
A 100, 500
End Sub
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
不好意思，答到一半，有事情，明天再答，校长先别看，辛苦了，谢谢