vb2010第4章文档资料.pptx
合集下载
VB第四章1PPT课件
下面以5个数为例说明冒泡法排序的步骤：
86
64
684
465
485
561
581
16
18
8
4
41
51
Байду номын сангаас14
15
5
6
6
8
8
第一轮
第二轮
第三轮
第四轮
本节结束
感谢聆听本课程，课件可任意 编辑，请下载后调整使用
Thank you for listening to my class and have a good life
1.数组的类型 用户可以声明任意类型（数据的基本类型）的数组。
2.数组的维数 一维数组：s(1)、s(2) ···一维数组中的下标又称为（Index）。 二维数组：s(1,1)、 s(1,2) 、s(1,3)、 s (i, j) 例如学生的成绩单 三维数组： s(1,1,1)、 s(1,1,2) 多维数组
1.数组元素的输入 数组元素可以通过赋值语句输入，或在运行时通过inputbox函 数输入，在元素较多情况下一般用for循环语句。 例1：利用数组a（）存放姓名
例2：随机产生10个两位数，放入数组。
例3：设有一个5×5的方阵，其中元素是由计算机随机生成 的小于100的整数
2.数组元素的输出 数组元素可以在窗体或图片框中使用print方法输出，也可
第四章 数组
一、数组的概念
数组是一组用一个统一的名称表示的、顺序排列的变量。 数组中的变量称为数组元素，用数字（下标）来标识它们，因 此数组元素又称为下标变量。
例如：把我们班的学生的学号用一个数组来表示 s（47）
说明： ① 数组的命名 ② 下标必须用括号括起来 ③ 下标可以是常数、变量或表达式，但必须是整数。 ④ 下标的最大值和最小值分别成为数组的上界和下界。
86
64
684
465
485
561
581
16
18
8
4
41
51
Байду номын сангаас14
15
5
6
6
8
8
第一轮
第二轮
第三轮
第四轮
本节结束
感谢聆听本课程，课件可任意 编辑，请下载后调整使用
Thank you for listening to my class and have a good life
1.数组的类型 用户可以声明任意类型（数据的基本类型）的数组。
2.数组的维数 一维数组：s(1)、s(2) ···一维数组中的下标又称为（Index）。 二维数组：s(1,1)、 s(1,2) 、s(1,3)、 s (i, j) 例如学生的成绩单 三维数组： s(1,1,1)、 s(1,1,2) 多维数组
1.数组元素的输入 数组元素可以通过赋值语句输入，或在运行时通过inputbox函 数输入，在元素较多情况下一般用for循环语句。 例1：利用数组a（）存放姓名
例2：随机产生10个两位数，放入数组。
例3：设有一个5×5的方阵，其中元素是由计算机随机生成 的小于100的整数
2.数组元素的输出 数组元素可以在窗体或图片框中使用print方法输出，也可
第四章 数组
一、数组的概念
数组是一组用一个统一的名称表示的、顺序排列的变量。 数组中的变量称为数组元素，用数字（下标）来标识它们，因 此数组元素又称为下标变量。
例如：把我们班的学生的学号用一个数组来表示 s（47）
说明： ① 数组的命名 ② 下标必须用括号括起来 ③ 下标可以是常数、变量或表达式，但必须是整数。 ④ 下标的最大值和最小值分别成为数组的上界和下界。
VB第04章Word版
第四章算法基础及VB的基本语句的知识点习题考点详细分析1、能写一些简单的算法，明白算法即是一解题步骤2、赋值语句和input和msgbox函数注意不同类型数据的赋值转换，俩函数的参数3、分支结构与分支结构语句if语句的三种转换形式select-case-end select结构语句的使用4、循环结构与循环结构语句do-loop结构语句（当型与直到型在条件不满足时区别）for-next结构语句（注意循环控制参数）循环嵌套（初值的位置、随机函数的使用）（关于算法）明白算法就是给出解决问题的步骤给出下列题目的算法：1、给出一个求一元俩次方程根的算法（ax2+bx+c=0）2、求一个圆的周长和面积3、根据个人工资给出交税数目4、设计一个判断某正整数是一个回文数的算法。
（回文数：该数的左右数字完全对称的自然数，如121、1551等）（关于赋值语句和俩函数）1、赋值语句的一般形式__变量名=表达式__2、当系统执行一个赋值语句时，先求出“=”_右边表达式______的值，然后再把该值保存到“=”___左边变量___中，这就是“赋值”分析：基本概念答案：右边表达式左边变量3、针对语句 If I=1 then J=1，下列说法正确的是__C__ (03春)A.I=1 和J=1均为赋值语句B.均为关系表达式C.I=1为关系表达式，J=1为赋值语句D.I=1为赋值语句，J=1为关系表达式分析：基本结构语句答案：C4、运行下面的程序，单击命令按钮command1，则立即窗口上显示的结果是__A__(03春)private sub command1_click()dim A as integer,B as Boolean,C asInteger,D as integerA=20/3:B=true:C=B:D=A+CDebug. Print A, D,；A=A + CEnd subA、7 6 FalseB、6 6 5.6FalseC、7 6 A=6D、78 A=8分析：不同数据类型赋值问题答案：A5、在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有__B______可使文本框Text3中显示46。
VB教程完整版第4章Visual Basic的基本控制结构PPT课件
第4章：Visual Basic基本控制结构
5
17.08.2020
第4章：Visual Basic基本控制结构
6
17.08.2020
3. If…Then…ElseIf语句（多分支结构） 当要处理的实际问题有多个条件时，就
要用到该语句结构。
语句格式如下：
If <条件表达式1> Then <语句块1>
17.08.2020
第4章：Visual Basic基本控制结构
14
4.3 循环结构 循环结构是根据某一条件（即循环条件）反
复执行某一段程序（即循环体）。循环体被反复 执行的次数称为循环次数。VB中提供了两种类型 的循环语句：计数型循环语句和条件型循环语句。
4.3.1 For…Next 语句 该语句是计数型循环语句，用于循环次数已知
13
Select Case 语句和If…Then…ElseIf语句 的区别
可以看出，对于多分支选择结构，用Select Case 语句比用If…Then…ElseIf语句更为 直观，程序可读性强。两者的区别在于： Select Case 语句只对单一表达式求值，并 根据求值结果执行不同的语句块，而 If…Then…ElseIf语句可以对不同的表达式 求值。所以，当对多个条件进行判断时， 只能用If…Then…ElseIf语句。
Select Case 语句的格式如下： Select Case 测试表达式
Case 表达式值1 <语句块1>
Case 表达式值2 <语句块2>
…
[Case Else <语句块n+1>]
End Select
第4章：Visual Basic基本控制结构
vb学习文档第4章
程序设计教程
本书目录 本章目录
18
MsgBox所选按钮返回值 枚举名 MsgBoxRetry
例4.3 编一账号和密码输入的检验程序，当输入不正 确，如账号为非数字字符，密码不正确等，显示有关 信息，再输入。
程序设计教程
本书目录 本章目录
19
3.Write、WriteLine方法
TextBox1.Text = "" ' 清除文本框的内容
TextBox1.Text = "欢迎使用"
程序设计教程
本书目录 本章目录
8
复合赋值语句
复合赋值运算符，其作用简化程序代码，提高 程序编编译的效果。语句形式：
变量名 复合赋值运算符 表达式
首先计算右边表达式的值，然后与左边的变量 进行相应的运算，最后赋值给变量。
赋值号左边只能是变量，不能是常量、常数 符号、表达式。下面均为错误的赋值语句：
Now() = x + y
'左边是表达式(函数)
5 = sqrt (s) + x + y '左边是常量
x+y=z
'左边是表达式
程序设计教程
本书目录 本章目录
11
4.1.3 数据输出和输入
1. InputBox函数 打开一个对话框，等待用户输入，返回字符串 类型的输入值。 函数形式： InputBox(提示[,标题][,默认值][,x坐标位置] [,y坐标位置])
本书目录
4
（3）循环结构
根据条件重复执行语句(称为循环体)
a
a
条件 成立 ？
循环体
b
不成立
不成立
循环体
课件：VB第4章
通用过程
2021/6/23
类模块：本书不涉及
17
1. 局部变量（Dim, Static定义） 在过程内定义的变量，作用域为所在过 程(子程序)
2021/6/23
18
2. 模块变量（Dim, Private定义） 作用域为该窗体或该标准模块 3. 全局变量(Public, Global定义) 作用域为该工程中的所有模块
Const PI# = 3.1415926535 Const PI As Double = 3.1415926535 Private: 私有的，表明该常量只在本过程或窗体中使用。 Public: 公共的，表明该常量可在多个模块中公用，必须在标
准模块中定义。
2021/6/23
13
3. 系统常量
VB中预定 义的，一 般以vb字 母开头， 可在对象 浏览器中 查看。
2021/6/23
14
4.2.2 变量
1. 命名规则
同C语言，不同点：
• 最后一个字符可以是类型说明符
• 不区分大小写
Var1$，Var2％，Var3!
var1 = “abc”, var2 = 5, var3 = 3.25
2. 变量的类型和定义
• 用类型说明符: Var2％
• Dim: Dim 变量名 As 类型,Dim Var2 As
Integer
• Static: Static Var2 As Integer
• Public: Public Var3 As Single
2021/6/23
15
2021/6/23
16
4.3变量的作用域
4.3.1局部变量与全局变量
VB应用程序
窗体模块 标准模块
2021/6/23
类模块：本书不涉及
17
1. 局部变量（Dim, Static定义） 在过程内定义的变量，作用域为所在过 程(子程序)
2021/6/23
18
2. 模块变量（Dim, Private定义） 作用域为该窗体或该标准模块 3. 全局变量(Public, Global定义) 作用域为该工程中的所有模块
Const PI# = 3.1415926535 Const PI As Double = 3.1415926535 Private: 私有的，表明该常量只在本过程或窗体中使用。 Public: 公共的，表明该常量可在多个模块中公用，必须在标
准模块中定义。
2021/6/23
13
3. 系统常量
VB中预定 义的，一 般以vb字 母开头， 可在对象 浏览器中 查看。
2021/6/23
14
4.2.2 变量
1. 命名规则
同C语言，不同点：
• 最后一个字符可以是类型说明符
• 不区分大小写
Var1$，Var2％，Var3!
var1 = “abc”, var2 = 5, var3 = 3.25
2. 变量的类型和定义
• 用类型说明符: Var2％
• Dim: Dim 变量名 As 类型,Dim Var2 As
Integer
• Static: Static Var2 As Integer
• Public: Public Var3 As Single
2021/6/23
15
2021/6/23
16
4.3变量的作用域
4.3.1局部变量与全局变量
VB应用程序
窗体模块 标准模块
VB第4章 语言基础PPT课件
4.2 代码编写机制
一、原则： 要求规范、结构清晰； 培养良好的编程习惯；
二、语句格式： <语句定义符> [语句体]
例如： print “ok!”
三、书写规范
1、续行标记与语句之间分隔符： 例1，一个语句分写在多行上：
Dim name As string, _ stu_number,computer,english _
通用过程：
不同层次的对象有相同的操作，可 以共享某段程序代码，将此代码段作 为通用过程。
通用过程是由事件过程或其它通用 过程调用而执行的。
通用过程被所有窗体共享。
二、什么是模块
模块=各种过程+各种对象属性+其他 1、三种类型模块：
窗体模块（.frm) 标准模块（.bas) 类模块 （.cls）
2、窗体模块
每个窗体都有一个相对应的窗体 模块。窗体模块包含： 用于处理发生在窗体中的各个对象的 事件过程； 包含窗体及窗体中各个控件对象的属 性设置以及相关的说明。
3、标准模块
被多个窗体共享的代码，应当被组织到所 谓的“标准模块”之中。文件的扩展名 是.BAS。
标准模块中保存的过程都是通用过程；还 包含有相关的说明。
-922,337,203,685,447.5808 ～
922,337,203,685,447.5807
Object对象型数
4 Byte
任何对象引用
Variant变体型数
>=16 Byte
数值型可达Double型的范围；
字符型可达变长字符串型的串长度
三、VB的常量
1、数值常量：P44
由正负号、数字和小数点组成。
标准模块中代码不只能用于一个应用程序， 还可供其他应用程序重复使用。
VB课件 第4章
2. 用文本框输入输出数据 文本框是一个文本编辑区域，可在该区域输入、编辑和 显示正文内容。
例4-2 在文本框Text1中输入一个字符，在文本框Text2 中显示相应的ASCII码。利用文本框的KeyPress事件。代 码如下: Private Sub Text1_KeyPress(KeyAscii As Integer) Text1.Text = "" Text2.Text = KeyAscii End Sub
省值，若省略 default，则文本框为空。
4、xpos 指定对话框的左边与屏幕左边的水平距离 5、 ypos 指定对话框的上边与屏幕上边的距离
注意：该函数返回值的类型为字符型。
标题
提示字符串
缺省值
Dim Prompt, Title, Default, Myvalue Prompt = “请输入0或1来代表硬币的正反面” Title = “猜硬币” Default = “0” Myvalue = InputBox(Prompt, Title, Default)
2. 与Print方法有关的函数
(1) Tab（n） 功能：与Print方法一起使用，在参数n指定的位置输出其后 的表达式的值。 Tab(n)从最左第一列算起定位于第n列，若 当前打印位置已超过n列，则定位于下一行的第n列。 说明： 1） n是数值表达式，值为整数，若省略，则将输出点移 动到下一个输出区的起点。 2）若n小于1，则tab将输出位置移动到第1列。
MsgBox函数的返回值
例4-7 MsgBox( ) 应用1。提示是否继续执行程序。 Private Sub Form_Click() msg1=“继续执行吗？” msg2=“例[4-7]提示信息” f=MsgBox(msg1,34,msg2) End Sub 第4行中表明type的值为34=2+32+0， 它决定了对话框中有“终止”、“重试”和 “忽略”三个按钮，图标为“？”， 默认活动按钮为“终止”。 f为MsgBox的返回值， 在本例中f依次为3、4或5。
Visual Basic程序设计VB第4章电子讲稿
分析：在过程中间我们不仅用到上一章的函数比如：“Exit Sub”是退出 过程，函数Len（字符串）可得到字符串的长度，函数IsNumeric（字符 串）可检验字符串是否是数值，更重要的时，程序代码中会用到条件句 来进行判断，即我们这一章所讲的重点之一，条件句。
4.1条件语句案例
【技术要点】 界面设计 修改控件属性。 3．编写代码及调试程序。 Private Sub Command1_Click() If Textxm = "" Then Textxm.SetFocus Exit Sub End If If Textxb = "" Then Textxb.SetFocus Exit Sub End If If Textdz = "" Then Textdz.SetFocus Exit Sub End If
4.1条件语句案例
Private Sub Textdh_LostFocus() If Textdh.Text <> "" Then If Len(Textdh.Text) <> 8 Or Not IsNumeric(Textdh.Text) Then MsgBox "电话输入位数不对或者输入的内容为非数字，请确定并重新 输入" Textdh.Text = "" Textdh.SetFocus End If End If End Sub Private Sub Textxb_LostFocus() If Textxb.Text <> "" Then If Textxb.Text <> "男" And Textxb.Text <> "女" Then MsgBox "性别只能是男或女，你输入有误，请确定并重新输入" Textxb.Text = "" Textxb.SetFocus End If End If End Sub