VB顺序设计.doc

VB顺序设计教学目的：1、 熟悉结构化程序设计的三种基本结构及其特点。2、 掌握VB中顺序设计常用的语法规则。教学重点：1、 结构化程序设计方法概念的理解。2、 Print方法的应用及格式特点。3、 VB中的赋值语句功能及特点。4、 VB中的inputbox()输入函数及msgbox()输出函数应用。课时安排：理论教学安排6课时，上机练习8课时一、程序设计三大基本结构：1、顺序（按语句的书写顺序执行）2、分支3、循环二、赋值语句格式： let 变量名 = 表达式功能： 计算表达式的值，并把结果送给“=”左边的变量。Let a1=3*4-语句执行后，变量a1的值为12Let ab1=”你好”-语句执行后，变量ab1的值为字符串“你好”语句说明：1、变量与表达式的数据类型必须一致。2、“=”有方向性。需要动态理解Let a1=a1+1-将a1的当前值加1送给a1。语句执行后，a1的值自动累加13、VB中对象的属性名等同于变量名。 Private Sub Command1_Click()Dim a As String, b As StringLet a = Text1.TextLet b = Text2.TextLabel1.Caption = a + bEnd Sub上机练习：P47-49 例1到例3P78 上机调试题1 产生随机数公式：Int(n*rnd)+1 用来产生1到n之间的随机整数1） 定义变量（n,x1,x2,x3）2） 取得n值（通过文本框送值给n） n=val(text1.text)3） 产生x1,x2,x3三个随机数4） x1,x2,x3分别送给指定的标签。 Dim n as integer,x1 as integer Dim x2 as integer,x3 as integer N=val(text1.text) randomizeX1=int(n*rnd+1): X2=int(n*rnd+1) X3=int(n*rnd+1) Label2.caption=x1 Label3.caption=x2 Label4.caption=x3三、print方法1、格式： 对象名.print 输出项列表具体语句如下： Form1.print 输出项表 Picture1.print 输出项表例如： Form1.Print 我的程序, 23 -在窗体上显示两个数据项。Form1.Print 23+14=, 23 + 14Picture1.Print 我的图片框 -在图片框上显示一个数据项。Picture1.Print 23+14=; 23 + 142、功能： 在指定的对象上输出结果。注意：对象为窗体时，对象名可以省缺。3、输出项表的格式 （1）逗号分隔符-输出项以标准格式输出。（输出项之间有固定的间隔）Print 1Print 1 两行的输出有区别。上一行输出数值1，前面有符号位。而下一行输出字符1，顶格显示。Print 1, 2 （2）分号分隔符-输出项以紧凑格式输出。输出多个字符时，直接连接输出。输出数值时，产生一个分隔位，用来将数据隔开。Print 1; 2; 3Print 1; 2; 3注意：print方法中，逗号与分号可以混用。Print 1; 2; 3, 1; 2; 3Print 1; 2; 3, 1; 2, 3（4）特殊的print语句 分隔符出现在print的末尾-表示下一个print语句与本行的print在同一行显示。Print 1; A=2Print 2; 3,Print 1; 2; 3 分隔符之间的数据项可以省缺。-标准输出时会产生更大的分隔空间。Print 1; ; ; 2Print 1; 2 效果相同Print 1, , 2Print 1, 2 效果不同 空print语句-产生换行或空行Print 1,2,Print 功能为换行Print 1,2,3Print 功能为空行Print 1;2;3（5）在print语句中使用定位函数空格函数spc(n)-在分号分隔符输出项之间产生指定个数的空格。Print “中国”;”湖北”print“中国”;spc(1);”湖北”print“中国”;spc(2);”湖北”print“中国”;spc(3);”湖北”print“中国”;spc(4);”湖北”列定位函数tab(n)-在分号分隔符输出项之间，指定随后的输出项的输出位置。Print “中国”;”湖北”print“中国”;tab(10);”湖北”print“中国”;tab(12);”湖北”print“中国”;tab(14);”湖北”print“中国”;tab(16);”湖北”格式串输出函数format(表达式，格式串)-常用于数值的输出。上机练习：P51-54 例3.4,3.5P79 上机调试2Private Sub Command1_Click()Dim a As Stringa = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextText3.Text = aEnd SubPrivate Sub Command2_Click()Text4.Text = Text1.Text & Text2.Text & Text3.TextEnd Sub四、对话框的使用1、输入对话框格式：变量名=inputbox(“提示字符串”,”标题”，“默认值”，输入框的位置坐标)Private Sub Form_Click()Dim x As Stringx = InputBox(请输入你的姓名)Print 你的名字是 & xEnd SubPrivate Sub Form_Click()Dim x As Stringx = InputBox(请输入你的姓名, 姓名输入框)Print 你的名字是 & xEnd Sub注意：1）字符串的分行显示 Chr(13)-回车 Chr(10)-换行Print 你的名字是 & chr(13) & chr(10) & x -print 语句将产生两行输出效果。2）inputbox()的值是字符串。转换成数值使用val()函数。 2、输出消息框格式： 变量名=msgbox(“提示串”，“对话框类型”，“对话框标题”)对话框类型如下：x = MsgBox(你的名字是 & x, 16, 姓名输出框)对话框类型值=按钮值+图标类型值+默认按钮值按钮值：0，1，2，3，4，5图标类型值：16，32，48，64默认按钮值：0，256，512注意：1） Msgbox()的返回值为一个数值（也可以是符号常量），代表了不同的按钮。2） Msgbox可以有无返值格式。结构如下：Msgbox “提示串”,”类型”,”标题栏”例如：MsgBox 你的名字是 & x, 49 + 256, 姓名输出框上机练习：1、 P69 例3.82、 P80 上机调试题7（1） msgbox “在这里显示提示信息”，4，“请确认”x= msgbox (“在这里显示提示信息”，4，“请确认”) 两种语句格式均可，前一种无返值，后一种返回一个数值送给x变量。（2） msgbox “在这里显示+chr(13)+chr(10)+提示信息”，3，“请确认”（3） msgbox “在这里显示+chr(13)+chr(10)+提示信息”，18，“请确认”Private Sub Command1_Click()MsgBox 欢迎 + Text1.Text, 68, 消息框End Sub系统登录界面设计：Private Sub Command1_Click()Dim a As Integera = MsgBox(欢迎 + Text1.Text, 49, 消息框)If a = 1 Then Unload Me 用来卸载窗体,执行完后窗体1消失. Form2.Show 显示窗体,执行完后窗体2显示. Else Text1.Text = Text2.Text = End IfEnd Sub小结顺序程序设计：一、程序结构语句1、赋值语句let 变量名=表达式let 对象名.属性=表达式2、 常用语句1) end2) rem()rem 这是我写的程序这是我写的程序3、 print方法 form1.print 输出项表 picture1.print 输出项表 重点：输出项表的格式1） 标准分隔“,”2） 紧凑分隔“;”3） 定位函数spc(n),tab(n)3、 对话框1） 输入对话框 变量名=inputbox(“”,“”，“”，)2） 消息框 变量名=msgbox(“”,“”，“”，)msgbox“”,“”，“”，二、控件对象 1、对象的公共属性 Name,caption,enabled(可用),visible（可见） 2、标签（label） 常用属性：label1.caption 事件：单击，双击3、按钮（command） 常用属性： 事件：单击4、 文本框（text）常用属性：text1.text,passwordchar,事件：单击,双击，change上机练习：P79、上机练习5、6上机练习5Private Sub Cmd1_Click()Lab1.Visible = TrueLab1.Caption = 您已下达显示命令！End SubPrivate Sub Form_Click()Cmd1.Visible = TrueEnd Sub上机练习6课本37页（字符串函数）1、 求字符串长度len()-求字符串的长度。2、 取子串函数 Left(字符串，n)-从字符串左边开始取n个字符组成新字符串。right(字符串，n)-从字符串右边开始取n个字符组成新字符串。mid(字符串，p,n)-从字符串左边开始数，第P个位置取n个字符组成新字符串。N可以省缺，表示取到字符串的末尾。3、 两个字符相关的转换函数 Chr(x)-求数值x对应的字符。 Asc(x)-求X字符对应的ASCII码值Private Sub Form_KeyPress(KeyAscii As Integer)窗体的按键事件。用户按键盘激活事件。Print 输入字符为：; Chr(KeyAscii), ASCII码为：; KeyAsciiEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)将输入的字符显示在文本框内Text1.Text = Text1.Text + Chr(KeyAscii)将文本框中已有的内容与本次输入的字符连接作为文本框的新内容。End Sub上机练习3四位数（1000-9999）Int(9999-1000+1)*rnd+1000)产生一个四位随机整数。