81Do循环 单击窗体,要求在窗体上显示6行星号 前测型当型循环: Dim i As Integer’定义计数器变量i来记录目前已输出的行数 Do Print”***冰水**水***水 i=i+1 Loop Until i>val( InputBox("请输入行数:") End sub 注意: 在循环体中,至少要有一条语句使得循环趋结束,使 循环语句在有限的时间内执行完毕,否则将会出现 “死循环”。8.1 Do 循环 ❖单击窗体，要求在窗体上显示6行星号 ▪ 前测型当型循环： ▪ 将上面的代码改为前测型直到型循环、后测型当 型循环和后测型直到型循环。 Dim i As Integer '定义计数器变量i来记录目前已输出的行数 i = 0 Do While i < 6 '当输出行数未达到6行，反复执行下面语句 Print "****************" i = i + 1 '每输出一行信息，计数器i累加1 Loop '返回到Do While行 End Sub Do Until i >5 Print "****************" i = i + 1 Loop Do Loop while Loop Until i > 5<6 Val(InputBox("请输入行数：")) 注意： ▪ 在循环体中，至少要有一条语句使得循环趋结束,使 循环语句在有限的时间内执行完毕，否则将会出现 “死循环