统计VBA学习小组正式组第三讲的积分帖之作业上交贴 - 第5页 - Excel VBA实战营2期 - Excel精英培训网

chrissha 发表于 2012-1-11 20:59

C组10：chrissha
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
答：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()
         Range("A1") = Myfun(4)
   End Sub

4、我想在sheet1工作表中添加一个SelectionChange事件，请说出添加步骤（只添加开始和结束语句即可）
答：首先在“工程资源管理器”双击sheet1，在右边就会弹出sheet1的代码框出來；然后在代码框的左上角选择“Worksheet”(默认是通用)，然后在右边选择“SelectionChange”，这样就会自动弹出SelectionChange事件的开始和结束语句

zac0226 发表于 2012-1-11 21:04

21组：zac0226
1、 Sub筛选后没有——() End后没有 ——sub
2 、2Sub b()
Arange(“a1”)=100+500
或者Call a(range(“a1”))=100+500
End sub
3、sub mysub()
Range(“a1”)=myfun(4)
End sub
4、Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "你好"
End Sub

byhdch 发表于 2012-1-11 21:04

本帖最后由 byhdch 于 2012-1-17 22:25 编辑

第三讲-作业-A09byhdch1、答：错误：①Sub与筛选之间没有空格,应增加一个空格；②筛选后缺少()；结束语句：③End后缺少Sub；应该为如下： Sub筛选() 运行的语句（这里没错） End Sub2、答：名字为"B”的Sub程序： Sub B() Call A(100, 500) End Sub3、答：名字为"mysub”的Sub程序： Sub mysub() Range("A1") = Myfun(4) End Sub4、答：进入VBE窗口，双击工程窗口中的“Sheet1 (Sheet1)”，进入代码编辑窗口，点击代码窗口左上角“对象”下拉按钮，选中“worksheet”，然后点击代码窗口右上角“过程”下拉按钮，选中“SelectionChange”，此时代码窗口出现下列代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub 然后添加需要的代码，完成如下： Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "不能编辑，否则中毒" End Sub

wuhairong2011 发表于 2012-1-11 21:30

第1题：错误1; sub筛选中间要格个空格，错误2;定义名称后面要加括号()，错误3;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

qzc804030 发表于 2012-1-11 22:16

1：答案
第一个错的地方，SUB筛选之间应有空格，第二个错的地方是筛选后应有(),第三个错的地方结束语句少了个SUB。
正确的是
SUB 筛选()
运行语句
END SUB
2:答案
sub B()
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
Range("A1") = Myfun
End Function
Sub mysub()
Myfun 4
End Sub
4:答案
打开VBE编辑器,打开找到工程窗口,在工程窗口里找到"SHEET1"工作表,双击鼠标或右键鼠标点开代码窗口,在对象列表框点开下拉框选中"WORKBOOK"对象,在过程列表框中点开下拉框选中"SelectionChange"事件,代码窗口就在"SHEET1"中增添了"SelectionChange"的事件，只有开始语句和结束语句。

bikong01 发表于 2012-1-11 22:22

一
1、Sub和筛选应有空格
2、筛选后应有()
3、结束语应为 End sub

二
Sub B()
Call A(100, 500)
End Sub

三
Sub mysub()
Range("a1") = Myfun(4)
End Sub

四
打开VB编辑器,双击sheet1,左侧通用改为worksheet,右侧声明改为SelectionChange.代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

禾火亦 发表于 2012-1-11 22:33

本帖最后由禾火亦于 2012-1-12 11:50 编辑

1、sub后面要有空格
筛选后面加括号
end sub

2、Sub B()
      Call A(100, 500)
End Sub

3、Sub mysub()
      Range("a1") = myfun(4)
End Sub

4、工程窗口--双击sheet1--wordsheet--selectionchange
   Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
C07:禾火亦

jinglingshu 发表于 2012-1-11 23:02

H12:jinglingshu
1、请找出下面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()
            Range("a1") = 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工作表按Ait+F11打开VBE编辑器（或在工程窗口双击sheet1打开代码窗口）
                           ↓
                           代码窗口的对象列表中选Worksheet
                                 过程列表SelectionChange
                                             ↓
                           代码窗口自动添加开始/结束语句
            Private Sub Worksheet_SelectionChange(ByVal Target As Range)

                  End Sub

qh8600 发表于 2012-1-11 23:10

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

2. Sub b()
      A 100, 500
   End Sub

3. Sub mysub()
   Range("A1") = Myfun(4)
End Sub

4. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   End Sub

sliang28 发表于 2012-1-12 08:35

C09 sliang28 作业如下：第3课的作业如下：
         1、请找出下面Sub程序中的3个错误之处。

                     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()A 100,500End 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、打开VBE编辑器2、对象选择Worksheet3、事件过程选择SelectionChange4、代码如下Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub

页: 1 2 3 4 [5] 6 7 8 9 10 11 12

Excel精英培训网's Archiver