至少有两个办法：
1.设置错误陷阱：

Private Sub Command1_Click()
On Error GoTo 100
Dim i As Single, a As Double, n As Integer
i = Val(InputBox("请输入利息率", "利率"))
a = Val(InputBox("请输入年金数值", "年金数值"))
n = Val(InputBox("请输入计息期数", "期数"))
Text1.Text = Str(a * (1 - (1 + i / 100) ^ (-n)) / (i / 100))
100
End Sub

2.检查i是否等于0：

Private Sub Command1_Click()
Dim i As Single, a As Double, n As Integer
i = Val(InputBox("请输入利息率", "利率")): If i = 0 Then Exit Sub
a = Val(InputBox("请输入年金数值", "年金数值"))
n = Val(InputBox("请输入计息期数", "期数"))
Text1.Text = Str(a * (1 - (1 + i / 100) ^ (-n)) / (i / 100))
End Sub

非常感谢，问题终于解决了。太感谢您了，就是没考虑到i=0的情况。

考虑到i=0的情况。