VB顺序设计_vb教学设计顺序
VB顺序设计由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb教学设计顺序”。
VB顺序设计
教学目的：
1、熟悉结构化程序设计的三种基本结构及其特点。
2、掌握VB中顺序设计常用的语法规则。教学重点：1、2、3、4、结构化程序设计方法概念的理解。Print方法的应用及格式特点。
VB中的赋值语句功能及特点。
VB中的inputbox()输入函数及msgbox()输出函数应用。
课时安排：
理论教学安排6课时，上机练习8课时
一、程序设计三大基本结构：
1、顺序（按语句的书写顺序执行）
2、分支
3、循环
二、赋值语句 格式：
[let] 变量名 = 表达式 功能：
计算表达式的值，并把结果送给“=”左边的变量。
Let a1=3*4---------语句执行后，变量a1的值为12 Let ab1=”你好”-------语句执行后，变量ab1的值为字符串“你好” 语句说明：
1、变量与表达式的数据类型必须一致。
2、“=”有方向性。需要动态理解
Let a1=a1+1-------将a1的当前值加1送给a1。语句执行后，a1的值自动累加13、VB中对象的属性名等同于变量名。
Private Sub Command1_Click()Dim a As String, b As String Let a = Text1.Text Let b = Text2.Text Label1.Caption = a + b End Sub 上机练习： P47-49 例1到例3 P78 上机调试题1
产生随机数公式：
Int(n*rnd)+1
用来产生1到n之间的随机整数
1）2）定义变量（n,x1,x2,x3）
取得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)
randomize X1=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 + 14 Picture1.Print “我的图片框”---------在图片框上显示一个数据项。Picture1.Print “23+14=”;23 + 142、功能：
在指定的对象上输出结果。
注意：对象为窗体时，对象名可以省缺。
3、输出项表的格式
（1）逗号分隔符---------输出项以标准格式输出。（输出项之间有固定的间隔）
Print 1 Print “1”
‘两行的输出有区别。上一行输出数值1，前面有符号位。而下一行输出字符1，顶格显示。Print 1, 2
（2）分号分隔符---------输出项以紧凑格式输出。输出多个字符时，直接连接输出。
输出数值时，产生一个分隔位，用来将数据隔开。Print “1”;“2”;“3” Print 1;2;3 注意：print方法中，逗号与分号可以混用。Print “1”;“2”;“3”, 1;2;3 Print “1”;“2”;“3”, 1;2, 3（4）特殊的print语句
分隔符出现在print的末尾--------表示下一个print语句与本行的print在同一行显示。Print “1”;A=2 Print “2”;“3”, Print 1;2;3
分隔符之间的数据项可以省缺。-------标准输出时会产生更大的分隔空间。Print 1;;;2 Print 1;2
效果相同 Print 1, , 2 Print 1, 2
效果不同
空print语句---------产生换行或空行 Print 1,2, Print
‘功能为换行 Print 1,2,3 Print
‘功能为空行 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.5 P79 上机调试2 Private Sub Command1_Click()Dim a As String a = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = a End Sub
Private Sub Command2_Click()Text4.Text = Text1.Text & Text2.Text & Text3.Text End Sub
四、对话框的使用
1、输入对话框 格式：
变量名=inputbox(“提示字符串”,”标题”，“默认值”，输入框的位置坐标)
Private Sub Form_Click()Dim x As String x = InputBox(“请输入你的姓名”)Print “你的名字是” & x End Sub
Private Sub Form_Click()Dim x As String x = InputBox(“请输入你的姓名”, “姓名输入框”)Print “你的名字是” & x End 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）2）例如：
MsgBox “你的名字是” & x, 49 + 256, “姓名输出框” 上机练习：
1、P69 例3.82、P80 上机调试题7（1）msgbox “在这里显示提示信息”，4，“请确认”
x= msgbox(“在这里显示提示信息”，4，“请确认”)
„两种语句格式均可，前一种无返值，后一种返回一个数值送给x变量。
（2）（3）msgbox “在这里显示+chr(13)+chr(10)+提示信息”，3，“请确认” msgbox “在这里显示+chr(13)+chr(10)+提示信息”，18，“请确认” Msgbox()的返回值为一个数值（也可以是符号常量），代表了不同的按钮。Msgbox可以有无返值格式。结构如下： Msgbox “提示串”,”类型”,”标题栏”
Private Sub Command1_Click()MsgBox “欢迎” + Text1.Text, 68, “消息框” End Sub 系统登录界面设计：
Private Sub Command1_Click()Dim a As Integer a = MsgBox(“欢迎” + Text1.Text, 49, “消息框”)If a = 1 Then Unload Me
‘用来卸载窗体,执行完后窗体1消失.Form2.Show
„显示窗体,执行完后窗体2显示.Else Text1.Text = “” Text2.Text = “” End If End Sub
小结顺序程序设计：
一、程序结构语句
1、赋值语句
[let] 变量名=表达式
2、[let] 对象名.属性=表达式 常用语句 1)end 2)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,pawordchar,„„
事件：单击,双击，change 上机练习： P79、上机练习5、6 上机练习5
Private Sub Cmd1_Click()Lab1.Visible = True Lab1.Caption = “您已下达显示命令！” End Sub
Private Sub Form_Click()Cmd1.Visible = True End 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_KeyPre(KeyAscii As Integer)‘窗体的按键事件。用户按键盘激活事件。
Print “输入字符为：”;Chr(KeyAscii), “ASCII码为：”;KeyAscii End Sub Private Sub Form_KeyPre(KeyAscii As Integer)‘将输入的字符显示在文本框内
Text1.Text = Text1.Text + Chr(KeyAscii)‘将文本框中已有的内容与本次输入的字符连接作为文本框的新内容。End Sub 上机练习3 四位数（1000-9999）Int((9999-1000+1)*rnd+1000)产生一个四位随机整数。数与字符串转换函数：
Val(x)--------将X数据串变成数值。
Str(x)--------将数值x变成对应的数字串。
Trim(Str(x))-------先将x变成数字串再去掉两边的空格。Trim(x)用来去掉x两边的空格。假设s=3456: Val(right(s,1)+mid(s,3,1)+mid(s,2,1)+left(s,1))完成对s倒序过程。作业：
1、简述VB中常用的标签、按钮及文本框控件的常用属性及事件。
2、总结print方法中输出项列表的格式。
3、P78三填空题（1）--（6）
