[分享]实例 Do_While《Visual Basic 程序设计》Do_While.rar
下面给出一个使用 Do_While 语句的实例,读者可根据它加深对该语句使用的理解。
实例 Do_While 《Visual Basic 程序设计》Do_While.rar
《Visual Basic 程序设计》
(全书程序都是用VB6简体中文版为平台来讲解的)
陈 明 编 中央广播电视大学出版社
第 67 页 第三章 Do_While 语句的实例
代码:
Private Sub Form_Click() Dim I As Integer I = 1 'I 的初值赋为 1。 Do While I <= 5 '只要 I<=5,就执行Print I 和 I=I+1语句。 Print I '直到I>5,循环结束。 I = I + 1 Loop End Sub
点击浏览该文件
[attach]99[/attach]
文件:Do_While.rar :(Do_While.frm、Do_While.vbp、Do_While.exe)
[此贴子已经被作者于2004-05-09 19:18:32编辑过]