求助这道题怎么写

！

Private Sub Command1_Click()
Dim k, fz, fm As Long
k = InputBox("请输入k:")
fz = 1
fm = 1
For i = 1 To k
fz = fz * (2 * i) * (2 * i)
fm = fm * (2 * i + 1) * (2 * i - 1)
Next
Print "分子：" & fz; "分母：" & fm
End Sub

如果K比较大的话，可以这样写
添加第二个按钮：
Private Sub Command2_Click()
Dim k, fz, fm, i As Double
k = InputBox("请输入k:")
fz = 1
fm = 1
For i = 1 To k
fz = fz * (2 * i) * (2 * i)
fm = fm * (2 * i + 1) * (2 * i - 1)
DoEvents
Next
Print "分子：" & fz; "分母：" & fm; "结果：" & fz / fm
End Sub

似乎就修改循环变量的值递增就好第一题。step 2

第二题也是，然后是i=1/i就好

谢谢各位大神😂