在VBA编程中，计算一个数的平方有多种方法。以下是几种常见的方法：
使用乘法运算符
```vba
Dim x As Double
Dim square As Double
x = 5 ' 假设x的值为5
square = x * x ' 计算x的平方
MsgBox "x的平方为：" & square ' 显示结果
```
使用指数运算符
```vba
Dim x As Double
Dim square As Double
x = 5 ' 假设x的值为5
square = EXP（LN（x） * 2） ' 计算x的平方
MsgBox "x的平方为：" & square ' 显示结果
```
使用内置函数
```vba
Function Square（num As Double） As Double
Square = num * num
End Function
' 调用函数计算平方
Dim x As Double
x = 5 ' 假设x的值为5
Dim result As Double
result = Square（x）
MsgBox "x的平方为：" & result ' 显示结果
```
使用公式填充
如果你想在Excel中自动填充一列数字的平方，可以使用以下VBA代码：
```vba
Sub 自动填充公式（）
Dim lastRow As Long
lastRow = Cells（Rows.Count, "A"）.End（xlUp）.Row ' 获取A列最后一行的数据行号
Range（"B1:B" & lastRow）.FormulaR1C1 = "=RC[-1]^2" ' 将公式填充到B列
End Sub
```
这些方法都可以用来计算一个数的平方，你可以根据具体的需求和场景选择合适的方法。