vb考试的知识点

vb,欣赏语言魔力,认识vb,特点：可视化，面向对象，采用事件驱动方式的结构化高级程序设计语言。退出：alt+q工程文件（.vbp）窗体文件（.frm）标准模块文件（.bas）类模块文件(.cls)资源文件（.res）对象的三要素：属性【name，caption，color，font对象名.属性名=属性值】，事件（响应某个事件，所执行的操作通过一段代码来实现也叫对事件的响应）【getfocus()】，方法setfocus()属性窗口【f4】代码窗口【f7】,重点,Privatesub对象名_事件名参数列表/事件响应代码endsub对象名.方法名【参数列表】逐语句【f8】逐过程【shift+f8】,标签,标签属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hideFont【字体】backcolor【十六进制】forecolor【正文颜色】backstyle【背景样式0-transparent（不显示背景色）；1-opaque不透明】borderstyle【0-none没边框；1-fixedsingle单边框】alighment【0左对齐1右对齐2居中】autosize【自动调大小】tabindex【决定对象的tab顺序】wordwrap【控制caption属性的内容能否自动换行，只有autosize为TRUE时才起作用】标签事件【click，dblclick】文本框没有backstyle，autosize；按钮没有forecolor，backstyle，borderstyle，alignment，autosize。,文本框,属性：Name【名称】height，width，top，left。Enabled【可用】visible【TRUE=form.showFALSE=form.hideFont【字体】text【文本信息】maxlength【文内容最大长度0-任长字符串不超过32k；非0-可容纳的字符数】multiline【在属性中改多行文本】scrollbars【0-无滚动条1-horizontal水平2-vertical垂直3-水平和垂直】locked【运行是文本可编辑】passwordchar【文本显示效果】backcolor【十六进制】forecolor【正文颜色】borderstyle【0-none没边框；1-fixedsingle单边框】alighment【0左对齐1右对齐2居中】tabindex【决定对象的tab顺序】事件：change，keypress，lostfocus方法;setfocus,按钮,属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hideFont【字体】backcolor【十六进制】特有属性：default【TRUE相当于enter键】cancel【TRUE相当于esc】只能有一个为TRUE；value【命令按钮是否被按下】；style【0-standard不显示图形；1-graphical即可显示图形也可显示文字】picture【前提style为1图形文件.bmp.ico】tooltiptext在按钮停留时显示的提示信息事件：click不支持双击,窗体,属性：Name【名称】caption【标题】height，width，top，left。Enabled【可用】visible【可见TRUE=form.showFALSE=form.hideFont【字体】backcolor【十六进制】forecolor【正文颜色】appearance【窗体显示效果0-平面1-立体】borderstyle【0-无标题栏不可改变窗体大小1-固定单边框2-sizable可调整边框（默认的）】maxbutton，minbutton决定窗体是否有最大化最小化按钮moveable【设置窗体位置是否可改变】picture属性【form.picture=loadpicture(“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【不在是活动窗体】,实例,在按钮点击后end【结束】unloadme【卸载当前窗体】form2.show；iftext1.text=“11”thenform3.showunloadmeelseform4.showendif如果if.then.else.在同一行endif不写form2.text1.text=“”调用第二个窗体对当前窗体进行引用时可直接使用控件名对控件进行访问，而引用其他窗体上的控件时应在控件名前加上该控件所在窗体的名称,关键字和标识符,输入时系统会自动将关键字的首字母变为大写。以字母和汉字开头，只能包括字母，汉字，下划线，数字，不能用关键字，不能超过255个字符控件窗体模块不超40字符多条语句用冒号：隔开；断开换行写在语句断开处用下划线_结尾与最后一个字符至少隔一个空格,数据类型,字节【byte1个字节】布尔【Boolean2字节】整【integer2字节%】长整【long4个字节是素数ElsePrintm;不是素数EndIfEndSub,实例,Fori=1to9Forj=1toiprinttab(4*j);i*j每个输出间隔四位NextjPrintNexti,单选和复选,单选按钮optionbutton：caption属性【单选按钮的标题】value【设置其状态TRUE选定FALSE没有】style【按钮显示方式0-标准1-graphical图形（与命令按钮相似）】alignment【0-左对齐1-右对齐】事件：click复选checkbox：caption属性【复选按钮的标题】value【设置其状态0-没选定1-选定2-禁止选择】style【按钮显示方式0-标准1-graphical图形（与命令按钮相似）】alignment【0-左对齐1-右对齐】事件：click,框架和滚动条,框架frame:caption，enabled是否可用，visible是否可见。事件：click，dblclick滚动条scollbar水平【hscollbar】垂直【vscollbar】max最大位置的值min最小位置的值value【滑块在滚动条的位置】,列表框和组合框,列表框【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.removeitem3移除第三项；list1.removeitem.list1.listindex移除选中的项clear清除所有【对象名.clear】eg：list1.clear组合框【combobox】style0-dropdowncombo下拉式组合框【文本框和下拉式列表框】1-simplecombo简单组合框【文本框和列表框】能2-dropdownlist下拉式列表框【文本框和下拉式列表框】不允许在编辑区输入值text【文本内容】事件：click和dropdown,计时器timer,Interval：时间间隔以毫秒为单位介于0-65535ms1s=1000msenabled是否可用事件：timer事件时分秒毫秒eg：dimnumasintegernum=1timer_timer()num=num+1text1.text=int(num/360/1000)text2.text=int(num/60/1000)mod60text3.text=int(num/1000)mod60text4.text=nummod1000,图片框和图像框线,Picturebox属性：picture【显示图片loadpicture（）】autosize【允许图片自动调节大小】调整图片框适应图片Image属性:picture,stretch调整图片适应图片框Lineborderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色方法：对象名.linestep(x1,y1)-step(x2,y2),颜色,B,FShape【形状控件】shape控件显示的几何形状borderstyle:线性样式boederwidth：线性宽度Bordercolor：线段颜色CIRCLE方法：对象名.circle(x,y),半径，颜色坐标系统：scalewidth属性和scaleheight设置坐标系中的宽度和高度,实例：画正方形,Dimw,a,bAsInteger/在声明中PrivateSubCommand1_Click()w=500Form1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub,实例：画正方形,PrivateSubCommand2_Click()a=a+wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub,实例：画正方形,PrivateSubCommand3_Click()a=a-wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub,实例：画正方形,PrivateSubCommand4_Click()b=b+wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub,实例：画正方形,PrivateSubCommand5_Click()b=b-wForm1.ClsForm1.FillStyle=0Form1.FillColor=vbBlueFori=1To20Form1.Line(a+i*w,b+w)-(a+i*w+w,b+w+w),vbRed,BNextiEndSub,实例：画正方形,PrivateSubCommand6_Click()Form1.ClsEndSubPrivateSubCommand7_Click()Form1.Circle(a+w,b+w),rEndSub,实例,PrivateSubCommand1_Click()/显示图片Picture1.Picture=LoadPicture(E:/windows/img/2.jpg)Picture2.Picture=LoadPicture(E:/windows/img/3.jpg)EndSubPrivateSubCommand2_Click()/交换图片Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.PictureEndSubPrivateSubCommand3_Click()/删除图片Picture1.Picture=LoadPicture()Picture2.Picture=LoadPicture()EndSub,实例,PrivateSubForm_Click()Fori=1To100Randomizex=Int(Rnd*3000)y=Int(Rnd*3000)c=Int(Rnd*16)Form1.Line(1400,1400)-(x,y),QBColor(c)Nextix=1000y=1000Forr=100To400Step20 x=x+50y=y+50Circle(x,y),rNextrEndSub,一维数组,Public|dim|static(下标上界)as数据类型】【第一个元素的下表为0即下标下界为0publictest（4）asinteger定义了一个下标上界为4的数组。含五个元素。Optionbase1下标从1开始定义格式：Public|dim|static(下界to上界)as数据类型】eg：dimage(18to40)存储18-40岁人的数组,实例,OptionBase1在声明中/下标强制从一开始PrivateSubCommand2_Click()Dimaa=Array(1,2,10,4,9)Printm=a(1)/下标强制从一开始Fori=2To5Ifa(i)mThenm=a(i)NextiPrintmEndSub,实例,和上个实例连体PrivateSubCommand3_Click()Dima(20)AsIntegera(1)=0/下标强制从一开始a(2)=1Fori=3To20a(i)=a(i-1)+a(i-2)NextiFori=1To20/一维数组用一重循环输出Printa(i)NextiEndSub,实例排序,PrivateSubCommand4_Click()Dima(5)AsInteger,tAsIntegerFori=1To5a(i)=Val(InputBox(输入数据,排序)NextiPrintFori=1To4Forj=i+1To5Ifa(i)a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiForj=1To5Printa(j)Nextj,二维数组,Public|dim|static(第一维下标，第二维下标)as数据类型】eg：publicarr(2,3)asinteger有3（0-2）行4（0-3）列指定上下界：Publica(1to2,1to3)asinteger,实例：二维数组,PrivateSubCommand5_Click()Dima(3,4)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=1To4a(i,j)=Val(InputBox(输入数据,二维数组输入)NextjNextiFori=1To3/二维数组用二重循环输出外循环控制行数Forj=1To4/内循环控制列数PrintTab(8*j);a(i,j)NextjPrint/换行NextiEndSub,数组求最大值,PrivateSubForm_Click()Dima(20)AsLonga(1)=0a(2)=1Fori=3To20a(i)=a(i-2)+a(i-1)NextFori=1To20Printa(i)NextEndSub,数组的引用,数组的引用通常是指对数组元素的引用，其方法是在数组名后面的括号中指定被引用元素的下标，eg：a(2),b(1,3)A(1)=“a”a(2)=“b”b(1,3)=a(1)+a(2)定义数组其实是为数组安排一块内存存储区，并不是数组已在该内存中建立。对于一维数组的输入输出采用一重循环，而对于二维数组的输入和输出采用双重循环。用inputbox为数组赋值eg：dima(5)fori=0to5a(i)=val(inputbox(“请输入一个数”“数组输入”)nexti求奇数：a(i)=2*i-1偶数a(i)=2*i,动态数组,没有下标的数组为动态数组eg:dimsasintegerDima()AsInteger/定义一个动态数组redi