Dim y As Double y = 29 y = y ^ 71 y = y / 71 MsgBox y
Dim y As Double y = 29 ^ 71 / 71 Print y
今天下午改了变量定义之后正确了,谢谢大家:) Private Sub Form_Click() Dim i As Integer, y As Double, a(71) As Double y = 1 For i = 1 To 71 a(i) = 29 / i y = y * a(i) Next Print y End Sub
y=29^71/71
y = 29
y = y ^ 71
y = y / 71
MsgBox y
y = 29 ^ 71 / 71
Print y
Private Sub Form_Click()
Dim i As Integer, y As Double, a(71) As Double
y = 1
For i = 1 To 71
a(i) = 29 / i
y = y * a(i)
Next
Print y
End Sub