VB While循环结构，如何写代码？

Question

VB While循环结构，如何写程序代码？
n个西瓜，第一天卖出一半多2个，以后每天卖出剩下的一半多2个，问几天以后能卖完？

只要剩余的西瓜个数>0，就继续卖，求几天卖完，也即求循环的次数。
第一天剩余：n-Int（n/2）-2
第二天剩余：[n-Int（n/2）-2]- Int[n-Int（n/2）-2]/2-2
某一天的剩余： n-Int(n/2)-2

Answer 1

Private Sub Command1_Click()
Dim n%, i%
n = CInt(InputBox("输入西瓜个数 "))
Print n; "个西瓜"
Print "天数", "剩余的瓜"
i = 0 '天数
Do While n > 0
i = i + 1
n = n - Int(n / 2) - 2
Print "No. " & i, n
Loop
Print i; "天卖完这些瓜"
End Sub

Answer 2

'假设西瓜卖出的过程反过来，每天卖出的西瓜都是前一天的二倍再多4个。
'第一天的前一天卖出西瓜0个，所以第一天卖出西瓜4个。。。
'直至某一天卖出西瓜n个,即是所求的天数。
Private Sub Command1_Click()
Dim n&, i&,m&
n = 1020
do while m<n
i=i+1
m=m+m+4
loop
Print i; "天卖完这些瓜"
End Sub

Answer 3

read(n)
i=0
while n>0
i=i+1
n=n-int(n/2)-2
wend
write(i)