大家帮帮我
明天就要考了 !!!
小第我急了

Dim h, sum As Double
Dim a, n As Integer
h = CDbl(TextBox1.Text)
n = CInt(TextBox2.Text)
sum = h
For a = 1 To n
sum += h / 2
h = h / 2

Next