第四章 基本的制结构.docVIP

第四章 基本的控制结构 第 PAGE 24 页 共 NUMPAGES 24 页 PAGE Visual Basic 6.0 第 PAGE 24 页 共 NUMPAGES 24 页 第四章 基本的控制结构 主要内容 顺序结构 输入函数（过程）InputBOX 输出函数（过程）MsgBox 选择结构（If、Select Case、Iif、Shoose、Switch） 循环结构（For … Next、Do … Loop、While … Wend） 其他辅助控制语句(Goto 、Exit、End、With) 常用算法（累加 连乘 特殊数类 穷举法 递推法 最大和最小值） 4.1 顺序结构 一. 赋值语句 形式: [LET]变量名＝表达式 作用: 将表达式的值赋值给变量名。 一般用于给变量赋值或对控件设定属性值. [例] sRate!=0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0” 说明： （1）当表达式结果为数值类型而与变量的精度不同时,强制转换成左边变量的精度。如： iA% = 10/3 iA中的结果为3，而表达式为3.33333 n%=11/2 结果n的值为6（四舍五入）, 而表达式为5.5 （2）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型，再赋值。但如有非数字字符或空串，则出错。如：X% = 9/2（出错） （3）当逻辑型赋值给数值变量时，False 转成0，True转成-1后再赋给数值变量。 （4）当数值型表达式赋给逻辑型变量时，非0数值转成True,0值转成False后再赋给逻辑变量 （5）任何非字符类型表达式赋给字符变量一律转成字符类型赋给字符变量 [例] s$=True 结果s的值为 True str$=1.23E+3 结果string的值为 ”1230”。 s$=511 结果s的值为 False 注意： 虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的置自动判断是何种意义的符号。 赋值语句的左边只能是变量，不能是表达式，符号常量。 不能在同一个语句中同时给各个变量赋值。 正确理解类似 sum=sum+k 赋值语句的含义。 二、 与用户实现交互的函数和过程 Visual Basic与用户之间直接交互是通过InputBox函数、MsgBox函数和MsgBox过程进行的。 1. InputBox函数 格式：InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中: “提示”：字符串表达式。表示在对话框中作为的提示信息；若要使提示信息在对话框中多行显示，必须在每行末加上chr(13)+chr(10)控制符或VB常数vbCrLf。 如：InputBox(一行 vbCrLf 二行 vbCrLf 三行, 标题, 1, 1000, 2000) “标题”： 字符串表达式，对话框标题栏的标题,若缺省，则标题栏标题为应用程序名称。“缺省”：用户不在输入区输入数据，则函数返回这个输入区中的缺省值。函数返回的数据类型是字符类型。 “x 坐标位置，y坐标位置”：整型表达式，表示对话框出现在屏幕中的位置。 例要在屏幕上显示如下的对话框: 注意： 各参数位置次数必须一一对应，除了提示一项不可省，其余各项均可省略。处于中间的省略要用逗号占位符。 如果你在对话框中按下了取消按钮，那么函数将返回一个空字符串（即使有默认值也是如此，这时如果直接赋给数值变量就会出现类型错误）。 InputBox也可以过程的形式使用，但此时它起不了输入的作用了。 [例4.1] 在mymb\vb4\ex4_1\lbc4_01.vbp 程序代码（form2）： Option Explicit Dim strName As String Private Sub MySub() Dim strS1 As String strS1 = 请输入你要借的的参考书名 + Chr(13) + Chr(10) _ 然后单击确定 strName = InputBox(strS1, 借书请求单, 学用 Visual Basic 6.0, 2000, 3000) End Sub Private Sub Command1_Click() 返回 Unload Me 删除窗体Form2 Form1.Show End Sub Private Sub Form_Load() Form2.Caption = 借书通知单 Call MySu