6.4 习题

1. 在标准模块中输入如下一段代码

    Sub测试()
        Const rate = 0.041
        Dim bj As Double
        Dim lx As Double
        bj = ActiveSheet.Cells(1, 1)
        lx = bj * rate
        ActiveSheet.Cells(2, 1) = lx
    End Sub

要求在“lx = bj * rate”这行代码处设置一个断点，并从该语句开始逐行运行。

2. 撤销上述代码的断点，改将断点设置在“ActiveSheet.Cells(2, 1) = lx”上，并且为变量lx添加监视，从监视窗口中观察lx变量的值。

3. 删除Sheet2工作表，不论该工作表是否存在，在执行删除过程中都不出现提示对话框。

4. 删除Sheet2工作表，要求在不能够正常删除的时候给出一个消息框提示“Sheet2工作表不存在，无法删除”。