vb程序设计 第四章分支结构

4.1.1 赋值语句

赋值语句注意点: “=”符号有两个意义

赋值号、关系运算符的等号 形式相同,系统会根据所处的位置判断符号的意义。
a=b b=a

赋值号左边只能是变量，不能是常量、常数符号、 表达式。下面均为错误的赋值语句：


Now()=x+y 5=sqr(s)+x+y x+y=3

4.2.1 if条件语句 If x<y Then
t=x x=y If…Then语句(单分支结构) y=t If <表达式> Then End If
<语句块> If x<y Then t=x : x=y : y=t End If 或 If <表达式> Then <语句>

表达式：关系表达式、逻辑表达式，算术表达式。表达 式值非零为True，零为False进行判断。
<表达式1> Then
表达式 1
F F T 表达式 2 T 表达式 n T 语句块 1 语句块 2 语句块 n 语 句 块 n+ 1 F
If
<语句块1> ElseIf <表达式2> Then <语句块2> … [Else <语句块 n+1>] End If
作用：根据不同的表达式值确定执行哪个语句块
4.2.1 if条件语句
If x<>0 Then 双分支 y=sin(x)+sqr (x*x+1) 单分支结构实现： If x<>0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－x^3+3*x 结构实现 y=cos(x)－x^3+3*x End If
4.2.1 if条件语句

3. If…Then…ElseIf 语句
5. 格式输出函数 例3.1 利用Format函数显示有关的日期和时间。 Private Sub Form_Click( ) FontSize = 12 MyTime = #9:21:30 PM# MyDate = #7/21/1997# Print Tab(2); Format(MyDate, "m/d/yy") Print Tab(2); Format(MyDate, "mmmm-yy") Print Tab(2); Format(MyTime, "h-m-s AM/PM") Print Tab(2); Format(MyTime, "hh:mm:ss A/P") Print Tab(2); Format(Date, "dddd,mmmm,dd,yyyy") Print Tab(2); Format(Now, "yyyy年m月dd日 hh： mm") Print FormatDateTime(Now) ' VB6.0新提供的函数 End Sub
第3章 VB语言基础
3.1 顺序结构
3.1.1 赋值结构 3.1.2 数据的输入和输出
You are here!
你在这儿 ！
3.2 3.3 3.4 3.5 3.6
选择结构 循环结构 其它辅助控制语句 综合应用 程序调试
第 4章 VB控制结构

VB具有结构化程序设计的三种程序控制结构，即 顺序结构、选择结构、循环结构，是程序设计的 基础。


打开一个对话框，等待用户输入，返回字符串类型的 输入值。 形式：InputBox(提示[,标题][,默认值][,x坐标位置][,y坐标位置]) 注意:提示项不能省略。 若要多行提示，可在每行 行末加回车换行vbCrLf。
4.1.2 数据输出和输入
例4.1利用InputBox输入基本工资和营业额， 按营业额的5%提成，计算实发工资并显示。
各语句按出现的先后次序执行
X=2 X=3 Print x
（1）顺序结构
用传统流程 图表示为
语句1
语句2
4.1 顺序结构

在VB中


赋值语句 输入/输出: 文本框控件、标签控件、 InputBox函数、MsgBox函数和过程 Print方法等来实现。
4.1.1 赋值语句

形式： 变量名＝表达式 [对象名.] 属性名=表达式
4.1.2 数据输出和输入

例4.3 Print方法输出图形

关键：找定位和字符的规律 行号设为i 1、每行起始定位tab(i) 2、每行字符 String函数显示重复字符 String(6-i ,“▼”); string(6, “ “ );‟spc(6) string(i,”▲”)
'左边是表达式(函数) „ 左边是常量 „ 左边是表达式
4.1.1 赋值语句
Sum=0 For i = 1 To 10 赋值语句的两个常用形式 sum=sum+1 Next i 1、累加

sum=sum+x 2、计数 n=n+1

N%=3.5



N%=“123” 赋值号两边数据类型不同时： N%=“1a23” 为了保证程序的正常运行，一般利用类型转换函 N%=“” 数将表达式的类型转换成左边变量的类型。逻辑 型值赋给数值型变量，true -1 false 0 任何非字符型的值赋值给字符型变量，自动转换 为字符型，(偶数取整原则)
6 使用标签控件的输出和使用文本框控件的 输入 Caption Aurtosize wordwrap password ,multiline、text等属性

第4章 VB语言基础
4.1 顺序结构 4.2 选择结构


4.2.1 if条件语句 4.2.2 Select Case语句 4.2.3 条件函数

F
语句块 2
当表达式的值为True时，执行Then后面的语句块1，否 则执行Else后面的语句块2
4.2.1 if条件语句
例4.6计算分段函数
单分支 结构实现
sin x x 2 1 y cos x x 3 3x x0 x0
y=cos(x)－x^3+3*x If x<>0 Then y=sin(x)+sqr (x*x+1)
You are here!
你在这儿 ！
4.3 4.4 4.5 4.6

循环结构 其它辅助控制语句 综合应用 程序调试
4.2 选择结构
计算机要处理的问题往往是复杂多变的， 仅采用顺序结构是不够的。 必须利用选择结构等来解决实际应用中的 各种问题。 VB中主要通过If条件语句和Select情况语 句来实现。它们都是对条件进行判断，根 据判断结果，选择执行不同的分支。 函数IIF,Choose,switch
R=val(text1.text) 4.1.2 数据输出和输入
从文本框中输入圆半径，标签框中显示“面积=***”
Label1.caption=“面积=” & 3.14*r*r
s = InputBox("请输入你的姓名" & vbCrLf & "然后单击确定", "输入框", "王晓明")
1、标签和文本框控件 2、 InputBox函数
按钮值如下： 函数返回所选按钮整数值：
4.1.2 数据输出和输入
例4.2 编一账号和密码输入的检验程序，对输入的账号和密码规定如下： 1、账号不超过6位数字，以按Tab键表示输入结束；当输入不正确，如 账号为非数字字符，显示密码不正确等，显示错误提示。 2、密码是4位字符，输入文本框以“*”显示，按“检验密码”按钮表 示输入结束，密码假定为“Gong”；若密码不正确，显示错误提示并 让用户选择相应的操作。
Print方法输出图形
Private Sub Form_Click() Dim i% For i = 1 To 4 Print Tab(2 * i); "★"; String(8 - 2 * i, "☆"); "★" Next i Print Tab(9); "☆"; For i = 4 To 1 Step -1 Print Tab(2 * i); "★"; String(8 - 2 * i, "☆"); "★" Next i End Sub
4.1.2 数据输出和输入


4、Print方法 作用:在对象上输出信息。 对象.Print[Spc(n)|Tab(n)][输出列表 ][;|,] Print tab(1);”**”;tab(2);”%%%”;spc(2);”$$$$” 对象：窗体、图形框或打印机。缺省为窗体。 定位函数： Spc(n)函数：从当前位置起空n个空格 Tab(n)函数：从最左端开始计算的第n列 分号：定位在上一个被显示的字符之后 逗号：定位在下一个打印区开始处(每区14列) Print语句尾无分号或逗号，输出后换行

功能：计算表达式的值，再将此值赋给变量或对象属性。

给变量赋值和设定属性是VB编程中常见的两个任务。
1、已知x,计算表达式3*x2+4*x+5的值，将结果赋给y
Y=3*x^2+4*x+5
2 、清除文本框的内容
Text1.Text ＝ ""
3 、文本框显示字符串 “欢迎使用VB”
Text1 ＝ "欢迎使用VB”
按钮项是一整型表达式，决定信息框按钮的数目和