查人人中国名人网是一部内容开放、自由的互动网络百科全书客观、专业、权威的知识性百科全书
来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 16:13:39
Private Sub Form_Load() a = 12 b = 0 Do While Not a > 16 a = a + a * 0.01 b = b + 1 Loop msgbox(b)End Sub