大学VB课堂第七章五节

合集下载

VB第7章

ActiveX控件 2. ActiveX控件 ActiveX控件加载：控件加载：控件加载 1）选择）工程/部 “工程部件”菜单命令，打开部件” “部件”对话框。话框。 3）确定）
vb程序设计简明教程程序设计简明教程
本书目录本章目录
2）选定所需部件）
8
7.1 常用控件
单选按钮、 7.1.1 单选按钮、复选框和框架 1.单选按钮单选按钮(OptionButton 1.单选按钮 OptionButton ) 单选按钮以组的形式出现，允许选择一项。单选按钮以组的形式出现，允许选择一项。主要属性：主要属性： Caption： Caption：按钮上显示的文本 Value：表示单选按钮的状态： Value：表示单选按钮的状态： True —— 被选定 False —— 未被选定主要事件：主要事件：单击后使Value属性为True Value属性为 Click事件单击后使Value属性为True 事件： Click事件：
15
单选按钮、 7.1.1 单选按钮、复选框和框架
Private Sub Check1_Click() Combo1.Enabled = Not Combo1.Enabled Text1.Enabled = Not Text1.Enabled End Sub Private Sub Check2_Click() Option1.Enabled = Not Option1.Enabled Option2.Enabled = Not Option2.Enabled End Sub
vb程序设计简明教程程序设计简明教程
可以加载到工具箱上，箱上，然后像标准控件一样使用。准控件一样使用。
本书目录

VB教程全套课件 vb-7

7.10 鼠标器和键盘
1. 鼠标器事件注意：鼠标事件发生在什么对象上，是窗体上还是控件上。 MouseDown事件 Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)（发生在窗体上的事件过程） MouseUp事件 Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) （发生在窗体上的事件过程） MouseMove事件 Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) （发生在窗体上的事件过程）
例7.3 对列表框进行项目添加、修改和删除操作。
例7.4 对列表框进行项目添加、修改和删除操作。
Check1 Combo1 Text1
Check2 Option1 Option2
7.4 滚动条和Slider控件
垂直滚动条水平滚动条 SmallChange Min Value Max SmallChange
Style属性 0--Standard：标准方式 1--Graphical：图形方式事件： Click 因为单击时自动改变状态，故不需要编写过程。见后页实例
例7.1 用单选钮和检查框设置文本框的字体。
7.2 框架(Frame)
设Caption为 "字体"
框架
框架内控件的创建方法：方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上图标的自动方式。方法2：将控件“剪切”到剪贴板，然后粘贴(Ctrl+V)到框架。

Visual Basic程序设计VB第7章电子讲稿

7.1 通用过程和函数过程应用案例
If "A" <= upalp And upalp <= "Z" Then checha = True Else checha = False End If End Function
7.1.2 应用扩展利用过程计算5！+10！。本例利用窗体加载，再采用Print直接在窗体上输出结果。程序代码如下：程序代码如下： Private Sub Form_load() Dim y As Long, s As Long Show Call jc(5, y) s = y Call jc(10, y) s = s + y

7.1 通用过程和函数过程应用案例

Show a = Val(InputBox("输入第一个数")) b = Val(InputBox("输入第二个数")) c = Val(InputBox("输入第三个数")) s = max(a, b) Print "三个数中的最大数是:"; max(s, c) End Sub Function max(m, n) As Single If m > n Then max = m Else max = n End If End Function
7.1 通用过程和函数过程应用案例
Call mysub1(30) End Sub Private Sub mysub1(n) Print String(n, "*") End Sub Private Sub mysub2() Print "*"; Tab(30); "*" End Sub

visual basic (vb)第7章过程

Visual Basin 程序设计
4.Visual Basic应用程序结构
VB应用程序由三种模块组成:
窗体模块(Form) (文件扩展名.frm) 标准模块(Module) (文件扩展名.bas) 类模块(Class) (文件扩展名.cls)
Visual Basin 程序设计
2-1. Function过程(过程函数)
3.Function过程的调用（1）调用位置：表达式中调用（2）调用格式：
变量名=函数名（实参列表）
实参列表：可以是常量、变量或表达式，各参数用逗号隔开。
Visual Basin 程序设计
2-1. Function过程(过程函数)
Visual Basin 程序设计
2-1. Function过程(过程函数)
1.定义格式为：
[ 说明符 ] Function 函数名（形参表）As 类型局部变量或常量声明语句序列函数名=表达式 End Function
Visual Basin 程序设计
2-1. Function过程(过程函数)
Visual Basin 程序设计
过程的执行：
过程A:
子过程: Sprg1
调用Sprg1
调用Sprg1
调用Sprg2
子过程: Sprg2
Visual Basin 程序设计
2. 使用通用过程
在VB中，通用过程分为两类： ■ Function过程（函数） ■ Sub过程（子程序）当我们在程序设计中需要重复使用一段代码时，可以编写通用过程。那么到底是选用Function过程，还是选用Sub过程呢？ (1)若想通过过程得到一个值则选用Function过程，并通过该过程的名字将计算的值传递给调用过程。（2）如果该过程仅仅进行一些操作无须计算一个值，或需要得到多个值，则需要选用Sub过程，并通过该过程的参数将多个值传递给调用过程。

第七章第五节直线、平面垂直的判定与性质

(2)面面垂直的判定定理(a⊥β，a⊂α⇒α⊥β)．
2．关于三种垂直关系的转化可结合下图记忆．
注意：在已知平面垂直时，一般要用性质定理，在一
个平面内作交线的垂线，使之转化为线面垂直，然后进一步转化为线线垂直，要熟练掌握“线线垂直”、“线面垂直”、“面面垂直”间的转化条件和转化运用，这种转化方法是本讲内容的显著特征．掌握转化思想方法是解决这
一个平面过另一个
判定平面的一条垂线，定理则这两个平面互相垂直
2．平面与平面垂直的性质定理.
文字语言
两个平面互相垂直，性质则一个平面内垂直定理于交线的直线垂直
图形语言
符号语言
于另一个平面
[究疑点]
1．垂直于同一平面的两个平面是否平行？提示：不一定，也可能相交．
2．若两平面垂直，一直线垂直于其中一个平面，它与另一个平面有何位置关系？提示：平行或在平面内．
类问题的关键．
一、把脉考情
从近两年高考试题来看，对于线线、线面、面面垂直
的问题，在客观题中考查比较简单，主要以证明题的形式考查，难度中等．本节内容重点考查转化思想的应用，考查空间想象能力，预测2012年仍以此为命题的热点．
二、考题诊断 1．(2010· 湖北高考)用a，b，c表示三条不同的直线，γ表示平面，给出下列命题： ①若a∥b，b∥c，则a∥c；
(
)
解析：l⊥α⇒l⊥m，l⊥n，反之因为 m、n不一定相交，
故l⊥m且l⊥n不一定推出l⊥α.
答案：A
2．三棱锥P－ABC的顶点P在底面的射影为O，若PA＝PB ＝PC，则点O为△ABC的________心，若PA、PB、PC 两两垂直，则O为△ABC的________心．解析：若PA＝PB＝PC，则O为△ABC的外心，若PA、 PB、PC两两垂直，则O为△ABC的垂心．答案：外垂

VB7第七章

VB程序设计基础教程—七章
4
用户界面
Visual Basic Internet 应用程序的用户界面可以是一系列 HTML 页面、HTML 页面和 Visual Basic 窗体的混合或者使用了某些特殊部件的Visual Basic 窗体，这些特殊部件是一些能够发挥 Internet 强大功能的控件，如 WebBrowser 控件等。不论采用何种用户界面，应用程序处理事件、调用方法、设置或检索属性都是基于 HTML 页面中的元素的。构成 Visual Basic Internet 应用程序用户界面的Web 页面一般是由Web 设计器而不是开发者制作的。
VB程序设计基础教程—七章
11
WebBrowser控件
WebBrowser的属性： WebBrowser的事件：在一般Internet的应用上，浏览器、电子邮件以及 LocationURL ：返回控件显示WEB页面的URL。 DownloadBegin：下载操作开始时触发。文件传输的使用是最为频繁的。其中，浏览器可以称 WebBrowser的方法： DownloadComplete：下载操作完成、终止或失败时得上使用最为频繁的一种工具。您是否觉得现有的浏 Navigate：转移到指定的URL或打开指定HTML 触发。览器虽然方便，但是在必须同时浏览多个网站的内容文件。 ProgressChange：跟踪下载操作的过程，并定期触时，仍有些不便？在Visual Basic的Internet程序设 GoBack ：向后连接一个页面。发此事件。计中，微软也已经为我们准备了有关浏览器的控件—— GoForward ：向前连接一个页面。 TitleChange：当前文档标题改变时触发。 “Microsoft Internet Controls”。 Stop：终止当前页面的连接。 VB 6.0提供了一个名叫 WebBrowser的 ActiveX控件， Refresh ：刷新当前页面。 GoHome ：连接到事先设置好的主页。用它可以实现 Web浏览器的功能。 GoSearch ：页面的搜索。 12 VB程序设计基础教程—七章

VB第七章课件

MouseMove事件
Sub Form_MouseMove(Button As Integer, Shift As Integer,X As Single, Y As Single) （发生在窗体上的事件过程）
MouseDown事件
Sub picture1_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single)（发生在图片框上的事件过程）
7.2Βιβλιοθήκη 通用对话框• VB的通用对话框Commondialog控件提供了一组基于windows的标准对话框界面。 • 使用单个的通用对话框控件，可以显示文件打开、另存为、颜色、字体、打印和帮助对话框，但这些对话框仅仅用于返回信息，不能真正实现文件打开、存储、颜色设置、字体设置和打印等操作，如果想要实现这些功能必须编程解决。 • P174表（举例）
键盘
大多数情况下,用户只需使用鼠标器就可以操纵 windows应用程序,但是有时也需要用键盘进行操作.主要事件有： 1.keypress:按下并且释放一个会产生ascII码的键时被触发. 2.keydown:用户按下键盘上任意一个键时被触发. 3.keyup:用户释放键盘上任意一个键时被触发. (举例)
• 单选按钮,复选框,框架（88页）
第七章用户界面设计
• 单选钮：必须成组出线，用户在一组单选钮中必须并且最多只能选择一项。如果要使几个单选钮属于一个组，最好用框架控件，将这几个单选钮放在一个框架控件中。 • 属性： • （ 1 ） Caption：单选钮或者复选框的文本注释内容，即单选钮或者复选框边上的文本标题。 • （2）Alignment：设置标题和按钮的左右位置。 0：按钮左标题右，1：按钮右标题左

《新编Visual Basic程序设计教程》课件第7章

该语句的作用是当表达式的值为True时，执行Then后面的语句或语句块；当表达式的值为False时不作任何操作。
例如：比较两个变量a和b内数值的大小，如果a小于b，则将a和b的值交换。其语句如下：
If a<b Then t=a : a=b : b=t
或
If a<b Then t=x x=y y=t
Case 2,4,6,8
③ 表达式 To 表达式，如：
Case 1 To 5
④ Is关系运算表达式，使用的运算符包括：< <= > >= = <>，如：
Case Is<12
第一种形式与某个值比较，后三种形式与设定的某个范围比较，四种形式也可以在数据类型相同的情况下混合使用。如：
Case 1,3,5,7,Is>10
Case 1 Text1.Text="1" Case 2 Text1.Text="2" Case 3 Text1.Text="3" Case Else Text1.Text="Goodbye"
End Select End Sub
可以看出，对于多分支结构，用Select Case语句比用嵌套的If语句程序可读性强。但是要注意，不是所有的多分支结构均可用Select Case语句代替嵌套的If语句。
或 If 表达式 Then
语句块 End If
其中：表达式一般为关系或逻辑表达式，也可为算术表达式。当表达式为算术表达式时，值为非0时为True，值为0时表示False。
语句块可以是一条或多条语句。上述第一种形式中Then后面通常为一条语句，如果要用多条语句，则必须书写在一行上，各语e>=60 Then Print “及格” ElseIf score>=70 Then Print “中” ElseIf score>=80 Then Print “良” ElseIf score>=90 Then Print “优” Else Print “不及格” End If

VB七章课件

Private Sub mnuEditPaste_Click()
If Len(Clipboard.GetText) > 0 Then txtT2.SelText = Clipboard.GetText End If
End Sub
使用剪贴板需要注意的一个问题是：在使用之前，应该先用Clear方法将剪贴板Cli pboard清空，因为Clipboard是Windows的系统资源, 允许多个程序向剪贴板粘贴数据，因此剪贴板上可能已存放其他程序复制的信息。在程序装载时，要先清空剪贴板的内容,相应的程序如下：
例如，用Alt+E键打开“编辑（E）”菜单。当菜单项被打开后，再按X键，就可以执行“退出”菜单命令（与单击“退出”菜单项的作用一样）。如果不加符号“&”则不能采用这种方式来选择菜单项。
5. 添加分隔线现在需要在“粘贴”和“退出”两个子菜单命令中间加一个分隔条。操作过程与建立一个菜单项一样。（1）将“退出”子菜单项“点亮”。（2）单击“插入”项，可以看到在“退出”命令的上面添加了一行，并自动加入了一个内缩符号。（3）在“标题（P）”框中输入一个减号（-）。（4）在“名称（M）”框中为这个减号起一个名字m enuEditBar。
“设置（S）”所包含的两个菜单项是控件数组元素。单击这两个菜单项中的任一项，都会触发mnuSetting_Click事件过程。该过程的代码如下：
Private Sub mnuSetting_Click(Index As Integer) ′选择字体 If Index = 0 Then CMDialog1.Flags = 1 CMDialog1.ShowFont txtT1.FontSize = CMDialog1.FontSize txtT2.FontSize = CMDialog1.FontSize End If ′选择颜色 If Index = 1 Then CMDialog1.ShowColor txtT1.ForeColor = CMDialog1.Color txtT2.ForeColor = CMDialog1.Color End If End Sub

VB第7章电子讲稿(过程)

zd = max End Function
例7.5 判断输入字符是不是英文字母
分析：英文字母有大小写之分，只要将该字符转换为
大写，再判断是不是处于‘A‟～‘Z‟范围内，若是，则是英文字母，否则不是本例采用InputBox函数来输入字符，判断后结果直接输出在窗体上。
Private Sub Form_Load()
b a g
S1 c S2 S3
e
d
f
VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。两大类过程。
事件过程 Sub过程通用过程 Function过程事件过程是当某个事件发生时，对该事件作出响应的程序段，它是VB应用程序的主体通用过程是独立于事件过程之外，可供其他过程调用的程序段
End Sub
在事件过程Form_Load()中，有三处调用Sub过程Sub_Cont()
例7.3
计算5! + 10!
因为计算5!和10!都要用到阶乘n! (n!＝1×2×3×…×n) 所以把计算n!编成Sub过程采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show Dim y As Long, s As Long Call Jc(5, y) Private Sub Jc(n As Integer, t As Long) s=y Dim i As Integer Call Jc(10, y) t=1 s=s+y For i = 1 To n Print "5! + 10! ="; s t=t*i End Sub Next i 程序运行结果： End Sub 5! + 10! ＝ 3628920 注意参数n及t的调用情况

VB第七章

5.4使用数组程序举例 5.4使用数组程序举例
【例5.1】数组address(100,1)保存着101个学生的姓名及其家数组dress(100, 保存着101个学生的姓名及其家 address(100 101 庭住址，要求随意输入一个姓名，能够输出其对应的家庭住址。庭住址，要求随意输入一个姓名，能够输出其对应的家庭住址。
a(1 10) 例：Dim a(1 to 10) As Integer
数组元数的数据类型 1是下标的下界是下标的下界 10是下标的上界是下标的上界 10) Dim a%(1 to 10)
与上面声明等价形式：与上面声明等价形式：
5.1
说明：说明：
一维数组
1．数组名的命名规则与变量的命名相同。数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。数组的元素个数：上界-下界+ 缺省<下界> 若希望下标从1开始， 3．缺省<下界>为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为语句将设为1 其使用格式是：部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 例如：例如： Option Base 将数组声明中缺省<下界> 1 ‘ 将数组声明中缺省<下界>下标设为 1 ‘ 后面的参数只能取 0 或 1
5.3动态数组 5.3动态数组
动态数组：在声明时未给出数组的大小。动态数组：在声明时未给出数组的大小。在程序执行时分配存储空间。配存储空间。
5.3.1 动态数组的建立及使用
建立动态数组包括声明和大小说明两步：建立动态数组包括声明和大小说明两步：在使用Dim Private或 Public语句声明括号内为空的 Dim、 1 ．在使用 Dim 、 Private 或 Public 语句声明括号内为空的数组。数组。格式：数组名（格式：Dim | Private|Public 数组名（）As 数据类型例：Dim a() As Integer 在过程中用ReDim语句指明该数组的大小。 ReDim语句指明该数组的大小 2．在过程中用ReDim语句指明该数组的大小。数组名（下标1 下标2 ] 格式：格式：ReDim [Preserve] 数组名（下标1[，下标2…]）

vb7

7.2.3 数组的基本操作在建立（声明）一个数组之后，就可以使用数组了。使用数组就是对数组元素进行各种操作，例如：赋值、表达式运算、输入或输出等。 7.2.4 数组元素的输入、输出和复制 1．数组元素的输入数组元素可以在设计时通过赋值语句输入，或者在运行时通过InputBox函数输入。在元素较多的情况下，一般需要使用For循环语句。【例7-1】利用数组Name()存放姓名。考虑到要在不同的过程中使用数组，所以首先在模块的通用段声明数组： Dim Name(1 To 10) As String 数组的赋值由窗体的Load事件代码完成： Private Sub Form_Load() a(1) = "陈高阳": a(2) = "赵世杰": a(3) = "李民维": a(4) = "马英丽": a(5) = "杨广民" a(6) = "李灵君": a(7) = "陈吉至": a(8) = "王东明": a(9) = "姜大伟": a(10) = "吴晓林" End Sub

【例7-5】将例7-3中的数组在列表框中按5行5列输出。代码如下： Private Sub Command1_Click() List1.Clear Dim p As String For i = 1 To 5 p = "" For j = 1 To 5 p = p & Format(a(i, j), "!@@@") Next List1.AddItem p, i 1 Next End Sub 3．数组元素的复制单个的数组元素可以像简单变量那样从一个数组复制到另一个数组中，若要复制整个数组则仍要使用For循环语句。

Visual Basic应用任务教程- vb-7

【任务4】数据查询应用
完成步骤
【任务1】创建数据库
设计分析
要创建数据库，可以利用VB提供的“可视化数据管理器”工具进行数据库的创建，在 VB环境下的可视化数据管理器 (VisData) 窗口中可以创建数据库、创建数据表及完成对数据的各种相关操作。
【任务1】创建数据库
完成步骤
1．创建界面按题目要求创建界面 2．过程代码编写并输入过程代码
【任务3】课程信息编辑
2．ADO控件的方法 (1)UpdateControls方法 (2)AddNew方法 (3)Delete方法 (4)MoveFirst，MoveLast，MoveNext和MovePrevious方法 (5)CancelUpdate方法 (6)UpdateBatch方法 3．ADO 控件的事件 (1)WillMove和MoveComplete事件 (2)WillChangeField和FieldChangeComplete事件 (3)WillChangeRecord和RecordChangeComplete事件
【任务2】学生信息编辑
设计分析
Data数据控件可以通过设置一些属性来连接某个数据库文件，但其本身无法显示数据库中的记录，必须与绑定控件绑定才能显示各项数据，使用户对数据库进行记录的浏览和编辑等工作。本程序可通过Data控件的相关属性设置，完成与数据库STU.Mdb中的学生信息表(student)的连接，添加文本框控件和组合框控件与Data控件绑定，用于显示数据表的数据，添加一组按钮完成增加、删除、查询等操作。
【任务1】创建数据库
知识链接数据库的基本概念 1．数据库 2．数据管理系统 3．数据库系统 4．数据表 5．记录、字段 6．主关键字、外关键字 7．索引、查询

vb第7章

幻灯片1 第7章复合数据类型● 本章要点: ● 数组● 数组的操作 ● 控件数组 ● 记录 ● 记录数组集合幻灯片2 7.1 数组7.1.1 数组的定义数组: 一组性质相同的有序的数例: 多项式y=a0+a1x+a2x2+a3x3+…+anxn系数A=(a0,a1,a2,…,an)可以构成一个数组表示: A(0) A(1) A(2) ... A(n) 例: 全班40名同学的英语成绩G(1) G(2) G(3) …… G(40)所有班级(如6个班，每班40人)同学的英语成绩表示1: G(1) G(2) G(3) … G(240) 表示2: G(1,1) G(1,2) … G(1,40) G(2,1) G(2,2) … G(2,40) …G(6,1) G(6,2) … G(6,40) 幻灯片3 例: 矩阵⎥⎥⎥⎦⎤⎢⎢⎢⎣⎡333231232221131211b b b b b b b b b矩阵中各元素b11--b33可表示成:B(1,1) B(1,2) B(1,3) B(2,1) B(2,2) B(2,3)B(3,1) B(3,2) B(3,3)幻灯片4数组名:一组数用一个统一的名称表示，称数组名。

数组元素(下标变量): 数组中的每一个元素。

表示成: 数组名(下标)下标的取值可以是常数、变量、表达式如: A(8) B(I) C(3+K)下标还可以是下标变量如: A(A(5)) 令A(5)=4, A(A(5))=A(4)数组的维数:下标个数一维数组: 由一个下标组成。

如 A(2),C(6)二维数组: 由两个下标组成。

如 B(2,3)三维数组: 由三个下标组成。

如 G(3,4,23)三维以上的数组称为多维数组，最多60维幻灯片5固定大小的数组的定义1. 格式Public|Private|Dim <数组名>[(<维数定义>)][As <类型>]…2. 功能: 声明数组名称、维数、维大小、类型。