任务描述:
利用 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