VB 程序设计08-3
VB经典的程序设计题
累加求和1到100Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub1到100的奇数和Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 step 2sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()End求n!Private Sub Command1_Click()Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text)fact = 1For i = 1 To nfact = fact * iNextText2.Text = factEnd Sub累加求和1到100（Do while）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do While i <= 100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub（Do Until）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do until i >100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub求平均成绩Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As Single Dim pj As Singlea = 60:b = 70:c = 80:d = 90pj = (a + b + c + d) / 4Text1.Text = Str(pj)End Sub求圆的周长Private Sub Command1_Click()Dim r As DoubleConst pi = 3.1415926r = Val(InputBox("请输入圆的半径"))Print "圆的周长为:", 2 * pi * rEnd Sub输入两个整数m n，使得m>=n,并输出m nPrivate Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm = Val(InputBox("请输入m:", 输入, "m"))n = Val(InputBox("请输入n:", 输入, "n"))If n > m Thena = mm = nn = aEnd IfPrint "m=", mPrint "n=", nEnd Sub计算sum=1/1!+1/2!......+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和Private Sub Command1_Click()RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint "所有偶数的和为:", sEnd Sub输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。
Visual Basic菜鸟入门经典实例
Visual Basic菜鸟入门经典实例这个专题是为爱好者准备的，如果你是专业人士，那么你可以放过不看，如果你想了解和学习编程，进而可以自娱自乐的设计一些小软件，那么就跟我来吧。
第一课：Hello World几乎所有程序语言都是从“Hello World”开始，所以我们也从这里开始我们的VB学习之旅。
VB入门之“Hello World”[文章信息] 作者: 时间: 2004-02-14 出处: VB大世界责任编辑: 方舟[文章导读] Visual Basic入门的第一课，介绍如何使用vb开发工具没学过编程的人常常会问，编程难不难，这个问题很难回答。
难，的确很难，要编一个好的程序尤其是这样，并且有些程序还要用到一些其他专业的知识，比如说一个图形处理程序，就要对图像的格式有所了解，甚至一些美术知识；但编程也很容易，就拿VB来说，编一个自娱自乐的小工具还是一件相当惬意的事情呢，当然它没法完全代替人工，譬如说完成你的家庭作业、向学校发射导弹……作为第四代计算机语言，VB的特点是显而易见的。
因为是“可视的”所以我们不妨先看看VB的界面（图1_1）（我用的是VB4.0 32位版），很容易可以看到，屏幕上有五个窗口，（1）是菜单栏；（2）是工具箱（Tools Box），里面是VB所需的控件；（3）是VB程序要设计的窗体（Form）；（4）控件及窗体的属性（Properties），在VB中每一个控件都有其自己的属性，比如文本框有Text属性，而任何一个控件都有一个自己唯一的名字，这使得我们无需编程就可以完成部分编程的工作；（5）是VB的文件控制窗口，VB的每一个程序称为一个项目（Project），一个项目文件里往往包括以下两种文件，窗体（Form）文件和模块（Bas）文件，当然还有Class文件，这些文件组成一个完整的程序，而项目文件（Vbp）则用来描述程序所包含的内容。
实际上，我一直认为学习的最好方法就是实际操作一下，好，下面我们就来看一个最简单的程序，和所有的编程教科书一样，我们把第一个程序称为“Hello，world！”。
计算机科学与技术专业课程计划
计算机科学与技术专业课程计划一、培养目标本专业培养社会发展需要的，德智体等各方面协调发展的，具有崇高理想及敬业精神，具有扎实理论基础及解决实际问题能力，掌握科学思维方法和技术教育方法的高等教育及工程技术高级专门人才。
二、培养要求1．坚持党的基本路线，热爱祖国，热爱教育事业，为人师表。
2．能够比较系统、准确地掌握计算机学科的基础知识、基本原理和基本方法，了解计算机学科的发展、应用和新技术。
3．具有熟练的程序设计能力、系统分析能力、系统设计与系统开发能力。
4．掌握教育的基础理论与方法、计算机教学的特点和方法，懂得教育教学规律；具有较强的文字、口头表达能力和教学组织管理能力，具有较高的文化修养、科学的思维方式和创新精神。
5．熟练掌握一门外国语，能流利阅读本专业的外文书刊，使用外语进行专业学术交流和授课。
6．具有健康的体魄、良好的心理素质和审美素养。
三、学制与修业年限标准学制4年，修业年限3-5年。
四、最低毕业学分与授予的学位本专业学生在学期间必须修满计算机科学与技术专业课程计划规定的152学分，其中通识教育课47学分，专业基础课25学分，专业主干课24学分，专业系列课28学分，专业实习和毕业论文10学分，其他为任意选修课学分。
符合毕业要求的学生，准予毕业，并发给毕业证书；符合《中华人民共和国学位授予条例》和《东北师范大学本科学生学士学位授予细则》规定者，授予理学学士学位。
五、课程设置及学分分配3．教师资格教育课参见“东北师范大学教师资格教育课程目录”。
4．任意选修课参见本专业专业系列课、学校通选课和其他学科专业的专业教育课目录。
六、副修专业和第二学位课程说明1．副修专业课程说明副修专业是根据学校的要求，面向全校学生开设，为学生拓宽知识面，增强适应性而提供的选择。
副修专业的课程为专业课程计划中的专业必修课，学生必须修满30学分，符合要求的学生，发给计算机科学与技术专业副修证书。
2．第二学位课程说明为培养“宽口径、厚基础”、富有创新精神和实践能力的复合型人才，面向全校学生开设第二学位课程。
VB_数据类型
“&”表示长整型数据。
如-334&，67785649&。
整数（Interger）和长整数（Long）均用于保存整数，其可以是正整数、负整数或者0。
例如：369、-369、+369均表示整数，而369.0就不是整数；-9993977、12345678均表示长整数，而123,456则是非法数。
整型数的运算速度快、精确，且占用存储空间较小，但表示数的范围也较小。
3.单精度数（Single）。
单精度数是带小数点的实数，有效数字为7位，在机器内用4个字节存储。
通常以指数形式表示，指数部分用“E”或“e”表示。
在VB中数尾常加“！”表示单精度数据，也可省略。
如-234.78,45.56！，2.67e+3，-2.89E-2。
单精度数有多种表示形式：±n.n(小数形式)、±n E ±m(指数形式)、±n.n E ±m (指数形式)。
例如：123.45、0.12345E+3、123.45！都是同值的单精度数。
如果某个数的有效数字位数超过7位，当把它定义为单精度变量时，超出的部分会自动四舍五入。
4.双精度数（Double）。
双精度数也是带小数点的实数，有效数字为15或16位，在机器内用8个字节存储。
通常以指数形式表示，指数部分用“D”或“d”表示。
在VB 中数尾常加“#”表示双精度数据，也可省略。
如-374.778#，5.678D+2，-2.67e+3#。
5.货币型数据（Currency）。
货币型数据是为是一种专门为处理货币而设计的数据类型，是一种特殊的小数。
，它的精度要求较高，用8个字节存储，保留小数点右边4位和小数点左边15位，如果数据定义为货币型，且其小数点后超过4位，那么超过的部分自动四舍五入。
在VB中数尾常加“@”表示货币型数据。
如3.4@，565@。
6.字节型数据（Byte）。
字节型数据用来存储二进制数,是范围在0～255之间的无符号整数，不能表示负数，在机器内用一个字节存储。
VB程序设计教程 DF 超级合集 章 共 章
2. 容器对象： 其他对象的载体或容器。如窗体
32
第1章
3．对象的属性(Property) 属性是对象的特征。在VB中不同的对象有不同的
属性，我们需要熟悉它们的常用属性，例如名称、标 题、字体、颜色、尺寸等。
33
第1章
4．事件（Event） 事件是一种动作，大多数事件都是事先预制好
18
第1章
单击“ 开 始”，选择菜单命 令 “ Microsoft Visual Basic 6.0 中文版”，系统将 显示如图所示的 “新建工程”对话框。
19
第1章
工具箱
工程资源 管理器窗口
属 性 窗 口
布
窗体
窗体编辑器
局
窗
口
20
第1章
VB是通过工程(Project, 或称项目)来管理应 用程序中的所有不同文件的。
9
第1章
• Visual Basic • C语言 • C++ • Java
10
第1章
高级语言程序被计算机执行前，要有一个“翻 译”过程——将高级语言编写的程序(源程序)翻译 成机器语言程序(目标程序)。
语言翻译程序也是一种软件，人们称之为“程 序的程序” 。
11
第1章
翻译方法一般采用两种 一是编译方式——采用的翻译程序叫做编译程 序 二是解释方式——采用的翻译程序叫做解释程 序
27
第1章
编程时使用解释方式； 编译方式： 执行“文件”菜单中的“生成....exe”命令
28
第1章
今天的程序交互 一般说来，程序设计有面向过程和对
象两种方法: 传统的编程方法 可视化的编程方法
vb6.0高清教程系列_第03章_数据类型、常量、变量及表达式(共九章)
4．一行最多允许255个字符。 5．注释以Rem开头，也可以使用单引号“'”，注释内容可直 接出现在语句的后面。 6．在程序转向时需用到标号，标号是以字母开始而以冒号 结束的字符串。 （二）、 约定 1．为了提高程序的可读性，对于VB中的关键字其首字 母大写，其余字母小写 2. 注释有利于程序的维护和调试 Rem开始 或 单撇 ‘。 例如： ’ This is a VB REM This is a VB 在6.0中新增了“块注释/取消块注释”
3.4.4 逻辑运算符与逻辑表达式
Not 逻辑非为单目运算符（要求一个操作数），其它为双 目运算符。
条件表达式1 And 条件表达式2 条件表达式1 Or 条件表达式2 条件表达式均为T 结果为T 条件表达式有一个T 结果为T
说明：
（1）逻辑运算符的优先级不相同，Not（逻辑非）最高， 但它低于关系运算，Imp（逻辑蕴含）最低。 （2）VB中常用的逻辑运算符是Not、And和Or。它们用于 将多个关系表达式进行逻辑判断。 例如，数学上表示某个数在某个区域时用表达式： 10≤ X<20，用VB程序中应写成： X>=10 And X<20 （3）参与逻辑运算的量一般都应是逻辑型数据，如果参与 逻辑运算的两操作数是数值量，则以数值的二进制值逐位 进行逻辑运算（0当False,1当True）。 关系表达式与逻辑表达式常常用在条件语句与循环语 句中，作为条件控制程序的流程走向。
下面是一个很简单的程序，其使用的变量a, b, Sum都 没有事先定义。 Private Sub Form_Click() Sum = 0 a = 10: b = 20 Sum = a + b Print "Sum="; Sum End Sub 3．强制显式声明——Option Explicit语句 良好的编程习惯都应该是“先声明变量，后使用变量”， 这样做可以提高程序的效率，同时也使程序易于调试。 Visual Basic 中可以强制显式声明，可以在窗体模块、标准 模块和类模块的通用声明段中加入语句：Option Explicit
VB程序设计期中考试2
高二电商专业VB程序设计期中考试姓名：分数：一，选择题（1*20，共20分）1.下列关于visual basic 特点的描述，正确的是（）A.面向对象B.可视化C.事件驱动。
D. 以上全部都是2. 集成开发环主主主窗口中不包括中（）A.标题栏B.菜单栏C.状态栏D.工具栏3.在visual basic 中建立应用程序所需要的控件，应使用（）A.属性窗口B.工具箱窗口C.立即窗口D.菜单设计窗口4.visual basic 窗体设计器用来设计（）A.应用程序代码段B.应用程序界面C.对象的属性D.对象的事件5.在visual basic6.0集成开发环境中，如果没有显示出某个窗口，可以通过（）菜单下的命令使其显示A.文件B.编辑C.视图D.工程6. 下列关于字符型数据的说法中不恰当的（）。
A. 字符型数据是用来存储文字信息的B. 字符型数据包含定长字符串和变长字符串C. 字符串使用双引号或单引号作为界定符号D. 长度为零，即不含任何字符的字符串为空字符串，简称空串7.数据"12345"是_数据。
A.整型B.长整型C.字符型D.日期型8.下列关于数值型数据的说法中，正确的是（）。
A.如果数值型数据不包含小数，则应使用整型数或长整型数B.在VisualBasic中，数值型数据没有有效范围C.单精度数比双精度数所占存储空间更大D.单精度数在存储时占据2字节的存储空间9.下列关于数据类型的说法中不正确的是（）。
A.布尔型数据只有True(真）和False(假）两个值B.日期型数据只用来表示日期C.变体型数据可以存放任何类型的数据D.字符型数据有两种形式：变长字符串和定长字符串10.以下数据类型中，不是VisualBasic的数据类型的是（）。
A.字符型数据B.布尔型数据C.时间型数据D.日期型数据11.数据12345是（）数据。
A.整型B.长整型C.字符型D.日期型12.数据#10/11/2008#是（）数据。
Visual Basic程序设计实用教程vb08(第8章 使用常用绘图方法)
8.3 绘图相关知识(1)
1、容器控件 要实现绘图就必须具备基本 条件，那就是要有一个绘 图的板。这与我们日常的 概念是一样的。比如一张 纸可以绘图，而一盆水就 不可绘图。VB提供了两 种可以绘图的板，
窗体-Form
图片坐标，或椭圆中心、圆弧中心的坐标； Radius：圆的半径； Start：选用时为画圆弧，表示圆弧的起始位置，用弧度表示； End：选用时为画圆弧，表示圆弧的终止位置，用弧度表示； Aspect：选用时为画椭圆，是椭圆X轴和Y轴的比例，当大于1时，长 半轴为Y轴，当小于1大于0时，长半轴为X轴；
8.7 实现鼠标绘任意图形(2)
应用鼠标事件完成任意绘图的操作,鼠标事件对 应的操作如下：
MouseDow n (鼠标压下) MouseMove (鼠标移动)
启动绘图，取 得当前坐标
判断是否绘图， 是绘制首尾相 接的线条
MouseUp (鼠标抬起)
停止绘图
8.8 图形方法应用举例(1)
按钮“画圆”代 码
8.3绘图相关知识
控件坐标和大小： 控件的位置属性： Left 和 Top ，指定控件左 上角的坐标值； 控件尺寸大小的属性: Height和 Width ，指定控 件右下角的坐标值， 实际上是控件的高度 和宽度。
（0，0） 控件
X轴
Y轴
控件坐标图
8.4 画线的方法Line
语句格式为：
Object.Line [step](x1,y1)-(x2,y2),[Color],[B][F]
语句示例： （在Form1上画图） 画圆: Form1.Circle (1000, 1000), 400, vbRed 画椭圆: Form1.Circle (1000, 1000), 400, vbRed, , , 1.5
VB程序设计教案,数组4,动态数组
【第二种方法】复制现有控件。
用复制、粘贴的方法建立控件数组，具体步骤如下：
(1) 画出控件数组中的第一个控件。
(2) 当控件获得焦点时，单击“复制”按钮。
(3) 单击“粘贴”按钮。
VB将显示一个对话框询问是否确认创建控件数组。
选择“是”，确认操作，将得到控件数组中的第二个控件。
(4) 继续单击“粘贴”按钮，可得到控件数组中的其他控件。
【第三种方法】指定控件的索引值。
可以直接指定控件数组的索引值，来建立控件数组。
其具体步骤如下：
(1) 绘制控件数组中的第一个控件。
(2) 将其Index属性索引值改为0。
(3) 复制控件数组中的其他控件。
三、课堂总结。
信息技术《算法与程序设计VB选修》知识点汇总
江苏省高中信息技术《算法与程序设计VB （选修）》知识要点相关知识点（一）算法1. 定义相关题解：1算法：就是解决问题的方法和步骤。
算法是程序设计的“灵魂”，算法+数据结构=程序。
单选题1、 下列关于算法说法不正确的是（）A 、 算法独立于任何具体的语言，BASIC 算法只能用BASIC 语言来实现B 、 解决问题的过程就是实现算法的过程C 、 算法是程序设计的“灵魂”2. 算法的描述方法：1算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。
2自然语言描述法：指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我们的 习惯，且容易理解。
3流程图描述：也称程序框图，它是算法的一种图形化表示方法。
且描述算法形象、直观，更 易理解。
4伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。
是专业软件开发人 员常用方法。
/ ”在算法流程图描述中表示（）.' 能 B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束 2、图形符号"|"在算法流程图描述中表示（）.A 处理或运算的功能B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束3、 以下哪个是算法的描述方法?（ ）A 流程图描述法B 枚举法C 顺序法D 列表法4、 以下哪个是算法的描述方法?（）A 顺序法B 列表法C 集合法D 自然语言描述法 （二）程序设计基础（1）常用高级编程语言：BASIC 、VB 、Pascal 、C 、C++、Java1面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包括窗体等、控件等 相关题解： 单选题1、图形符号”A 处理或运算的功2控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按钮对象属性=属性值对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置，方法如下例：给文本框"Txt123”的“Text”属性赋值为字符串“20”，代码如下Txt123.text =”20”变量=对象•属性如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下例：读取文本框“ txt123 ”的“ Text ”属性的代码如下a = txt123.text2方法［对象］•方法［参数名表］例：form.print ”欢迎使用”该语句使用print方法在forml窗体中显示字符串“欢迎使用”3事件及事件驱动事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个Click事件。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
label3 combo1
第11页
电子信息工程学院
2011年4月27日
示例
代码
Private Sub Form_Load() Form_Load() Dim City City = Array("北京", "上海", "天津", "重庆", "广州", "深 Array("北京 "上海 "天津 "重庆 "广州 "深 北京", 上海", 天津", 重庆", 广州", "海口 海口") 圳", "海口") For i = LBound(City) To UBound(City) Combo1.AddItem City(i) Next i 仅当某项被选中时， 仅当某项被选中时，移除该 项 End Sub Private Sub Command2_Click() Command2_Click() If Combo1.ListIndex <> -1 Then Combo1.RemoveItem Combo1.ListIndex End if End Sub 电子信息工程学院
Chage事件 输入 事件→输入 事件 DropDown事件 事件→ 事件 折叠
电子信息工程学院
2011年4月27日
琼 州 学 院
第8页
组合框
演示：在VB中用三种组合框完成同一功能 演示： VB中用三种组合框完成同一功能
琼 州 学 院 代码 Private Sub Command1_Click() Text1 = Combo1.Text End Sub
电子信息工程学院
2011年4月27日
思考
根据该问题的结果， 点菜” 根据该问题的结果，对“点菜”程序进行 修改，取消“点菜”按钮，使之“ 修改，取消“点菜”按钮，使之“即点即 上”。
琼 州 学 院
第5页
电子信息工程学院
2011年4月27日
组合框
组合框( 组合框( ComboBox) – 位置：工具箱(5, 1)处 位置：工具箱(5, 1)处 – 功能：组合框＝文本框＋列表框， 功能：组合框＝文本框＋列表框， 可输入数据， 可输入数据，也可直接选择 – 理解：增强的列表框。 理解：增强的列表框。 – 示例：一个组合框对象 示例：
琼 州 学 院
第23页
电子信息工程学院
2011年4月27日
滑块控件
示例： 示例： 用滑块控件改变文本框中文字的大小。先设置属性： 用滑块控件改变文本框中文字的大小。先设置属性： – Min= 8 – Max = 72 – TickFrequency = 5 代码： 代码： Private Sub Slider1_Scroll() Slider1_Scroll() Text1.FontSize = Slider1.Value End Sub
琼 州 学 院
第13页
电子信息工程学院
2011年4月27日
练习
1、当组合框的Style设置为____时，称为下拉列表框。 当组合框的Style设置为 C 时 称为下拉列表框。 设置为____ A. 0 B. 1 C. 2 D. 3 2、只有将组合框的Style属性设为____时，才能触发 只有将组合框的Style属性设为 B 时 属性设为____ DblClick事件 DblClick事件。 事件。 A. 0 B. 1 C. 2 D. 3
A 事件。 3、当用户单击组合框向下箭头时，将触发____事件。 当用户单击组合框向下箭头时，将触发____事件 A. DropDown B. DblClick C. AddItem D. Click
琼 州 学 院
第14页
电子信息工程学院
2011年4月27日
小结Байду номын сангаас
组合框控件 – 组合框＝文本框＋列表框 组合框＝文本框＋ – 下拉组合框、简单组合框、下拉列表框的特点 下拉组合框、简单组合框、
琼 州 学 院
第19页
电子信息工程学院
2011年4月27日
示例
通过下例掌握各属性和两个事件 建立一个水平滚动条（Hscroll）， MAX属 ），其 例：建立一个水平滚动条（Hscroll），其MAX属 性为100，MIN属性为 属性为0 SmallChange属性为 属性为2 性为100，MIN属性为0，SmallChange属性为2， LargeChange属性为 ，Value属性初始值为 。 LargeChange属性为10，Value属性初始值为50。 属性为10 属性初始值为50 另有一个文本框，显示滑块当前位置所代表的值。 另有一个文本框，显示滑块当前位置所代表的值。
琼 州 学 院
第八章 VB中的常用控件(3) VB中的常用控件 中的常用控件(3)
第1页
电子信息工程学院
2011年4月27日
学习目标
列表框控件 组合框控件 滚动条控件 滑块控件
琼 州 学 院
第2页
电子信息工程学院
2011年4月27日
作业提示
作业： 作业：两个列表框中项目的批量互换
琼 州 学 院
两个列表style=1 两个列表
滚动条
属性总结： 属性总结：
– – –
琼 州 学 院
–
Value： Value：滚动块的位置 Min、 Min、Max SmallChange：单击箭头， SmallChange：单击箭头，微调时单位 LargeChange：单击滑块两侧，移动量较大； LargeChange：单击滑块两侧，移动量较大；
第9页
电子信息工程学院
2011年4月27日
组合框
属性、方法： 属性、方法： – 包括list、listcount、listindex、additem、 包括list、listcount、listindex、additem、 removeitem等 removeitem等，与列表框几乎完全一致 区别： 区别： – 组合框＝文本框＋列表框 组合框＝文本框＋ – 组合框不允许多项选择（Style的含义不同，又 组合框不允许多项选择（Style的含义不同 的含义不同， MultiSelect属性 属性） 无MultiSelect属性）
琼 州 学 院
第10页
电子信息工程学院
2011年4月27日
组合框的示例
示例：程序运行后显示若干城市名称，选中某个 示例：程序运行后显示若干城市名称， 城市后，将其名称显示在对应标签中。 城市后，将其名称显示在对应标签中。在程序运 行中，可以向组合框中添加新的城市， 行中，可以向组合框中添加新的城市，也可删除 选中的城市。 选中的城市。
2011年4月27日
琼 州 学 院
第12页
示例
代码（续） 代码（
Private Sub Command1_Click() Command1_Click() flag = 0 If Combo1.Text <> "" Then For i = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(i) Then flag = 1 Next i If flag = 0 Then Combo1.AddItem Combo1.Text End If End Sub 如果在列表中找不到相同数 据，则将它添加到表尾 Combo1_Click() Private Sub Combo1_Click() Label3 = Combo1.Text End Sub
琼 州 学 院
第15页
电子信息工程学院
2011年4月27日
滚动条
水平滚动条( 水平滚动条( HScrollBar) 垂直滚动条( 垂直滚动条( VScrollBar)
琼 州 学 院
第16页
电子信息工程学院
2011年4月27日
滚动条
示例： 示例：调色板程序
琼 州 学 院
第17页
电子信息工程学院
2011年4月27日
第18页
电子信息工程学院
2011年4月27日
滚动条的事件
事件 – Change 移动滑块后发生 – Scroll 拖动滑动时发生（单击箭头或滚动条不发生） 拖动滑动时发生（单击箭头或滚动条不发生） 区别 – 拖动进行：Scroll 拖动进行： – 拖动结束：Change 拖动结束： 编程时用Scroll事件跟踪拖动时数值变化 事件跟踪拖动时数值变化， 编程时用Scroll事件跟踪拖动时数值变化， Change事件获得滚动条变化后的最终值。 事件获得滚动条变化后的最终值 用Change事件获得滚动条变化后的最终值。
琼 州 学 院
第20页
电子信息工程学院
2011年4月27日
示例
代码： 代码：
Private Sub HScroll1_Change() HScroll1_Change() Text1 = HScroll1.Value End Sub
琼 州 学 院
Private Sub HScroll1_Scroll() HScroll1_Scroll() Text1 = HScroll1.Value End Sub
琼 州 学 院
图示： 图示：
0，2可折叠，1不能 ， 可折叠 可折叠， 不能 0，1可输入，2不能 ， 可输入 可输入， 不能
下拉组合框
简单组合框
下拉列表框
第7页
电子信息工程学院
2011年4月27日
组合框
对应事件 – 下拉组合： 下拉组合： Click Change DropDown – 简单组合： 简单组合： Click DblClick Change – 下拉列表： 下拉列表： Click DropDown