急电脑vb'（1）删除①②③及下划线并填空完成程序.'（2）一个细胞每第一分钟分裂为2个,第二分钟,就有4个细胞,然后,8个、16个、……以此类推.'点击“计算时间”按钮计算出一个细胞在经过

Question

急电脑vb
'（1）删除①②③及下划线并填空完成程序.
'（2）一个细胞每第一分钟分裂为2个,第二分钟,就有4个细胞,然后,8个、16个、……以此类推.
'点击“计算时间”按钮计算出一个细胞在经过多少分钟后数目超过10000个?
'注：请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码.
Private Sub Command1_Click()
Dim n As Long,x As Long
n = 1:x = 2
Do While _____①_____
n = ___②_____
x =____③____
Loop
Label1.Caption = n & "分钟"
End Sub
Private Sub Form_Load()
End Sub

Answer 1

是不是在考试啊~~~ ^_^
Private Sub Command1_Click()
Dim n As Long, x As Long
n = 1: x = 2
Do While ____x