文档介绍：第四章基本的控制结构(8学时)
顺序结构
选择结构
循环结构
其它辅助控制语句
常用算法(一)
常见错误(顺序、条件、循环)
一. 赋值语句
形式: [LET]变量名=表达式
作用: 将表达式的值赋值给变量名.
一般用于给变量赋值或对控件设定属性值.
例: sRate!=
= "欢迎使用Visual Basic ”
当表达式的类型与变量的类型不一致时,强制转换成左边的精度
iA% = 10 / 3 iA中的结果为3
注意:虽然赋值号与关系运算符等于号都用“=”表示,VB系统会根据所处的位置自动判断是何种意义的符号。
二. 与用户交互函数和过程
1. InputBox函数
InputBox(提示[,标题][,缺省][,x 坐标位置][,y坐标位置])
其中:提示提示信息,标题对话框标题,缺省输入区缺省值
函数返回字符类型.
例要在屏幕上显示如下的对话框:
Dim strName As String * 40,
strS1 As String * 40
相应的语句如下:
strName= InputBox( “请输入你的姓名”+ vbCrLf + “然后单击确定”, “输入框”)
也可以:
strS1 = “请输入你的姓名”+ Chr(13) + Chr(10) + “然后单击确定”
strName= InputBox(strS1, “输入框”, , 100,100)
当键盘输入“王晓明”后,变量strName获得键盘输入的值.
2. MsgBox函数和MsgBox过程
函数形式:变量[%] = MsgBox(提示[,按钮][,标题])
过程形式: MsgBox 提示[,按钮][,标题]
按钮值如下: 函数返回所选按钮整数值:
编一帐号和密码检验程序。
要求: 帐号不超过6位数字,有错,清除原内容再输入。
密码输入时在屏幕上以“*”代替; 若密码错,显示有关信息,选择“重试”按钮,清除原内容再输入,选择“取消”按钮,停止运行。
分析: 帐号6位,MaxLength为6;Tab键触发LostFocus事件, IsNumeric(Text1)函数判断参数Text1是否为数字。
密码PassWordChar为“*”,MsgBox函数设置密码错对话框。
增加:若密码正确,则用MsgBox显示密码,并加上“你好”字样。

1. If…Then语句(单分支结构)
If <表达式> Then
语句块
End If
或 If <表达式> Then <语句>
例:已知两个数x和y,比较它们的大小,
使得x大于y。
If x<y Then
t=x
x=y
y=t
End If
或 If x<y Then t=x: x=y: y=t
重要的是学会两个数的交换,若上述语句次序变一下,结果如何?
2. If…Then…Else语句(双分支结构)
If <表达式> Then
<语句块1>
Else
<语句块2>
End If
If <表达式> Then <语句1> Else <语句2>
计算分段函数
单分支结构实现: y=cos(x)-x^3+3*x
If x<>0 Then y=sin(x)+sqrt(x*x+1)
双分支结构实现: If x<>0 Then
y=sin(x)+sqrt(x*x+1)
Else
y=cos(x)-x^3+3*x
End If
3. If…Then…ElseIf语句(多分支结构)
形式:
If <表达式1> Then
<语句块1>
ElseIf <表达式2>Then
<语句块2>
…
[Else
语句块 n+1 ]
End If

不管有几个分支,依次判断,当某条件满足,执行相应的语句块,其余分支不再执行。若条件都不满足,且有Else子句,则执行该语句块;否则什么也不执行。
ElseIf不能写成 Else If。
例已知百分制成绩mark,显示对应的五级制成绩
哪些正确,哪些错误?
根据三角形的三边长判定三角形类型并求面积。
程序框架:
If 表达式1 Then
Print "是等边三角形"
ElseIf 表达式2 Then
Print "是等腰三角形"
ElseIf 表达式3 Then
Print "是直角三角形"
Else
Print "是任意三角形"
End If
求面积,并打印面积值