vb考试的知识点PPT课件

1、.,1,vb,欣赏语言魔力,.,2,认识vb,特点：可视化，面向对象，采用事件驱动方式的结构化高级程序设计语言。 退出：alt+q 工程文件（.vbp）窗体文件（.frm）标准模块文件（.bas）类模块文件(.cls)资源文件（.res） 对象的三要素：属性【name，caption，color，font对象名.属性名=属性值】，事件（响应某个事件，所执行的操作通过一段代码来实现也叫对事件的响应）【getfocus()】，方法setfocus() 属性窗口【f4】代码窗口【f7】,.,3,重点,Private sub 对象名_事件名参数列表 /事件响应代码 end sub 对象名.方法名【参数

2、列表】 逐语句【f8】逐过程【shift+f8】,.,4,标签,标签属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide Font【字体】backcolor【十六进制】forecolor【正文颜色】backstyle【背景样式0-transparent（不显示背景色）；1-opaque不透明】borderstyle【0-none没边框；1-fixed single单边框】alighment【0左对齐1右对齐2居中】autosize【自动调大小】tabindex

3、【决定对象的tab顺序】wordwrap【控制caption属性的内容能否自动换行，只有autosize为TRUE时才起作用】标签事件【click，dblclick】 文本框没有backstyle，autosize；按钮没有forecolor，backstyle，borderstyle，alignment，autosize。,.,5,文本框,属性： Name【名称】height，width，top，left。Enabled【可用】visible【TRUE=form.showFALSE=form.hide Font【字体】text【文本信息】maxlength【文内容最大长度0-任长字符串不超过

4、32k；非0-可容纳的字符数】multiline【在属性中改多行文本】scrollbars【0-无滚动条1-horizontal水平2-vertical垂直3-水平和垂直】locked【运行是文本可编辑】passwordchar【文本显示效果】backcolor【十六进制】forecolor【正文颜色】borderstyle【0-none没边框；1-fixed single单边框】alighment【0左对齐1右对齐2居中】 tabindex【决定对象的tab顺序】 事件：change，keypress，lostfocus 方法;setfocus,.,6,按钮,属性： Name【名称】capt

5、ion【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide Font【字体】backcolor【十六进制】特有属性：default【TRUE相当于enter键】cancel【TRUE相当于esc】只能有一个为TRUE；value【命令按钮是否被按下】；style【0-standard不显示图形；1-graphical即可显示图形也可显示文字】picture【前提style为1图形文件.bmp.ico】tooltiptext在按钮停留时显示的提示信息 事件：click不支持双击,.,7,窗体,属性

6、： Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hide Font【字体】backcolor【十六进制】forecolor【正文颜色】appearance【窗体显示效果0-平面1-立体】borderstyle【0-无标题栏不可改变窗体大小1-固定单边框2-sizable可调整边框（默认的）】maxbutton，minbutton决定窗体是否有最大化最小化按钮moveable【设置窗体位置是否可改变】picture属性【form.picture=loadpicture

7、(“c:picture1.bmp”)括号里是路径】函数loadpicture()还可用于图片框【picturebox】图像框【image】visible设置窗体是否可见 清空图片用loadpicture( )cls是清空文本框等控件的图形【用shape，circle,;line画的】和文本 方法：print，cls，move（left，top，width，height） 事件：click，dblclick，load，unload，activate【激活】deactivate【不在是活动窗体】,.,8,实例,在按钮点击后end【结束】unload me【卸载当前窗体】form2.show；if

8、text1.text=“11”thenform3.show unload me else form4.show endif如果if.then.else.在同一行endif不写form2.text1.text=“”调用第二个窗体 对当前窗体进行引用时可直接使用控件名对控件进行访问，而引用其他窗体上的控件时应在控件名前加上该控件所在窗体的名称,.,9,关键字和标识符,输入时系统会自动将关键字的首字母变为大写。 以字母和汉字开头，只能包括字母，汉字，下划线，数字，不能用关键字，不能超过255个字符控件窗体模块不超40字符多条语句用冒号：隔开；断开换行写在语句断开处用下划线_结尾与最后一个字符至少隔一

9、个空格,.,10,数据类型,字节【byte1个字节】布尔【Boolean2字节】整【integer2字节%】长整【long4个字节 是素数 Else Print m; 不是素数 End If End Sub,.,22,实例,For i=1 to 9 For j=1 to i print tab(4*j);i*j 每个输出间隔四位 Next j Print Next i,.,23,单选和复选,单选按钮optionbutton：caption属性【单选按钮的标题】value【设置其状态TRUE选定FALSE没有】style【按钮显示方式0-标准1-graphical图形（与命令按钮相似）】alig

10、nment【0-左对齐1-右对齐】事件：click 复选checkbox：caption属性【复选按钮的标题】value【设置其状态0-没选定1-选定2-禁止选择】style【按钮显示方式0-标准1-graphical图形（与命令按钮相似）】alignment【0-左对齐1-右对齐】事件：click,.,24,框架和滚动条,框架frame:caption，enabled是否可用，visible是否可见。事件：click，dblclick 滚动条scollbar水平【hscollbar】垂直【vscollbar】max最大位置的值min最小位置的值value【滑块在滚动条的位置】,.,25,列表

11、框和组合框,列表框【listbox】：list【选项】，listcount【选项数量】，listindex【被选中项在list数组中的下标】selected【选定状态】sorted【是否升序排列】text【选中选项的文本内容】multiselect【0-禁止多项选择1-简单多项选择】style【0-标准1-复选框形式】 事件：click，dblclick，scroll 方法:additem对象名.additem项字符串,项的索引号eg：list1.additem”留洋”【末尾添加】 list1.additem”留洋”2【第三项插入】removeitemeg:list1.removeitem 3

12、移除第三项；list1.removeitem.list1.listindex移除选中的项clear清除所有【对象名.clear】eg：list1.clear 组合框【combobox】style0-dropdown combo下拉式组合框【文本框和下拉式列表框】1-simple combo简单组合框【文本框和列表框】能2-dropdown list下拉式列表框【文本框和下拉式列表框】不允许在编辑区输入值text【文本内容】 事件：click和dropdown,.,26,计时器timer,Interval：时间间隔以毫秒为单位介于0-65535ms 1s=1000msenabled是否可用 事件

13、：timer事件 时分秒毫秒eg：dim num as integer num=1 timer_timer() num=num+1 text1.text=int(num/360/1000) text2.text=int(num/60/1000)mod 60 text3.text=int(num/1000)mod 60 text4.text=num mod 1000,.,27,图片框和图像框线,Picturebox属性：picture【显示图片loadpicture（）】autosize【允许图片自动调节大小】调整图片框适应图片 Image属性:picture,stretch调整图片适应图片框

14、Line borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色 方法：对象名.linestep(x1,y1)- step(x2,y2),颜色,B,F Shape【形状控件】shape控件显示的几何形状borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色 CIRCLE方法： 对象名.circle(x,y),半径，颜色 坐标系统：scalewidth属性和scaleheight设置坐标系中的宽度和高度,.,28,实例：画正方形,Dim w, a, b As Integer/在声明中 Private Sub Co

15、mmand1_Click() w = 500 Form1.Cls Form1.FillStyle = 0 Form1.FillColor = vbBlue For i = 1 To 20 Form1.Line (a + i * w, b + w)-(a + i * w + w, b + w + w), vbRed, B Next i End Sub,.,29,实例：画正方形,Private Sub Command2_Click() a = a + w Form1.Cls Form1.FillStyle = 0 Form1.FillColor = vbBlue For i = 1 To 20 F

16、orm1.Line (a + i * w, b + w)-(a + i * w + w, b + w + w), vbRed, B Next i End Sub,.,30,实例：画正方形,Private Sub Command3_Click() a = a - w Form1.Cls Form1.FillStyle = 0 Form1.FillColor = vbBlue For i = 1 To 20 Form1.Line (a + i * w, b + w)-(a + i * w + w, b + w + w), vbRed, B Next i End Sub,.,31,实例：画正方形,P

17、rivate Sub Command4_Click() b = b + w Form1.Cls Form1.FillStyle = 0 Form1.FillColor = vbBlue For i = 1 To 20 Form1.Line (a + i * w, b + w)-(a + i * w + w, b + w + w), vbRed, B Next i End Sub,.,32,实例：画正方形,Private Sub Command5_Click() b = b - w Form1.Cls Form1.FillStyle = 0 Form1.FillColor = vbBlue Fo

18、r i = 1 To 20 Form1.Line (a + i * w, b + w)-(a + i * w + w, b + w + w), vbRed, B Next i End Sub,.,33,实例：画正方形,Private Sub Command6_Click() Form1.Cls End Sub Private Sub Command7_Click() Form1.Circle (a + w, b + w), r End Sub,.,34,实例,Private Sub Command1_Click() /显示图片 Picture1.Picture = LoadPicture(E:

19、/windows/img/2.jpg) Picture2.Picture = LoadPicture(E:/windows/img/3.jpg) End Sub Private Sub Command2_Click()/交换图片 Picture3.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Picture3.Picture End Sub Private Sub Command3_Click()/删除图片 Picture1.Picture = LoadPicture() Pi

20、cture2.Picture = LoadPicture() End Sub,.,35,实例,Private Sub Form_Click() For i = 1 To 100 Randomize x = Int(Rnd * 3000) y = Int(Rnd * 3000) c = Int(Rnd * 16) Form1.Line (1400, 1400)-(x, y), QBColor(c) Next i x = 1000 y = 1000 For r = 100 To 400 Step 20 x = x + 50 y = y + 50 Circle (x, y), r Next r En

21、d Sub,.,36,一维数组,Public|dim|static (下标上界)as 数据类型】【第一个元素的下表为0即下标下界为0public test（4） as integer定义了一个下标上界为4的数组。含五个元素。Option base 1下标从1开始 定义格式：Public|dim|static (下界 to上界)as 数据类型】eg：dim age(18 to 40)存储18-40岁人的数组,.,37,实例,Option Base 1 在声明中/下标强制从一开始 Private Sub Command2_Click() Dim a a = Array(1, 2, 10, 4, 9

22、) Print m = a(1)/下标强制从一开始 For i = 2 To 5 If a(i) m Then m = a(i) Next i Print m End Sub,.,38,实例,和上个实例连体 Private Sub Command3_Click() Dim a(20) As Integer a(1) = 0 /下标强制从一开始 a(2) = 1 For i = 3 To 20 a(i) = a(i - 1) + a(i - 2) Next i For i = 1 To 20/一维数组用一重循环输出 Print a(i) Next i End Sub,.,39,实例排序,Priv

23、ate Sub Command4_Click() Dim a(5) As Integer, t As Integer For i = 1 To 5 a(i) = Val(InputBox(输入数据, 排序) Next i Print For i = 1 To 4 For j = i + 1 To 5 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i For j = 1 To 5 Print a(j) Next j,.,40,二维数组,Public|dim|static (第一维下标，第二维下标)as 数据类

24、型】eg：public arr(2,3) as integer 有3（0-2）行4（0-3）列 指定上下界：Public a(1 to 2,1 to 3) as integer,.,41,实例：二维数组,Private Sub Command5_Click() Dim a(3, 4) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To 4 a(i, j) = Val(InputBox(输入数据, 二维数组输入) Next j Next i For i = 1 To 3 /二维数组用二重循环输出外循环控制行数

25、 For j = 1 To 4/内循环控制列数 Print Tab(8 * j); a(i, j) Next j Print /换行 Next i End Sub,.,42,数组求最大值,Private Sub Form_Click() Dim a(20) As Long a(1) = 0 a(2) = 1 For i = 3 To 20 a(i) = a(i - 2) + a(i - 1) Next For i = 1 To 20 Print a(i) Next End Sub,.,43,数组的引用,数组的引用通常是指对数组元素的引用，其方法是在数组名后面的括号中指定被引用元素的下标，eg：

26、a(2),b(1,3) A(1)=“a” a(2)=“b” b(1,3)=a(1)+a(2) 定义数组其实是为数组安排一块内存存储区，并不是数组已在该内存中建立。 对于一维数组的输入输出采用一重循环，而对于二维数组的输入和输出采用双重循环。 用inputbox为数组赋值eg： dim a(5) for i=0 to 5 a(i)=val(inputbox(“请输入一个数”“数组输入”) next i 求奇数：a(i)=2*i-1 偶数a(i)=2*i,.,44,动态数组,没有下标的数组为动态数组eg:dim s as integer Dim a() As Integer/定义一个动态数组 redim a(5)/给数组分配空间 s=inputbox(“input a number ”)/将输入的数值