VisualBasic流程控制语句.ppt

循环结构 For…Next循环举例 循环结构 (1)无条件循环，语法格式： Do 循环体 Loop 说明： 这是最简单的循环，它没有任何条件限制便可执行循环，循环将无限执行下去； 可以按Ctrl+Break键强行终止。 Do…Loop循环 共有五种不同的语法格式 循环结构 循环结构举例：求输入数值的和。 sum=0 Do x=val(InputBox(“输入数值：”)) sum=sum+x print sum Loop 说明：程序执行后，每次从输入框中输入一个值赋给x，累加到变量sum并显示该值。按Ctrl+Break终止程序执行。 循环结构 循环结构举例：求输入数值的和。改进！ sum=0 Do x=val(InputBox(“输入数值：”)) if x0 then Exit Do sum=sum+x print sum Loop 说明：程序执行后，每次从输入框中输入一个值赋给x，累加到变量sum并显示该值。当x0时，终止程序执行。 循环结构 (2)用While条件判断的循环，语法格式： Do While 条件 循环体 Loop 说明： 当条件为真时执行循环体， 条件为假时终止循环。 Do…Loop循环 共有五种不同的语法格式 循环结构 循环结构举例：求输入数值的和。 sum=0: x=val(InputBox(“输入数值：”)) Do While x=0 x=val(InputBox(“输入数值：”)) sum=sum+x print sum Loop 循环结构 (3)用Until进行条件判断的循环，语法格式： Do Until 条件 循环体 Loop 说明： 当条件为假时执行循环体， 条件为真时终止循环。 Do…Loop循环 共有五种不同的语法格式 循环结构 循环结构举例：求输入数值的和。 sum=0: x=val(InputBox(“输入数值：”)) Do Until x0 x=val(InputBox(“输入数值：”)) sum=sum+x print sum Loop 循环结构 (4)用后While条件判断的循环，语法格式： Do 循环体 Loop While 条件 说明： 先无条件地执行一次循环体， 当条件为真时执行循环体， 条件为假时终止循环。 Do…Loop循环 共有五种不同的语法格式 循环结构 (5)用后Until条件判断的循环，语法格式： Do 循环体 Loop Until 条件 说明： 先无条件地执行一次循环体， 当条件为假时执行循环体， 条件为真时终止循环。 Do…Loop循环 共有五种不同的语法格式 循环结构举例 例4_4 循环结构举例 练习(例4_5) 输出三角形图案 主要代码 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 10 ‘外循环控制行 Print Spc(15 - i); ‘输出每行前面的空格 For j = 1 To I ‘内循环控制每行的*数 Print * ; Next j Print ‘输出一行后换行 Next i End Sub 练习一:(用作业纸) 输入任意字符，判断其是否为：字母、数字或其他字符，并显示判断结果。 通过键盘输入一个正整数n，输出1!~n! 作业内容包括： 画出窗体及控件 给出各控件属性值 代码设计 文本框的属性、方法 文本框的属性、方法 获得焦点 使用焦点 焦点(Focus)就是光标，具有焦点的对象才能响应用户的输入。 同一时刻只能有一个窗口或控件具有焦点。 当控件的Visible、Enabled为True时，控件才能接收焦点。 用SetFocus方法设置焦点。 数据输入 输入框函数InputBox 格式： 变量=InputBox(信息内容[,对话框标题] [,默认内容]) 信息内容对话框中出现的内容 对话框标题 默认内容输入框中的默认内容 数据输入 输入框函数InputBox 对话框标题 信息内容 X=InputBox(“请输入0~100中的数值：”，”成绩等级”) 数据的输入输出练习 分别利用文本框、inputbox输入圆的半径，显示该圆的面积和周长。 分析： 输入（inputbox、文本框） 输入信息为字符 通过val()函数转换为数值 计算结果 显示（print方法、标签框） 编写代码 运行 20 运行 创建一个文本框