xxjjdd0000 发表于 2012-1-15 22:10 static/image/common/back.gif
1、请找出下面Sub程序中的3个错误之处。
添加模块
Sub筛选（）
A01：xxjjdd0000
先把作业交了吧，第三题不会做了。
第一题：错误1 在Sub与筛选之间，应有空格。错误2在筛选后应带（参数）。错误3在End后面应带Sub。
第二题：Sub B（）
A
End Sub
第三题：Sub mysub()
Range("A1") = myfun
End Sub
第四题：private Sub Selectionchange（）
msgbox“”
End Sub
本帖最后由 白米饭 于 2012-1-16 13:35 编辑
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
---------------------------------------------------------------------------------------------------------------------------------------
1）Sub B()
Call A(100, 500)
End Sub
2)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()
=Myfun(4)
end sub
4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
答：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
内容
End Sub
1、少了空格，程序名后没有（）结尾错误，应该是end sub
2、Sub B(n)
test A
Range("g1") = 100
Range("g2") = 500
End Sub
3、Sub mysub(n)
Range("a1") = Myfun
Range("x") = 4
End Sub
4、alt+F11打开vba窗口，找到sheet1工作表，双击打开编辑窗口，在编辑窗口左上角下拉选项选择worksheet，在右上角下拉选项选择SelectionChange即可
本帖最后由 ddmyykdzh 于 2012-1-16 13:22 编辑
校长，我听课了，但是没听完，电脑出现问题了，听了30分钟就死机了
后来看视频很多地方没看明白，这段时间也没很多时间温习课本
我VBA是个空白，但是真的很想学。。。后期会尽自己最大的努力学习vba的,希望自己能跟上课程的脚步{:011:}{:3112:}
本帖最后由 kakaco 于 2012-1-16 13:45 编辑
H组 组长:kakaco
习题1 Sub 筛选()
运行的语句（这里没错）
End subsub筛选() sub后面要加个空格 筛选后面要加个()End后面要加空格及sub
习题2
Sub A(g1 As Integer, g2 As Integer)
Range("a2") = g1 + g2
End Sub
Sub B()
Call 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
进入VBE编程管理器
点击excel对象
选中sheet1 右键---查看代码
通用--选中worksheet，右边选中SelectionChange Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
sub b()
a 100,500
end sub
function mysub()
range("a1") =myfun(4)
end function
终于研究出了第二题和第三题，补上
老师 之前您说我的第2,4题答案有误
现在我修改了一下 不知道是不是对的您看一下
第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。
错误2: 在程序名称“筛选”后面要跟上“(参数)”。
错误3：在最后一句代码“END”写错了，应该是“EndSub”。
第二题：
答：
Sub B(g1 As Integer, g2 As Intege)
A Range("a1") = A(100, 500)
End Sub
第三题：
答：
Sub mysub()
Range("a1") = Myfun(4)
End Sub
第四题:
答：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
老师 之前您说我的第2,4题答案有误
现在我修改了一下 不知道是不是对的您看一下
第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。
错误2: 在程序名称“筛选”后面要跟上“(参数)”。
错误3：在最后一句代码“END”写错了，应该是“EndSub”。
第二题：
答：
Sub B()
A 100, 500
End Sub
第三题：
答：
Sub mysub()
Range("a1") = Myfun(4)
End Sub
第四题:
答：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
decheng 发表于 2012-1-14 17:37 static/image/common/back.gif
第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。
老师 我重新交了作业了
在第11页的第108楼
http://www.excelpx.com/thread-219217-11-1.html