[互联网]vb第三章 Visual Basic设计基础.ppt

3.1 3种基本的控制结构 [ , | ; ] : 逗号或分号或缺省，指定下个字符的输出 点。如果省略，则在下一行输出下一字符。 逗号：则以14个字符位置为单位把一个输出行分为 若干区段，逗号后面的表达式在下一个区段 输出。 分号：表示光标定位在上一个显示的字符后面。 例3.1： a=100：b=50 Print a Print Print a+b Print “ABCD” 例3.2： a=10:b=20:c=30 Print a,b,c,”Visual Basic” Print Print a,b,c;”Visual”;”Basic” 输出结果： 10 20 30 Visual Basic 10 20 30 VisualBasic 一般情况下，没执行一次Print方法会自动换行， 后面执行的Print会在新的一行显示信息。 若想在同一行显示结果，可以在末尾加上分号或 逗号。 使用分号时，下一个Print输出内容紧跟在当前 Print输出的信息后。 使用逗号，则在同一行上跳到下一个区段显示。 例3.3： a=10:b=20:c=30:d=40 Print “a+b=”, Print a+b Print “c+d=”; Print c+d 输出结果：a+b= 30 c+d=70 Spc(n)：其作用是在显示或打印列表中的下一个表 达式之前插入n个空格。使用时spc函数与输 出项之间用分号隔开。 说明： Spc函数与Tab函数相似，但Tab函数需要从 对象的左侧开始计数，而Spc函数只表示两 个输出项的间隔。 说明： 条件是具有布尔型的关系或逻辑表达式；或者是求值 结果为数值的表达式。表达式的结果为True或False。 数值为0为False，非零为True。 语句组可以是一条语句，也可以是多条，此时用“:”分隔。 Else子句可以省略，此时为单分支结构。 例3.5： 输入x，求下列分段函数f(x)值。用InputBox输入x， 计算结果f(x)输出到Text控件。 Private Sub Command1_Click() Dim x as Single x=InputBox(输入x,计算分段函数的值) If x=5 Then Text1.Text=Str(1-x*x) Else _ Text1.Text=Str((x-5)^0.25) Rem 以上两行之间加入了2个字符“ _”，因此VB将 它们视为写在1行上的行IF语句。 End Sub 窗体设计：建立文本框控件Text1、Text2，标签 控件Label1； 事件过程：Form_Click（单击窗体响应）： Private Sub Form_Click() Dim x as Single,y as Single,Temp as Single x=Text1.Text: y=Text2.Text If xy Then Temp=y: y=x: x=Temp Label1.Caption=x=+str(x)+ y=+str(y) End Sub 说明： 功能与单行格式相同。但适应性更强，更结 构化。 多行格式必须以End If结束。 各语句模块应缩格书写，体现层次关系。 执行过程： 先测试条件1，若为True，则执行Then之后的语句块； 如果为False，则顺序测试每个ElseIf子句中的条件，当发现某个条件为True时，则执行与其相关的Then后的语句。 若所有ElseIf子句的条件都为False，则执行Else后的语句。 在执行了Then或Else后的语句后，程序退出块结构条件语句，继续