次里取丁

插入模块，再插入子程序 敲如下代码Public Sub vc()Dim name As StringDim birth As DateDim age As Integername = "次里取丁"birth = "1998-8-1"age = Year(Now()) - Year(birth)Debug.Print name & "is" & age &am...

打开VBA代码窗口 插入模块 插入子程序 敲以下代码Public Sub cv()Dim i%, j%For i = 1 To 9For j = 1 To 9If i >= j Then Cells(i, j) = Str(i) & "x" & Str(j) & "=" & i * jNext j, iEnd Sub然后运行，...