VB 第六篇 循环结构 2.pptVIP

Private Sub Timer1_Timer() Label1.Caption = 当前时间是： Hour(Time) 时 Minute(Time) 分 Second(Time) 秒 Label2.Caption = 当前日期是： Date End Sub 6.7 定时器、滚动条控件 2、过程设计： 程序运行时，调用当前的系统时间，在窗体上显示数字钟，并每秒钟更新时间内容。 6.7 定时器、滚动条控件 例：滚动字幕 1、界面设计： 窗体上添加Label1、Timer1和Command1，并设置定时器Timer的Interval属性值为100。 6.7 定时器、滚动条控件 2、过程设计： 程序运行后，标签从左向右移动，移出窗体右边界后重新从窗体的左边进入。 Private Sub Command1_Click() If Command1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 停止 Else Timer1.Enabled = False Command1.Caption = 开始 End If End Sub Private Sub Timer1_Timer() If Label1.Left = Form1.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = 0 End If End Sub THE END 谢谢 程序设计基础（VB） 主讲人：孟永伟 Email:ywmeng@yahoo.cn 第六章 循环结构 教学基本要求 掌握For、Do循环语句的语法结构及使用情况； 掌握循环语句的嵌套及选择。 教学内容 6.1 For循环语句 6.2 For循环语句的嵌套 6.3 For循环语句应用举例 6.4 Do…Loop循环语句 6.5 Do…Loop循环语句的嵌套 6.6 Do…Loop循环语句应用举例 主要知识点与重点 For循环语句； Do…Loop循环语句。 6.4 Do…Loop 循环语句 在循环进行之前不知道循环次数，只知道循环的终止条件，可以用Do…Loop循环。Do循环具有更强的灵活性，它可以根据需要决定是条件满足时执行循环体，还是一直执行循环体直到条件满足。 格式 1 Do [{while|until} 条件] 循环体 [Exit Do] Loop 说明： Do，Loop及While，Until都是关键字。 循环体：需要重复执行的一个或多个语句。 条件：是一个逻辑表达式。 Exit Do：表示退出循环。 6.4 Do…Loop 循环语句 格式 2 Do 循环体 [Exit Do] Loop [{while|until} 条件] 格式 3 Do 循环体 Loop 6.4 Do…Loop 循环语句 格式 1 Do while 条件 循环体 [Exit Do] Loop Do until 条件 循环体 [Exit Do] Loop 先判断条件，再执行循环体；若条件不满足，循环体执行0次。 6.4 Do…Loop 循环语句 例题：i=10Print “Value of i at beginning of loop is”; iDo While i10 i=i+1LoopPrint “Value of I at end of loop is”; i 由于i=10,条件不为True，因此不执行循环体。 输出结果：Value of i at beginning of loop is 10Value of I at end of loop is 10 6.4 Do…Loop 循环语句 例题：i=10Print “Value of i at beginning of loop is”; iDo Until i=10 i=i+1LoopPrint “Value of I at end of loop is”; i 由于i=10,条件为True，因此不执行循环体。 输出结果：Value of i at beginning of loop is 10