VB程序设计基础教程第四章.ppt

免责声明 1. 本账号发布文档来源于互联网和个人收集, 仅用于技术分享交流用, 版权为原作者所有. 2. 文档内容纯属来自网络意见, 与本账号立场无关.涉及政治言论一律相应删除, 请大家监督. 3. 请下载试用后二十四小时内删除, 试用后请购买正版地资料或资源. 4, 如有侵犯原您地版权,请提出指正, 我们将立即删除相关资料. 第四章 控制结构 编写程序三个环节 数据输入 数据处理(计算) 数据输出 4.1 顺序结构 在顺序结构中，各语句是按照书写顺序依次执行的，这是一种最简单的控制结构。 例如： ● Text1.Text=”” ”” ● Text1.Text=””欢迎使用Visual Basic6.0 ”” ● S1=89 ● AV= (S1+ S2)/2 ● FileName$=””student_addrss”” ● n=n+1 -------------用于计数 ● sum=sum + 10 -------------用于累加。 赋值语句的有关规定 演示文档标题 演示文档内容 例如：输入圆的半径，求圆的面积。 功能：在屏幕上打开一个对话框，等待用户输入内容，当用户单击“确定”按钮或按回车键时，函数返回输入的值，其值的类型为字符串。 提示 ：提示用户操作的信息， 标题： 标题区显示 默认： 字符串或字符串表达式，输入区的默认内容 X、Y坐标位置: 对话框在屏幕上的的位置。单位为Twip [ ]: 表示其中的内容可以省略，全部省略后的语句形式为: 用Inputbox函数输入圆半径，求圆面积。 例4.1编写一个程序，通过调用InputBox函数，在屏幕上显示一个数据输入对话框。 Private Sub Form_click() Dim strName As String*20 Dim strS As String*20 strS=请输入你的姓名+Chr(13)+Chr(10)+然后单击确定按钮 strName=InputBox$(strS, 输入框, , 200,200) End Sub 功能：在屏幕上打开一个信息框，等待用户选择一个按钮。MsgBox函数返回所选按钮的整数值，其数值的含义见教材第四章表4.1。 按钮: 整数表达式，决定信息框按钮的数目和类型及出现在信息框上的图标类型，其设置见表4.2. print方法的语句格式为： ［对象名.］Print [{spc(n)|tab(n)};] [表达式列表][;|,] 用于清除运行时在窗体或图形框中显示的文本或图形。 形式为：(对象.)Cls “对象”为窗体或图形框，省略时默认为窗体。 例如： Picture1.Cls 清除图形框 Cls 清除窗体 用于退出某种控制结构的执行。 有多种形式为：Exit for、Exit Do等 例如： For i=1 To 5 　　 Print Tab(15-i);String(i,●); Print Tab(30-i);String(i,⊙) If i=3 then Exit for Next i 4.2 选择结构 选择结构通过对条件的判断来选择一个分支。VB中提供了多种形式的条件语句和函数来实现选择结构，如If、Select Case等。 例如 求十个数之和 Dim num!, tol!, n! Private Sub Command1_Click() num = InputBox(请输入数据) tol = tol + num n=n+1 End Sub 单行形式与多行形式 【例如】：已知两个变量x和y，比较它们的大小，使得x总是小于y的值。 例：编程实现轮流变换窗体背景颜色。要求最少要有四种颜色，如红、绿、蓝、黄。 Dim i As Integer Private Sub Form_Click() i = i + 1 If i 4 Then i = 1 If i = 1 Then Form1.BackColor = vbRed If i = 2 Then Form1.BackColor = vbGreen If i = 3 Then Form1.BackColor = vbBlue If i = 4 Then Form1.BackColor = vbYello