丽水学院VB-4-2008422115830770.pptVIP

4.1 顺序结构 4.1.1 赋值语句 语法特点 “=”为赋值号，不等于数学意义上的等号。VB系统会自动判断是赋值还是关系运算。如： x=0　　　　　　　　　 ‘赋值 Print x=0 ……　　　　‘关系运算　　　　 赋值语句具有赋值和计算的双重功能，即首先计算右边的值，然后赋给左边的变量。如： x=x+1　　　　　　‘变量自增常用形式 x=5%2 “＝”两边应具有相同的数据类型，当左右类型不符时： n%=5.6 ‘5.6四舍五入为6 n%=“123” ‘等价于n%=Val(“123”) n%=“a123” ‘出错：类型不匹配 常见错误 赋值号左边只能是变量或属性名，不能为常量或表达式。(下列语句中只有一个正确） x+y=z Sqr(d)=0 Text1=“” １＝x 不能在一条赋值语句中给多个变量赋值。 如：x=y=z=1　　　 若原值都为０，则结果不变 若原值都为1，请思考运行后结果为？ 4.1.2　数据的输入和输出 1. 标签和文本框控件（已学） 输入： 文本框(TextBox)控件text属性 如：r=val(text1.text) 输出： 标签(Label)控件caption属性 如：label1.caption=半径 2. InputBox函数 作用：弹出一个对话框，等待用户输入内容，函数返回值为字符型。 格式：[变量]=InputBox(提示[,标题] [,默认值] [, x坐标位置] [, y坐标位置] ) 举例： dim r! r=inputbox(“ 请输入半径:”,”求圆面积”,1) 3．MsgBox函数和MsgBox过程 作用：弹出一个信息框，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。 语法格式 ： [变量[%]]=MsgBox(提示[, 按钮] [, 标题] ) 举例(效果如图4.1所示) msgbox函数：i=msgbox(“密码错误”,5+48,”警告”) msgbox过程：MsgBox 密码错误, 5 + 48, 警告 例4.2 账号密码验证程序 text1:用户名，输入后以Tab键结束，因此在LostFocus事件中检验数字有效性isnumeric，错误提示Msgbox。 text2:密码，星号显示Passwordchar，密码验证if语句，出错提示msgbox，重试或取消（按钮值5）。 4. Print方法 在对象上输出信息，格式： [对象.]Print [定位函数][输出表达式列表][分隔符] 对象：可以是窗体（缺省）、图形框或打印机。 定位函数：Spc(n)输出n个空格；Tab(n)左起n列。 表达式列表：输出的数值或字符串，缺省空行。 分隔符：逗号（隔14列）和分号（紧凑） 注：一般Print方法在Form_Load事件中不起作用，除非将AutoRedraw属性设为True。 举例：使用Print方法输出一个金字塔图案 5. Format格式输出函数 按指定格式输出数据，格式： Format(表达式,” 格式字符串”) 格式字符串： 0：数字位数，不足补0； #：数字位数，前后不加0； …… 如：format(1234,567,”00000.00”) 结果：01234.57 第一节思考与练习 P.94习题四 1.结构化程序设计的三种基本结构 2.指出赋值语句的错误 10x=sin(x)+y c=3+sqr(-3) c+x+y=c*y x=sin(x)/(20 mod 2) 3.msgbox与inputbox函数的区别？返回值类型？ 4.使单精度x,y,z分别保留1，2，3位小数，print输出。 4.2 选择结构程序设计 4.2.1 If条件语句 1． If...Then语句（单分支条件结构） 用法解析 If...Then 的单行格式末尾不加 End If。 如果 表达式为 True 时要执行多行代码，则用语法： If...Then ... End If 或用If…Then 语句１:语句２:语句… 例4.5：两个数x和y比较大小，使得x中的值大于y。 例题演示 例4.7 输入一个字符，判断是字母、数字还是其他。 …… If ucase(ch)=“A” and ucase(ch)=“Z” then …… Elseif …… 例4.8 成绩评定(5个等级) 语法结构同上例 If语句嵌套练习题 输入x,y,z三个数，从小到大输出。主要代码如下： If xy then t=x:x=y:y=t If yz then t=y:y=z:z=t If xy then t=x:x=y:y=t End if End if 注：书写时采用锯齿型布局，If与end if必须配对 举