聪明的猪编程3.聪明的猪某屠宰厂杀猪有一习惯:把每天要杀的n头猪按顺序编号后排成一排，将排在单号位

推荐回答

方法很多，这里提供一种:Dim a(1 To 10000) As Integern = 1023For i = 1 To n a(i)=i Next iDo While n > 1 For i = 1 To n \ 2 a(i) =a(i*2) Next i n = n \ 2LoopText1.Text = Str(a(i))