统计VBA学习小组正式组第三讲的积分帖之作业上交贴

xxjjdd0000

xxjjdd0000 发表于 2012-1-15 22:10
1、请找出下面Sub程序中的3个错误之处。
            添加模块
                        Sub筛选（）

A01：xxjjdd0000

海角天涯0

先把作业交了吧，第三题不会做了。
第一题：错误1 在Sub与筛选之间，应有空格。错误2在筛选后应带（参数）。错误3在End后面应带Sub。
第二题：Sub B（）
                 A
              End Sub
第三题：Sub mysub()
                 Range("A1") = myfun
              End Sub
第四题：private Sub Selectionchange（）
                 msgbox“”
              End Sub

白米饭

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()
                   [a1]=Myfun(4)
                  end sub

         4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
        答：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
               内容
             End Sub

ddmyykdzh

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

校长，我听课了，但是没听完，电脑出现问题了，听了30分钟就死机了
后来看视频很多地方没看明白，这段时间也没很多时间温习课本
我VBA是个空白，但是真的很想学。。。后期会尽自己最大的努力学习vba的,希望自己能跟上课程的脚步{:011:}{:3112:}

kakaco

H组 组长:kakaco

习题1

1. Sub 筛选()
   
2. 运行的语句（这里没错）
   
3. End sub

复制代码

sub筛选()   sub后面要加个空格 筛选后面要加个()  End后面要加空格及sub

习题2

1. 
   
2. Sub A(g1 As Integer, g2 As Integer)
   
3. Range("a2") = g1 + g2
   
4. End Sub
   
5. 
   
6. Sub B()
   
7. Call A(100, 500)
   
8. End Sub

复制代码

习题3

1. 
   
2. Function Myfun(A As Integer)
   
3. Dim x As Integer
   
4. Myfun = 1
   
5. For x = A To 1 Step -1
   
6. Myfun = Myfun * x
   
7. Next x
   
8. End Function
   
9. 
   
10. Sub mysub()
    
11. Range("a1") = Myfun(4)
    
12. End Sub

复制代码

习题4

进入VBE编程管理器
点击excel对象
选中sheet1 右键---查看代码
通用--选中worksheet，右边选中SelectionChange

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3. End Sub

复制代码

水上漂123

sub b()
a 100,500
end sub
function mysub()
range("a1") =myfun(4)
end function
终于研究出了第二题和第三题，补上

decheng

老师 之前您说我的第2,4题答案有误
现在我修改了一下 不知道是不是对的  您看一下


第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。
错误2: 在程序名称“筛选”后面要跟上“(参数)”。
错误3：在最后一句代码“END”写错了，应该是“End  Sub”。

第二题：
答：

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

decheng

老师 之前您说我的第2,4题答案有误
现在我修改了一下 不知道是不是对的  您看一下


第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。
错误2: 在程序名称“筛选”后面要跟上“(参数)”。
错误3：在最后一句代码“END”写错了，应该是“End  Sub”。

第二题：
答：

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

decheng 发表于 2012-1-14 17:37
第一题
答：
错误1：sub后面应该是留空格 再跟上“程序名称”。

老师 我重新交了作业了

在第11页的第108楼

http://www.excelpx.com/thread-219217-11-1.html