VB重点Word文件下载.docx

1、pic/img.picture=loadpicture” ”“”加入图片路径，图像框添加图片a=x mod 10个位数a=x 10 mod 10十位数a=x100百位数Form.show显示窗体Form.hide隐藏窗体Timer.enabled=true/false启动/关闭计时器Img.left/top=img.left/top-100向左移动/向上移动Picture.backcolor=RGB（r,g,b）合成颜色，并赋给图片框的背景色a=hsb.value滚动条滑块位置所代表的值Inputbox（“请输入ab的数”,“输入框”,0）输入框，输入数据MsgBox （ & a）Msgbox

2、 “弹出信息”,按钮,”文件名”消息框（P62）第三章If 表达式 then 语句1（else语句2）End ifIf语句一般形式Chk.value=1/0复选框被选中/未选中Opt.value=true选中单选按钮Txt.fontname=”宋体”Txt中字体名称为宋体Txt.fontitalic/=true/falseTxt中文字为斜体Txt.fontsize=aTxt中文字大小为aLbl/Txt.forecolor=vbred/vbblackLbl/Txt中文本颜色为红色/黑色Txt.fontbold=true/falseTxt中字体加粗Txt.fontstrikethru=true/f

3、alseTxt中删除线Txt.fontunderline=true/falseTxt中下划线Max（min）=aIf b（ Max（min）=c求最大值或最小值If pic.left+pic.width90判断表达式值为3时匹配判断表达式值为1100之间判断表达式的值a或AZ之间判断表达式的值为1或3或5判断表达式的值大于90第四章For 循环变量（i）=初始值 to 终止值 （step 步长）循环体语句Next 循环变量例：1+2+3+100For i=1 to 100 Sum=sum+iNext iN=val（txt.text）S=1For i=1 to ns=s*isum=sum+sne

4、xt i计算1!+2!+3!+n!For i=1 to 9A=int（rnd*100）+1Lbl.caption=lbl.caption & “,” &If amax then Max=a随机产生9个数，取最大值Frm.drawwindth=5For i=1 to 200X=rnd*frm.widthY=rnd*frm.heightA=int（rnd*16）Pset（x,y）,QBcolor（a）画两百个位置随机的彩色点Frm.drawwidth=3For i=1 to 15Y=y+200X=x+200Line（200,y）-（2500,y）,QBcolor（a）画15条彩色直线（粗细为3）F

5、or i=1 to 10X=x+4Circle（x,600）,200,QBcolor（a）画10个彩色圆（粗细为3，半径为200）Dim score as intergerTxt.text=”Sum=0N=0Score=val（inputbox（“请输入成绩,-1时结束输入”,”成绩输入”,-1）Do while score -1N=n+1Sum=sum+scoreTxt.text=txt.text & score & chr（13） & chr（10）loop将所有输入的成绩显示在文本框，直到-1时停止。Do while loop先判断，在进行Do loop While先进行，后判断（可用e

6、xit do 随时跳出循环）（可用next sub 结束过程）Do Score=val（inputbox（“请输入0100之间的成绩”,”成绩输入”）Loop while （score100 or score0）Do loop while语句Dim i as integer ,j as integerFrm.clsFor j=1 to 10 Frm.print “*”;Next jFrm.print方阵有“；”不换行换行For j=1 to i三角形阵Dim i as integer, x as integerDim y as integerDim col as integerPicshow.

7、clsPic.scale（1,1）-（100,100）Pic.drawwidth=2X=int（rnd*100）+1Y=int（rnd*100）+1Col=int（rnd*16）Pic.pset （x,y） , QBcolor（col）自定义图片框坐标系绘图线的宽度为2画100个点随机生成一组坐标随机生成颜色在图片框的（x,y）处用指定颜色画点Dim i as integerDim x1 as integer , y1 as integerDim x2 as integer , y2 as integerDim col integerPic.clsPic.drawwidth=1x 1=pic.

8、scalewidth/2y 1=pic.scaleheight/2for i=1 to 100x2=int（rnd*100）+1y2=int（rnd*100）+1col=int（rnd*16）pic.line（x1,y1）-（x2,y2）,QBcolor（col）计算线段的起始坐标（图片框中心点）随机生成线段终止点坐标以指定位置和颜色画线Dim x1 as integer, x2 as integerDim x2 as integer, y2 as integerDim col As Integerpic.Clspic.Scale （1, 1）-（100, 100）pic71102.DrawW

9、idth = 1x1 = 1y1 = 1x2 = pic.ScaleWidthy2 = pic71102.ScaleHeightDo While x1 x2 And y1 0col = Int（Rnd * 16） pic.FillColor = QBColor（col） pic.Circle （0, 0）, r, QBColor （col） r = r - 5图片框填充样式实心图片框填充颜色以指定位置、半径和颜色画圆If Button= then 1-按下鼠标左键2-按下鼠标右键4-按下鼠标中间键If shift= then1- 无按键2- 按下shift键3- 按下ctrl键4- 按下shi

10、ft+ctrl键5- 按下alt键6- 按下alt+shift键7- 按下alt+ctrl键8- 按下shift+ctrl+alt键Format（a,”）把a按照”的格式输出第五章a=1for i=1 to na=a*i计算n的阶乘（若for开始不给a赋值，则a=0）Private function fac（x as integer）Dim s as doubleDim I as integerFor i=1 to xS=s*iFac=sEnd function定义fac函数（工具添加过程）若使用函数则是fac（n）其中n为函数过程编辑的xPrivate function fun（a as i

11、nteger,b as integer ,c as integer）c=（a+b）*2fun=a*bend functionarea=fun（a,b,leng）求周长和面积周长为c，输出时leng对应c的位置即可面积为函数的结果Fact n , u；Call fact （n,u）调用fact函数，将结果赋给uDim或private定义变量窗体级变量只在定义的窗体或模块中有效，其他窗体或模块无效Public a as integer程序级变量在整个程序中都有效标准模块添加：工程添加模块Static a as integer过程级静态变量整个程序运行期间他始终占据内存空间，一直保留当前值Priva

12、te static sub定义静态过程过程内的所有变量都保留当前值next sub退出过程If n=0 or 1 thenFct=1ElseFct=n*fct（n-1）n! 1， （n=0或1）n*（n-1）， （n1）递归调用（连续多次调用fct函数）For i=1 to 8Print tab（15-i）; Print “&”;&Print tab（15+i-8）;For j=I to i+8 Print “#”;Print # #第六章Dim a（1 to 10）as integera（i）=int（rnd*90）+10定义数组a，10个integer元素（下界 to 上界）随即产生数，放

13、在下标为i的元素中Option base 1Dim a（20） as integer=dim a（1 to 20）as integerOption base定义元素下标从几开始，必须写在定义元素之前此时可以定义元素可忽略下界Public password（1 to 10）as stringSub main （）Password（1）=”123”Password（2）=”vb6” Frm.showEnd sub定义过程级数组，存放密码集初始化密码集进入窗体Lst2.clearFor i=0 to 19X=lst1.list（i）If x mod 2 =0 then Lst2.additem x清空列表框将列表框1中下标为i的项目赋给x将x添加到列表框2List.listIndex a（k） then k=j end ifnext jif k选中文本的长度0（已选中）i=instr（txt.text,search）i中存放第一次找草字符串位置Txt.selstart=i-1Txt.sellength=len（search）设置选定文本的起始位置（最开始位置为0，所以-1）选定文本长度=search的长度If button=2 thenPopupmenu mnupop右键弹出mnupop菜单Form_click重复窗体的单机事件