VS2008--VB编程实例

1、vs2008 vb 编程实例（入门教程）1. vb(visual basic) 的发展微软公司在1991 年推出了建立在window 开发平台基础上的开发工具visual basic 1.0。随着window 操作平台的不断完善，微软公司也相继推出了visual basic2.0 、visual basic3.0 和 visaul basic4.0 ， 这些版本主要用于在window3.x 环境中的16 位计算机上开发应用程序。 1997 年微软公司推出了visual basic5.0 可以在 window9x 或者 window nt 环境中32 位计算机上开发应用程序。1998 年又推出v

2、isual basic6.0，它的功能更加完善。2.vb 语言的基础1.关键字：关键字是指系统使用的具有特定含义的字符。常用的关键字有：dim 、private , sub , public , end , if , else , form , me , single , as , integer , unload , do , while , messagebox , for , next等。2.标识符：标识符是指编写代码时定义的名称。在vb 中所有的常量、变量、模块、函数、类、对象及其属性都有各自的名称，这些名称就是标识符。例如：工程 1：一个工程的标识符。form1：一个窗体的标识符。c

3、lass1：一个类模块的标识符。module1 ：一个模块的标识符。3.基本数据类型数据类型类型名称存储空间变长字符型string 10 字节加字符串长度定长字符型string 字符串长度整数型integer 2 字节长整型long 4 字节单精度型（双精度型）single(double) 4 字节（ 8 字节）字节型byte 1 字节布尔型boolean 2 字节日期型date 8 字节对象型object 4 字节变体型variant 按需分配4.常用数据类型：4.1 字符型（ string）publicclass form1 privatesub form1_load( byval sen

4、der as system.object, byval e as system.eventargs) handlesmybase .load dim stra as string stra = hello world label1.text = stra end sub end class 上面代码是在vs2008vb 类里建立了window 窗体应用程序，并在窗体上添加一个标签控件（label1 ）,用关键字 dim 声名一个字符型变量 stra 并赋值“ hello world”，再把它赋给标签(label1) 。图 1、执行结果4.2 数值型数值型可分为5 种， integer , lo

5、ng , single , double , byte 。publicclass form1 privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handlesmybase .load dim it as integer, lt as long, st as single , dt as double , bt as byte it = 123 lt = 12345678 st = 3.14 dt = 3.1415926 bt = 9 textbox1.text = it text

6、box2.text = lt textbox3.text = st textbox4.text = dt textbox5.text = bt end sub end class 上面代码是对5 种数值型数据声名和赋值并在窗体里显示出来（在窗体里添加5 个文本框 textbox控件）。4.3 布尔型：又称逻辑类型。变量值只是true/false , yes/no , on/off 等。publicclass form1 privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handl

7、esmybase .load label1.text = 欢迎参加到 vb 学习队伍中来！ label2.visible = false button1.text = yes button2.text = no end sub privatesub button1_click(byval sender as system.object, byval e as system.eventargs) handlesbutton1.click label1.enabled = true label2.visible = true label2.text = 我很喜欢 vb 语言编程 end sub p

8、rivatesub button2_click(byval sender as system.object, byval e as system.eventargs) handlesbutton2.click label1.enabled = false label2.visible = true label2.text = 我对它不感兴趣 end sub end class 上面代码是在vs2008 vb 类中建立window 窗体应用程序项目，并在窗体中添加2 个标签控件（label1 ,label2 ）和 2 个按钮控件（ button1 , button2）并添加了2 个按钮的单击事件

9、。在窗体触发连接事件中把 label2 的可视属性设置为假（false 布尔型 ）图 3、执行结果图 4、按 yes 键结果图 5、按 no 键结果4.4 日期型publicclass form1 privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handlesmybase .load dim mydate as date mydate = #1/1/2015# me .visible = false msgbox(mydate) me .close() end sub end

10、class 上面代码是声明日期型变量，并赋值和用信息框显示它。图 6、显示日期5.记录类型：用户自定义类型也称记录类型。publicstructure my_data dim name as string dim xh as string dim xb as string dim score as string end structure publicclass form1 privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handlesmybase .load dim mt a

11、s my_data = 张大山 mt.xb = 男 mt.xh = 201403001 mt.score = 优 me .visible = false msgbox(姓名： & & chr(10) & 性别： & mt.xb & chr(10) & _ 学号： & mt.xh & chr(10) & 成绩： & mt.score) me .close() end sub end class 上面代码显示了记录类型的定义和显示过程。图 7、显示记录类型上面用的是结构体记录类型，下面的

12、代码用类（方法）实现记录类型。publicclass form1 class my_class dim lx as integer dim ly as integer dim rx as integer dim ry as integer sub setlx(byval val as integer ) lx = val end sub sub setly(byval val as integer ) ly = val end sub sub setrx(byval val as integer ) rx = val end sub sub setry(byval val as integer

13、 ) ry = val end sub function getdata() getdata = (rx - lx) * (ry - ly) end function end class privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handlesmybase .load dim mt as my_class mt = new my_class mt.setlx(10) mt.setly(10) mt.setrx(150) mt.setry(200) label1.text

14、= mt.getdata end sub end class 在窗体中添加标签控件(label1) 用来显示类（方法）计算结果。图 8、显示类（方法）记录类型6.枚举类型publicclass form1 enum my_color m_rod = 190 m_green = 90 m_blue = 165 end enum privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handlesmybase .load label1.text = my_color label2.tex

15、t = m_rod & my_color.m_rod label3.text = m_green & my_color.m_green label4.text = m_blue & my_color.m_blue end sub end class 图 9、显示枚举类型数据7.变量和变量命名变量相当于一个容器，它对应着计算机内存的存储单元，因此它可以保存数据。7.1.变量命名规则：（1）变量只能由英文、汉字、数字及下划线组成。（2） 变量名必须由英文字母或汉字开头，最后一个符号可以是数据类型声明符，如 dim a% 。（3）变量名长度可达255 个字符，有效字符为40

16、个。（4）vb 中的关键字不能作为变量名。（5）不能在变量名中出现标点符号、空格或者嵌入！、#、$、%、 &等字符。（6）在变量有效的范围内不能用同名命名变量。（7）变量名不区分大小写。7.2.变量声明的方式（1）显式声明变量：使用声明语句声明变量。dim mydata as integer private m_p as string public m_color as byte static itlenght as integer （2）隐式声明变量：不声明直接使用变量。a=153 itwidth=35 7.3. 变量的作用域一个变量被声明后，只在声明它的区域内有效。例如在一个过程内

17、声明的变量，只在该过程内有效；一个在模块的通用声明声明的变量，只在该模块内的所有过程中有效；用 public语句声明的变量， 不仅对于同一模块内的所有过程有效，甚至对于整个应用程序的所有过程也都有效。8、常量的声明当程序中需要重复使用一个其值始终不发生改变的量时，可用#const 语句来声明常量。#const pi = 3.1415926 9、运算符在 vb中有 4 种运算符：算术运算符、关系运算符、连接运算符和逻辑运算符。9.1.算术运算符运算名称运算符号指数运算 乘法运算* 除法运算/ 求余数运算mod整除运算 加法运算+ 减法运算- dim a as integer, b as inte

18、ger a = 100 b = a mod 3 msgbox(b)图 10、求余运算9.2 关系运算符：用于比较运算符左、右两边表达式之间的大小关系。其运算结果为布尔型数据（truefalse） 。vb 中的关系运算符有：等于（）、大于（ ） 、小于（ =） 、小于等于（ =）和不等于（ ）publicclass form1 privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handlesmybase .load dim mt as integer, mk as integer

19、label1.text = 关系运算 label2.text = 大数红色小数蓝色 randomize() mt = int(rnd() * 6 + 1) mk = 4 if mt mk then label2.forecolor = color.red end if if mt 10 then label2.visible = false button1.visible = false groupbox1.visible = false label1.enabled = true label1.visible = true label1.text = 欢迎登录本网站 end if if te

20、xtbox1.text textbox2.text or val(textbox1.text) = 0 or val(textbox2.text) = 0 then label1.enabled = false label2.enabled = true label2.visible = true label2.text = 密码错误 end if end sub end class 上面代码描述了简单密码登录过程，程序要求输入数据（两个文本框）。如果两边文本框的数值相等并且大于 10成功登录网站， 如果两边文本框的数值不相等或是其中有一个文本框的值为0将显示 “密码错误” 信息。图 14、登

21、录界面图 15、显示 密码错误 信息图 16、成功登录网站第三章算法和程序控制结构1.算法：是解决某个问题或处理某件事的方法和步骤。publicclass form1 public xueli(0 to 4) as string public addfen as integer public fenst(0 to 4) as integer privatesub form1_load( byval sender as system.object, byval e as system.eventargs) handlesmybase .load me .text = 人才招聘 label1.te

22、xt = 姓名 label2.text = 年龄 label3.text = 身高 label4.text = 学历 button1.text = 提交 groupbox1.text = 个人信息 groupbox2.text = 性别 groupbox3.text = 政治面貌 radiobutton1.text = 男 radiobutton2.text = 女 radiobutton3.text = 党员 radiobutton4.text = 群众 groupbox4.text = 信息反馈 textbox5.multiline = true textbox5.height = 80

23、addfen = 100 xueli(0) = 研究生 xueli(1) = 本科 xueli(2) = 大专 xueli(3) = 中专 xueli(4) = 高中 fenst(0) = 10 fenst(1) = 5 fenst(2) = 3 fenst(3) = 1 fenst(4) = 1 groupbox4.visible = false end sub sub 处理信息 () dim i as integer if radiobutton1.containsfocus = true then addfen = addfen + 1 end if if radiobutton3.containsfocus = true then addfen = addfen + 1 end if if val(textbox2.text) 35 then addfen = addfen - 1 end if if val(textbox2.text) = 170 then addfen = addfen