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

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()
  A  range(“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 编辑

第三讲-作业-A09byhdch

1、答：错误：①Sub与筛选之间没有空格,应增加一个空格；②筛选后缺少()；结束语句：③End后缺少Sub；应该为如下：

Sub 筛选()

运行的语句（这里没错）

End Sub

2、答：名字为"B”的Sub程序：

Sub B()

Call A(100, 500)

End Sub

3、答：名字为"mysub”的Sub程序：

Sub mysub()

Range("A1") = Myfun(4)

End Sub

4、答：进入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,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、打开VBE编辑器

2、对象选择Worksheet

3、事件过程选择SelectionChange

4、代码如下

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

		自动登录	找回密码
密码			注册

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

评分

评分

评分

评分

评分

评分