Vb(VBA)数组操作
Vb(VBA)数组操作
与Array()和Split()相比，由工作表区域创建数组更加直观而简易，一个等号便解决问题：
如：用Sheet2工作表A1:E83的数据创建一个数组：
Private Sub CommandButton1_Click()
arr = Sheet2.Range("a1:e83")
End Sub
如果把该数据复制到Sheet1工作表相同区域，用数组操作，代码如下：
Private Sub CommandButton1_Click()
arr = Sheet2.Range("a1:e83")
Range("a1:e83") = arr
End Sub
共两句，前一句把数据保存到数组，第二句，把数组内容写入到工作表。
选择第3行代码，按F9设置断点。点击按钮运行代码，到该行，程序自动中断，此时，可从本地窗口中观察到运行结果，一个83行2列的数组已经创建。
Filter()函数在一维数组中搜索文本型数据，并把结果保存到指定的数组中。
A1单元格是以逗号分隔的姓名串，部分有重复，要求剔除其中重复的姓名，把不重复的姓名写入单元格A2向右的区域。
第一步，把所有姓名保存到数组xm()中；
第二步，建立一个数组Arr()保存结果，遍历xm()过程中，检查Arr()中是否存在当前的姓名，用命令：
Temp = Filter(Arr, xm(i)) '在数组Arr()中搜索当前值xm(i)，如果找到，结果保存到Temp()数组中，如果找不到，返回一个空的数组Temp()
根据Temp()数组的大小，可以知道当前值xm(i)是不是一个重复的值。
Split()把一个文本，根据指定的分隔符，建立一个数组。
看一个实例：
单元格A1中有一串姓名：
朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福要求：用Split()，把这串文本创建为一个数组：
Sub test()
XM = Split(Range("a1"), ",")
End Sub
同样可以用本地窗口检查转换结果。
注意，Split()函数把文本转换成数组，并不受Option Base的影响，索引号总是从0开始。
有一个函数，是Split()的反向操作函数，把数组的元素连接成一个字符串，这个函数就是Join()。
在上例中，把要求改为，剔除重复值后，把结果依原样输出到A2单元格中。
我们只需改变最后一行代码：
把这一行：
'Range("a2").Resize(1, r) = Arr '填充到工作表
换成这一行，用上Join()函数，把Arr()数组中的元素用“,”连接成一个字符串：
Range("a2") = Join(Arr, ",")
对于数组感兴趣的朋友在您掌握了一些基本的取值、赋值、循环等技巧之后，不妨在了解一些也许你们不太了解的数组用法，这些都会是很有用的数组编程技巧
1、取工作表区域的绝对引用公式到数组：arr=[a1:c5].Formula
2、取工作表区域的相对引用公式到数组：arr=[a1:c5].Formular1c1
3、取工作表区域的转置到数组：arr=Application.Transpose([a1:c5]) 数组间也可以转置：arr1=Application.Transpose(arr)
4、取数组arr的第n列赋值到某列区域：[e1:e5]=Application.Index(arr, , n) 或者赋值产生一个新数组：arr1=Application.Index(arr, , n)
5、同理，取数组arr的第n行赋值到某行区域：[a6:c6]=Application.Index(arr,n , ) 或者赋值产生一个新数组：arr1=Application.Index(arr, n, )
一、数组的分类
按元素数目分：元素数目大小固定的数组和元素数目大小不固定的动态数组。
按维数分：一维数组、多维数组。
Arr(1 to 12)、Arr1(0 to 24)----一维固定数组；
Arr2(1 to 5,1 to 8)---- 二维固定数组；
Arr3(5 to 10,6 to 12,1 to 100) ---- 三维固定数组。
动态数组
Dim Arr2(),r%
r=r+1
ReDim Preserve Arr2(1 To r) ―――动态数组；可以重新声明（只有最后一维的数目才能重新声明）；
用了关键字 Preserve 可确保原来包含数据的数组中的任何数据都不会丢失
二、数组的赋值
2.1 单元格区域保存到数组
arr = [e22:i24]
arr=Range(“e22:i24”)
2.2 Array函数
myArray = Array("AAA", "BBB", 200, 500, "2006-7-12")
如果代码头没有 Option Base 1 的语句，则数组myArray的上限为4，下限为0。
即下限LBound(myArr)=0 ，上限 UBound(myArr)=4
二维数组的第一维的上限：UBound(Arr,1)
二维数组的第二维的上限：UBound(Arr,2)
多维数组上限的求法一样。
2.3 把单元格区域公式赋给数组
如果a5=B4+1
arr = [a4:c8].Formula '将单元格绝对引用公式保存到数组
[e4:g8]=arr 此时e5中的公式也＝B4+1;
如果将单元格相对引用公式保存到数组
arr = [a4:c8].FormulaR1C1
如果a5=B4+1
[e4:g8]=arr 此时e5中的公式就＝E4+1;
三、数组里的最大值和最小值
最大值aa = Application.WorksheetFunction.Max(Arr) aa= https://www.sodocs.net/doc/cd17012480.html,rge(Arr,1)
最小值aa = Application.WorksheetFunction.Min(Arr) aa= Application.WorksheetFunction.Small(Arr,1)
VB .NET中控件数组的实现
https://www.sodocs.net/doc/cd17012480.html,中控件数组的实现 摘要:VB编程时,当要处理一组相同类型的控件的同一事件过程时,我们可以引入控件数组这一概念。如进行计算器程序编写时,可创建十个数字按钮的控件数组,共享同一事件过程。VB6升级到https://www.sodocs.net/doc/cd17012480.html,后,VB6控件数组的创建方法在.NET中不可用,本文总结了几种https://www.sodocs.net/doc/cd17012480.html,中使用控件数组的方法。 关键词:https://www.sodocs.net/doc/cd17012480.html,控件数组事件过程程序代码 一、关于控件数组 熟悉VB6编程的,对控件数组这一概念应该非常熟悉,它是VB6中的一项简单而非常实用的技术,是指具有相同名称的同类型的控件,共享同一事件。它的最大好处是:简化编程。但当我们把这一用法沿用到https://www.sodocs.net/doc/cd17012480.html,中来时,却发现无法实现。虽然https://www.sodocs.net/doc/cd17012480.html,中没有VB6中实现控件数组的方法,但在https://www.sodocs.net/doc/cd17012480.html,中控件数组的运用更加灵活了。 https://www.sodocs.net/doc/cd17012480.html,中,控件数组的创建不再是在设计时简单地将同类型的各个控件的Name属性值设置成同一名称就可以了,https://www.sodocs.net/doc/cd17012480.html,中,不公能够创建同类型的相同事件处理过程,还能够创建属于不同类型但共享相同事件的控件组。 二、https://www.sodocs.net/doc/cd17012480.html,中控件数组的实现 要在https://www.sodocs.net/doc/cd17012480.html,中实现控件数组这一机制,我们需要通过编写代码来完成,下面来介绍几种的方法,大家可以根据程序的需要进行选择。 1、使用Handles子句。 先将控件数组中各控件对象依次添加到窗体,然后创建其中一个对象的事件过程(执行部分先不写),再把其它对象的这一事件依次添加在后面,各事件过程名之间用逗号分隔开来。在事件过程的执行部分,如果需要引用这些对象,则要先给这些对象创建一个相同的名称。当要引用对象时,不再使用它们的Name属性值,而是新创建的名称。示例代码如下(部分内容省略): Label1_Click(ByVal sender…)Handles Label1.C lick,Label2.Click,Label3.Click Dim lbl As Label = CType(sender, Label) 当中,创建的是Label1的Click事件,在其后面,添加了Label2及Label3的Click 事件。事件过程中,通过一条Dim语句,定义三个标签具有相同的名称lbl,在下面的代码中,要设置或获取其中某一个标签的某个属性值时,直接使用名称lbl即可。这种方法实现起来最方便简单,以上实例中要求控件数组中控件类型相同,通过此方法,也可实现不同类型同一事件处理程序的共享,如具有同一功能的菜单项和工
VBProject代码操作代码之常用语句
一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub
VB常用字符串操作函数解读
VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符
vb控件数组的习题及答案
vb控件数组的习题及答案
电子教室学生注册时姓名文本框部分请输入：如：1411111111李四学号+姓名，中间不加空格） 实验准备： 请同学们删除d:\ex21 文件夹里面的内容 如果没有ex21文件夹，请在d:\ 下新建 ex21 文件夹 1、打开D:\下的工程文件PROJECTA4.vbp和窗体文件FORMA4.frm，按以 下要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。 List1用于显示可选课程、List2用于显示已选课程。单击“选课”按钮， 将List1中选定的课程名称加入到List2中显示,单击“清空”按钮，将 删除List2中的所有课程。程序运行的参考输出格式如图A-4所示,可选 课程至少包含图A-4所示的6门。最后将工程文件、窗体文件按原文件 名保存在D:\EX21文件夹下。 图A-4
2、打开D:\下的工程文件PROJECTB4.vbp和窗体文件FORMB4.frm，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。List1用于显示可选课程、Picture1用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。 图B-4
3、打开D:\下的工程文件PROJECTA41.vbp和窗体文件FORMA41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图A-41所示。最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。 图A-41
VB基本操作题
基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。 (2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点
【精选资料】VB控件 数组 过程复习题 参考答案2
常用标准控件作业 一、选择题 1．下列关于属性设置的叙述错误的是_______B__。 A．一个控件具有什么属性是Visual Basic预先设计好的，用户不能改变它 B．一个控件具有什么属性值是Visual Basic预先设计好的，用户不能改变它 C．一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置 D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值 2．以下过程是标签Label1的___A______事件。 Prviate Sub Label1_Click( ) End Sub A.单击 B.双击 C.拖拽 D.移动 3．下列控件中可设置滚动条是____C_____。 A.检查框（复选框） B.框架 C.文本框 D.标签框 4．标签所显示的内容，由___C______属性值决定。 A. Text B. Name C. Caption D. Alignment 5．定时器的定时间隔单位是__C_______。 A. 秒 B. 微秒 C. 毫秒 D. 分 6．检查框（复选框）的控件名称为______B___。 A. OptionBotton B. CheckBox C. PictureBox D. Image 7．若要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置______D___。 A. Text属性值为& B. Caption属性值为& C. PasswordChar属性值为空 D. PasswordChar属性值为& 8．若要设置定时器的定时间隔，可通过__A_______属性来设置。 A. Interval B. Value C. Enabled D. Text 9．若要设置定时器的定时间隔设为5秒，应将Interval属性值设为_D________。 A. 5 B. 50 C. 500 D. 5000 10．若要使不可见命令按钮显示出来，可通过设置_____A____属性的值为True来实现。 A.Visible B.Enabled C.Default D.Value 11．若要使定时器起作用，应将其__D_______属性设置值设为True。 A.Interval B.Value C.Text D.Enabled 12．若要使命令按钮失效，可设置_____B____属性为False来实现。 A.Value B.Enabled C.Visible D.Cancel 13．若要向列表框新增列表项，可使用_____D____方法来实现。 A.Add B.RemoveItem C.Clear D.AddItem 14．要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的_____B____属性来实现。 A.Value B.Max C.Min https://www.sodocs.net/doc/cd17012480.html,rgeChange 15．要将命令按钮上的文字设置为“粗体”可通过设置__B_______属性值为True来实现。 A.FontItalic B.FontBold C.FontUnderline D.FontSize 16．要将命令按钮上的文字设置为“斜体”可通过设置____A_____属性值为True来实现。 A.FontItalic B.FontBold C.FontUnderline D.FontSize 17．要将命令按钮上的字体设为“隶书”，可设置______C___的属性为“隶书”。 A.FontBold B.BackItalic C.FontName D.FontSize 18．以下选项中，不属于单选按钮属性的是____D_____ A.Enabled B.Caption https://www.sodocs.net/doc/cd17012480.html, D.Min 19．组合框的风格可通过____C_____属性来设置。 A.BackStyle B.BorderStyle C.Style D.Sorted 20．标签的边框由_____C____属性的设置来决定。 A.BackColor B.BackStyle C.BorderStyle D.AutoSize 21．单选按钮的控件名称为____D_____。 A.Botton B.CheckBox C.PictureBox D.OptionBotton 22．单选按钮的当前状态可通过___A______属性来访问。 A.Value B.Checked C.Selected D.Caption 23．当滚动条中的滑块位置变化时，将触发其___C______事件。 A.LostFocus B.SetFocus C.Change D.GetFocus 24．假定Picture1和Form1分别为图片框和窗体的名称，以下语句___A______可清除图片框中的文本信息。 A.Picture1.cls B.Picture1.clear C.Form1.cls D.Form1.clear 25．确定一个窗体或控件的大小的属性是_____B____。 A.Width或Height B.Width和Height C.Top或Left D.Top和Left
控件数组
在https://www.sodocs.net/doc/cd17012480.html,中使用控件数组 控件数组是位于一个窗体上共享同一名称的一组同种类型控件。普通控件仅使用名称就可以识别，而引用控件数组中的成员则需要同时使用名称和索引。开发人员在Visual Basic 6.0 以及更早的版本中使用控件数组主要有以下三个理由： 1. 在循环中访问数组中控件的属性。 2. 向窗体动态添加新控件。 3. 允许一个事件例程与多个控件连接。 控件数组的使用，极大的方便了开发人员。然而，刚刚从Visual Basic6.0（以下简称VB6.0）过渡到Visual https://www.sodocs.net/doc/cd17012480.html,（以下简称https://www.sodocs.net/doc/cd17012480.html,）的初学者却发现，在https://www.sodocs.net/doc/cd17012480.html,中似乎不能使用控件数组了。笔者仔细查阅了https://www.sodocs.net/doc/cd17012480.html,的MSDN文档发现，在https://www.sodocs.net/doc/cd17012480.html, 中，确实不再支持控件数组。原因是，https://www.sodocs.net/doc/cd17012480.html,对事件模型作了很大的改动，引入了另外一种数据类型――控件集合模型，使控件数组没有存在的必要。就像VB6.0 中的控件数组可以共享事件一样，https://www.sodocs.net/doc/cd17012480.html, 中的事件模型允许任何事件处理程序都可以处理来自多个控件的事件，这就允许创建属于不同类型但共享相同事件的控件组。 所谓控件集合是指包含在一个容器中的所有控件的总和，能够创建控件集合的容器有：Form、Panel、GropBox等。程序运行时，可以通过访问容器的Control属性来得到该容器中的所有控件。 下面将演示如何通过控件集合来使用控件数组： 一、直接使用Form容器的控件集合来使用控件数组： 建立一个https://www.sodocs.net/doc/cd17012480.html,项目，在Form1中添加三个TextBox控件，名称分别为：TextBox1、TextBox2、TextBox3，一个Button控件。 双击Button，输入如下代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click …下面的语句是通过数组元素的下标来访问Form中的每一个元素。 Me.Controls.Item(0).Text = "集合中的第一个元素" Me.Controls.Item(1).Text = "集合中的第二个元素" Me.Controls.Item(2).Text = "集合中的第三个元素" Me.Controls.Item(3).Text = "集合中的第四个元素" End Sub 运行项目后，点击Button，看到的结果是：Form1中的所有控件（包括Button自己）的Text属性都被修改了，同时还发现，最后加入的的控件变成了集合中的第一个元素（下标为0）。这个结果说明： Form1中的所有控件已经自动构成了一个控件集合（控件数组），这个特点使得建立控件数组变得非常简单。 在访问这些控件时，除了可以通过控件名称直接访问外，还可以通过Contro.Item(n)属性按下标访问集合中的每一个控件； 集合中控件的类型可以不相同，这点和VB6.0完全不同； 集合中的下标顺序是按照加入控件的顺序倒排的； https://www.sodocs.net/doc/cd17012480.html,中控件数组的特点让人稍感不适的是，控件数组的下标是按加入顺序的倒排续产生的，但程序员完全可以改变这个顺序：在代码编辑窗中点击“#Region " Windows 窗体设计器生成的代码”旁边的“＋”号，代码展开后，找到如下代码： Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.TextBox1)
VB6.0基础入门教程
VB最简单入门教程
目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)
1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。
VB基本语法
1.1 VB的数据类型 数据类型是数据的表示和存储形式。VB定义的基本数据类型如表5-1所示。 表5-1 VB的基本数据类型 Integer（整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度长整型）及Currency（货币型）均为Numeric数据类型。其中整型是16位的整数，长整型是32位的整数。单精度及双精度浮点型就表示实数，常被用于数量较大的数字。Currency数据类型支持小数点右面15位，是定点数据类型，适用于货币计算。 String（字符串变量）的数据类型只存放文本，是一个字符序列，它的每一个字符用ASCII 编码表示。不包含任何字符的串称为空串。 Byte数据类型表示0到255之间的数，常用于访问二进制文件、图形和声音文件
等。当需要把数据存放成字节，必须访问各字节时可采用Byte类型。 取值仅为True/False的类型称为Boolean（布尔）型，缺省值为False。 Date数据类型用于以特殊方式存放日期和时间。 Object变量可引用应用程序中或某些其他应用程序中的对象。 VB缺省规定，如果在生命中没有说明数据类型，则变量的数据类型为Variant（变体）。Variant数据类型还包含三种特定值：Empty、Null、Error。Empty值用于确定是否已将一个值赋予所创建的变量。赋值之前，Variant变量具有值Empty。 Null常用于数据库应用程序，表示未知或丢失为空的数据。 Error值是指已发出的过程中的错误状态。 Variant数据类型是最为灵活的数据类型，可以依据不同的需要进行各种数据类型的转换。它实际上包含两部分信息，一部分是数据类型的信息，一部分是表示数据值的信息。但正是由于它的灵活性，又使得它存在着一个明显的缺点，Variant数据类型比其他类型的数据占有更多的内存空间。 2 数组 VB中数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如：Dim Array（9）As Integer 数组中包含10个元素，脚标从0到9。 也可以指定脚标的起始值，例如： Dim IntegerArray（2 to 10）As Integer 这个数组含有九个元素，脚标从2到10。 还可以定义多维数组： Dim ThreeD（4,2 to 5,3 to 6）As Integer
vb二级基本操作题
第一章：基本操作题 ⑴在名称为Form1的窗体上画一个名称为Text1的文本框，请设置适当属性，使文本框中无初始内容，可显示多行，有垂直滚动条，且最多只能输入1000个字符。如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt11.vbp，窗体文件名为sjt11.frm。 ⑵在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，内容分别为“文本框1”和“文本框2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏，Text2显示，如图1所示；如果双击窗体，则Text1显示，Text2隐藏，如图2所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名为sjt12.vbp，窗体文件名为sjt12.frm。 ⑶在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”，BorderStyle属性为1，且可以根据标题自动调整大小，编写适当的事件过程。程序运行后，其界面如图1所示，此时如果单击窗体，则标签消失，同时用标签的标题作为窗体的标题，如图2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt13.vbp，窗体文件名为sjt13.frm。 （4）在名称为Form1的窗体上画一个命令按钮，其名称为C1，标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100. 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt14.vbp，窗体文件名为sjt14.frm。 （5）在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容（如图2所示）。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt15.vbp，窗体文件名为sjt15.frm。 （6）在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt16.vbp，窗体文件名为sjt16.frm。
VB试题(附带答案)
VB试题 一、基本概念及基本操作 1、如果要向工具箱中加入控件和部件，可以利用"工程"菜单中的______命令。 A、引用 B、部件 C、工程属性 D、添加窗体 2、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。 A、进入设计模式 B、进入运行模式 C、进入中断模式 D、不用进入任何模式 3、系统符号常量的定义可以通过______获得。 A、对象浏览器 B、代码窗口 C、属性窗口 D、工具箱 4、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是______。 A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 5、以下叙述中错误的是______。 A、用Shell函数可以调用能够在Windows下运行的程序
B、用Shell函数可以调用可执行文件，也可调用Visual Basic 的内部函数 C、调用Shell函数的格式应为：<变量名>=Shell(......) D、用Shell函数不能执行DOS命令 6、以下叙述中错误的是______。 A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B、以.BAS为扩展名的文件是标准模块文件 C、窗体文件包含该窗体及其控件的属性 D、一个工程中可以含有多个标准模块文件 以下不属于Visual Basic系统的文件类型是______。 A、.frm B、.bat C、.vbg D、.vbp 7、VB中窗体文件的扩展名是______。 A、VBP B、FRM C、VBW D、PDM 8、以下叙述中错误的是______。 A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B、保存Visual Basic程序时，应分别保存窗体文件及工程文件 C、Visual Basic应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发 9、以下叙述中错误的是______。 A、一个工程可以包括多种类型的文件
vb控件数组的习题及答案
电子教室学生注册时姓名文本框部分请输入：如：1411111111李四学号+姓名，中间不加空格） 实验准备： 请同学们删除d:\ex21文件夹里面的内容 如果没有ex21文件夹，请在d:\ 下新建ex21文件夹 1、打开D:\下的工程文件PROJECTA4.vbp和窗体文件FORMA4.frm，按以下 要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。List1 用于显示可选课程、List2用于显示已选课程。单击“选课”按钮，将List1 中选定的课程名称加入到List2中显示,单击“清空”按钮，将删除List2 中的所有课程。程序运行的参考输出格式如图A-4所示,可选课程至少包含 图A-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:\EX21 文件夹下。 图A-4
2、打开D:\下的工程文件PROJECTB4.vbp和窗体文件FORMB4.frm，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。List1用于显示可选课程、Picture1用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。 图B-4 3、打开D:\下的工程文件PROJECTA41.vbp和窗体文件FORMA41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图A-41所示。最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
VB数组的初始化
所谓数组的初始化，就是给数组的各元素赋初值，前一节已经介绍过赋值语句或inputbox函数为数组元素赋值，这两种方法都需要占用运行时间。影响效率。为此，visual basic 提供了array函数。利用该函数，可使数组在程序运行之前初始化，得到初值。Array 函数用来为数组元素赋值。即把一个数据读入某个数组。 其格式为： 数组变量名=array（数组元素值） 例如：static a as variant A=array(1，2，3，4，5) 意思就是把1，2，3，4，5这5个数值赋给数组A的各个元素。即a(0)=1，a(1)=2，a(2)=3，a(3)=4，a(4)=5。注意，在默认情况下（在没有option base 1的情况下），数组的下标从0开始，数组A有5个元素。 如果加上option base 1，数组的下标从1开始，那数组A也是有5个元素，只不过每个元素的值和上面的不一样，即变为了a(1)=1，a(2)=2，a(3)=3，a(4)=4，a(5)=5对于字符串数组，其初始化操作相同。 对array函数的几点说明 数组变量名 = array(数组元素值) 1、该函数只适用于一维数组，即只能对一维数组进行初始化，不能对二维数组或多维数组进行初始化。 2、声明数组变量时，只能声明为变体（variant）类型，而不能是其他具体的数据类型。 如dim a as variant 或dim a 是正确的。 而dim a as integer 或 dim a as string 是错误的。 3、在定义数组变量时，可以不经定义而直接使用。 控件数组的基本概念 控件数组则一组相同类型的控件组成，这些控件共用一个相同的控件名称，具有相同的属性，事件和方法。数组中的每一个控件都有一个唯一的索引号index即下标，来标识它们。在属性窗口，通过属性窗口中的index属性就可以设置相同类型控件的下标。 在程序中，当有若干个控件执行大致相同的操作时，控件数组是很用的。控件数组共享同样的事件过程。例如，假定一个控件数组含有3个命令按钮command1，则不管单击哪一个按钮，都会调用同一个click事件。如果要确定单击的是哪一个按钮。则要通过其index 属性（即下标值）来进行确认。其单击事件过程代码格式： Private sub command1_click(index as integer) …… End sub 和只有一个按钮command1单击事件过程 Private sub command1_click
VB基本控件使用案例
请注意，下列所有的提示代码中，各事件过程的第1行（Private Sub…）和最后一行（End Sub）无需自己输入，在代码编辑窗口中对象列表选择相应对象，过程列表选择相应事件过程名，系统会自动输入第一行和最后一行，然后对号入座填入相应代码。
目录 第2章实例代码（理论课） (3) 【实例2.1】编写窗体的3个事件过程 (3) 【实例2.2】窗体关闭事件应用 (3) 【实例2.3】窗体FormClosing事件应用 (4) 【实例2.4】键盘事件的应用 (4) 【实例2.5】鼠标事件的应用 (5) 【实例2.6】多窗体程序设计 (6) 【实例2.7】命令按钮DialogResult属性应用 (7) 【实例2.8】密码框的使用 (8) 【实例2.9】文本框各类事件的应用 (8) 【实例2.10】文本框属性及方法的应用 (9) 第2章实验代码（上机内容） (10) 1．创建Windows应用程序，完成为窗体改变背景色的功能 (10) 2．体会窗体属性的使用 (11) 3．体会颜色的设置方法 (13) 4．自己设计应用程序，熟悉已介绍的各种窗体属性及Load、Click和DoubleClick事件 (13) 5．改写【实例2.3】的窗体关闭处理方法 (13) 6．完成【实例2.4】，体会键盘事件的使用 (13) 7．设计应用程序，要求窗体中文本框只按收字母和回车键 (13) 8．完成【实例2.6】，体会多窗体程序设计 (14) 9．完成【实例2.7】，命令按钮DialogResult属性应用 (14) 10．深入体会窗体、标签及命令按钮的属性、方法和事件的应用 (14) 11．完成【实例2.8】，体会密码框的制作与使用 (14) 12．完成【实例2.9】，体会文本框各类事件的使用 (14) 13．设计应用程序用光标键控制猴子移动 (14) 14．完成【实例2.10】，体会文本框各种方法的使用 (14) 15．使用FontDialog和ColorDialog对话框改写【实例2.10】某些功能的实现方法 (14) 16．求三角形函数值 (15) 17．总结本章所学知识点 (17)
vb控件数组的习题及答案
电子教室学生注册时姓名文本框部分请输入：如：11李四学号+姓名，中间不加空格） 实验准备： 请同学们删除d:\ex21 文件夹里面的内容 如果没有ex21文件夹，请在d:\ 下新建 ex21 文件夹 1、打开D:\下的工程文件和窗体文件，按以下要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。List1用于显示可选课程、List2用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到List2中显示,单击“清空”按钮，将删除List2中的所有课程。程序运行的参考输出格式如图A-4所示,可选课程至少包含图A-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。 图A-4 2、打开D:\下的工程文件和窗体文件，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。List1用于显示可选课程、Picture1用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图B-4 3、打开D:\下的工程文件和窗体文件，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图A-41所示。最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。 图A-41
VB_数组与记录教学练习题
第八章数组与记录 教学要求： 掌握一维、二维数组的定义、引用、初始化，掌握静态和动态数组及其差别，掌握数组的基本使用方法：数组元素的输入、输出和赋值等，掌握使用For Each...Next语句操作数组元素的方法；掌握控件数组的定义、建立和使用，掌握排序算法。掌握记录类型及记录数组的概念、记录变量的初始化及引用。 知识点： 数组的定义、引用、初始化；静态和动态数组及其差别；For Each...Next语句；控件数组。 熟练数组“遍历”算法的设计规律，冒泡排序、快速排序算法，顺序查找、有序表对分查找、字符查找算法。 内容导航： 一、数组的概念 （一）数组的定义 在Visual Basic中，可以用4个语句来定义数组，这4个语句格式相同，但适用范围不一样。Dim用在窗体模块或标准模块中，定义窗体或标准模块数组；ReDim、Static可用于过程中；Public 用在标准模块中，定义全局数组。 Visual Basic 提供两种格式： 第一种格式： 一维数组Dim 数组名(下标上界) As 类型名称 二维数组Dim 数组名(第一维下标上界，第二维下标上界) As 类型名称 第二种格式： Dim 数组名([下界To] 上界[，[下界To]上界]……) Dim 数组名(［下界To［上界［，［下界To]上界]……) （二）默认数组 在Visual Basic中，允许定义默认数组。默认数组就是数据类型为Variant（默认）的数组。在一般情况下，定义数组应指明其类型。 二、动态数组 （一）动态数组的定义 动态数组以变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略)，然后在过程中用ReDim 语句定义带下标的数组。 ReDim 语句格式：
关于VB的基本知识
Visual Basic入门教程 第一章介绍 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS 下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 VisualBasic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手DDDelphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是MicrosoftWindows的日渐成熟的必然产物。MicrosoftWindows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为MicrosoftWindows的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是MicrosoftSDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－VisualBasic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。 我的希望： 我在学习VB的过程中也曾遇到了许多困难，而且用的参考书大都来自译文，毕竟美国人和中国人的表达方式有所不同。这也造成了理解上的困难，所以我想为什么我不能写一个给中国人看到VB教程呢，于是我这么做了。也曾经在杂志上发表过几篇用VB制作小程序的文章，但受杂志的限制（篇幅、内容等等）（我得听小编的），总没有一个机会系统的介绍一下VB，造成了小小的遗憾。不过，我自己的主页建好后，终于这个愿望可以实现了，利用HTML可以方便的把文字与图片结合起来，不失为一个教学良所，也希望能够得到大家的支持。 希望“VB教程”能给你我一个互相学习的机会，如果你能从中获益那将是我最大的快乐，那时你一定会发现编程比游戏有趣得多 第二章：事件、属性及数据类型 以后两章可能会比较枯燥，但不可否认也很重要，所以为了学好VB，我们一定要打好基础才行。 一、事件 通过上一章的例子，你可能对“面向对象的编程”已经有了一定了解，它是由事件驱动的，对于不同的对象，所能感应到的事件也会不同，譬如说当你把鼠标移进某一区域时就会触发MouseMove事件，这很直观，也容易理解，但也有些事件比较抽象，下面我来对一般的事件进行一下解释。