任務描述：

    利用 Excel 繪製函式影象 f(x)=x^2/3+0.9*(3.3-x^2)^1/2*sin(a*x)，並通過按鈕事件來重新整理影象。

問題分析：

    可以參考類似 Matlab 繪圖的方式，定義自變數 x：[-1.816,1.816,0.1]，因變數 y：= POWER(A1*A1,1/3)+0.9*POWER((3.3-A1*A1),1/2)*SIN($C$1*A1)（其中 a 的值存放在 $C$1 單元格中）然後插入關於 y 的折線圖；

    按鈕事件可以通過插入矩形，併為其定義巨集來更新單元格 $C$1 的值，如下圖所示。

Sub test()

Dim i As Integer
Dim Savetime As Single

For i = 1 To 100

'選擇執行
If i Mod 10 = 0 Then
Cells(1, 3) = i
'MsgBox('hello')
'Application.Wait (Now + TimeValue("0:00:03"))

'等待一會再執行下一次迴圈
Savetime = Timer
While Timer < Savetime + 0.02
DoEvents '轉讓控制權'
Wend

End If

Next
i = i + 1

End Sub