vb数据库编程源代码.pdf

第3章前体Priva te Sub Form_Click()For i=1 To 10For j=1 To iPrint*Next j PrintNext iEnd Sub【例3-1】Priva te Sub Form_Click()cl$=Chr$(13)+Chr$(10)msgl$=入您的名字：msg2$=入后按回msg3$=或“确定按msg$=msgl$+cl$+msg2$+cl$+msg3$na me$=InputBox(msg$,HInputBox 函数示例，“三)Print na me$End Sub【例3-2Priva te Sub Form_Click()Msgl$=,Are you Continue to?msg2$=,Opera tion Dia log Box”r=MsgBox(msg 1$,34,msg2$)Print rEnd Sub【例3-3】写程序，用MsgBox函数判断是否 行Priva te Sub Form_Click()msg$=确此数据是否正确TitleS=数据 框x=MsgBox(msg$,19,TitleS)If x=6 ThenPrint x*xElself x=7 ThenPrint重新入End IfEnd Sub【例3-5Priva te Sub Form_Click()Print:PrintFontNa me=隶FontS ize16Print姓名;Ta b(8);年Ta b(16);1Print Ta b(24);位;Ta b(32);籍PrintPrint吴大明；Ta b(8);25;Ta b(16);Ta b(24);AW；Ta b(32);北京Print 吴大明;Ta b(8);25;Ta b(16);Ta b(24);AW；Ta b(32);北京End Sub【例3-6Priva te Sub Form_Click()X=InputBox(入成学生成 入，00)Print xEnd Sub【例3-7Priva te Sub Form_Click()Dim x As Single,y As Singlex=InputBoxCl 入 x 的”)If x0 Then y=l Elself x=0 Then y=0 Else y=-lPrint x=；x,y=；yEnd Sub【例3-8Priva te Sub Form_Click()Dim msg,Userinputmsg=入一个字母或09之 的数字Userinput=InputBox(msg)1 入一个字母或数字If Not IsNumeric(Userlnput)Then，判断是否是数字If Len(Userlnput)=1 Then 不是数字，判断 入的字符串 度是否1 Select Ca se Asc(Userlnput)判断 入字母的 ASCIICa se 60 To 90 在60-90之 大写字母msg=你 入的是一个大写字母，”msg=msg&Chr(Asc(UserInput)&Ca se 97 To 122 小写字母msg=你 入的是一个小写字母”，msg=msg&Chr(Asc(UserInput)&Ca se Elsemsg=你没有入字母或数字JEnd SelectEnd IfElseSelect Ca se Va l(Userlnput)，将入的数型字符 数Ca se 1,3,5,7,9 如果是奇数msg=Userinput&是一个奇数Ca se 0,2,4,6,8 如果是偶数msg=Userinput&是一个偶数Ca se Else 出界msg=你入的数字不在09范内End Select2End IfMsgBox msgEnd Sub【例3-8Priva te Sub Form_Click()Dim msg,Userinputmsg=入一个字母或09之的数字Userinput=InputBox(msg)入一个字母或数字If Not IsNumeric(Userlnput)Then，判断是否是数字If Len(Userlnput)=1 Then 不是数字，判断 入的字符串 度是否1Select Ca se Asc(Userlnput)判断 入字母的 ASCHCa se 60 To 90 在60-90之 大写字母msg=你 入的是一个大写字母msg=msg&Chr(Asc(UserInput)&Ca se 97 To 122 小写字母msg=你 入的是一个小写字母，msg=msg&Chr(Asc(UserInput)&Ca se Elsemsg=你没有 入字母或数字End SelectEnd IfElseSelect Ca se Va l(Userlnput)将 入的数 型字符 数Ca se 1,3,5,7,9 如果是奇数msg=Userinput&是一个奇数Ca se 0,2,4,6,8，如果是偶数msg=Userlnput&”是一个偶数 Ca se Else 出界msg=你入的数字不在09范内End SelectEnd IfMsgBox msgEnd Sub【例3-10Sub Form_Click()Dim N As Integern=InputBox(Enter N:)，入 N 的k=1For i=1 ToN 循 N次，算出 N!k=k*INext iPrint N;!=;k 数据出End Sub【例3-123Dim S,NS=O:N=ODo While S=100N=N+1S=S+NLoopPrint S,N【例3-13Priva te Sub Form_Click()Dim cha r As StringCount=0cha r=InputBox(入一个字符)While cha r?Count=Count+1cha r=InputBox$(入一个字符)WendPrint 入的字符数是:；CountEnd Sub【例3-14Priva te Sub Form_Click()PrintFor i=1 To 9Print Ta b(i*6);i;Next iPrintForj=1 To 9Print j;For k=1 TojPrint Ta b(k*6);j*k;Next kPrintNext jEnd Sub第4章 前体(1)假定用来 入数学成 的文本框名称Textl,文本框的LostFocus事件 程如下：Priva te Sub Text 1 _LostFocus()If Va l(Text 1.Text)100 ThenTextl.Text=,H,Textl.SetFocusEnd IfEnd Sub(2)其他文本框的LostFocus事件似(3)假定按 名称Comma ndl,按 的Click事件 程如下：4Priva te Sub Comma nd l_Click()If Check 1.Va lue=1 Then Sum=Sum+Va l(Textl.Text)If Check2.Va lue=1 Then Sum=Sum+Va l(Text2.Text)If Check3.Va lue=1 Then Sum=Sum+Va l(Text3Text)If Check4.Va lue=1 Then Sum=Sum+Va l(Text4.Text)If Check5.Va lue=1 Then Sum=Sum+Va l(Text5.Text)Text6.Text=SumEnd Sub【例4-1】Priva te Sub Comma ndl_Click()，在其 事件中 程Fori=lTo6 外循,控制出几行For j=1 To i 内循，控制出几列Print*Next jPrint 6 行Next iEnd Sub【例4-2Priva te Sub Textl_Cha nge()Text2.Text=LCa se(Textl.Text)Text3.Text=UCa se(Textl.Text)End Sub【例4-3Priva te Sub Check l_Click()Text 1.FontUnderline=Not Textl.FontUnderlineEnd SubPriva te Sub Check2_Click()Textl.Fontlta lic=Not Textl.Fontlta licEnd SubPriva te Sub Option l_Click()Text 1.Font=黑体End SubPriva te Sub Option2_Click()Textl.Font=宋体End Sub【例4-4Priva te Sub Comma nd 1 _Click()If Option 1 ThenTextl.FontNa me=宋体ElseTextl.FontNa me=黑体5End IfIf Option3 ThenTextl.FontSize=8ElseTextl.FontSize=10End IfEnd SubPriva te Sub Comma nd2_Click()EndEnd Sub【例4-5Priva te Sub Form_Loa d()在窗体的Loa d事件中入列表框的各个目 lstBooks.AddItem 算机用基IstBooks.Addltem 操作系 lstBooksAddItem 数据构 IstBooks.Addltem 网技基End SubPriva te Sub cmdAdd_Click()添加命令按将文本框中入的内容添加到列表框中IstB ooks.Additem txtitem txtitem=End SubPriva te Sub cmdDelete_Click()除列表框中中的目IstBooks.Removeltem IstBooks.ListlndexEnd SubPriva te Sub cmdModify_Click()所 目示在文本框中，等待修改txtitem.Text=IstBooks.Textcmd Add.Ena bled=Fa lsecmdDelete.Ena bled=Fa lsecmdModify.Ena bled=Fa lse cmdModify_OK.Ena bled=True End SubPriva te Sub cmdModify_OK_Click()所 目示在文本框中修改完成后，按下修改确定按，更新列表框内容IstBooks.List(lstBooks.Listlndex)=txtitem cmdModify_OK.Ena bled=True cmd Add.Ena bled=True6cmdDelete.Ena bled=TruecmdModify.Ena bled=Truetxtitem=End Sub【例4-6Priva te Sub Form_Click()Pictures.Picture=Picture 1.PicturePicture 1.Picture=Picture2.PicturePicture2.Picture=Picture3.PicturePciture3.Picture=Loa dPicture()把第 3 个 片框 置 空End sub【例4-7Priva te Sub HScroll l_Cha nge()Text 1.Text=HScroll 1.Va lueEnd Sub【例4-8Priva te Timer l_Timer()La bel.Ca ption=Time$End SubPriva te Sub Comma nd 1 _Click()Debug.Print 姓名Text 1.TextDebug.Print 出生年月Text2.TextDebug.Print 籍Text3.TextIf Option 1.Va lue Then Debug.Print tt:;男If Option2.Va lue Then Debug.Print:;女Debug.Print 民族:；Combo 1.TextIf Check 1.Va lue=1 Then Debug.Print 健康Else Debug.Print 不健康Debug.Print 称Combo3.TextDebug.Print I Text4.TextDebug.Print M-熟 程度；HScrolllAlueDebug.Print Text5.TextEnd Sub第5章前体Priva te Sub Comma nd6_Click()Const n=10 定常量 n 的 10Ma x=0:K=0 最高分及所在位置初For i=1 To nb(i)=InputBox(入第展i&”个同学的成“，求最高分)入成If b(i)Ma x ThenMa x=b(i)K=I 将第i小成 与最高分Ma x相比，如果比最高分高，保存起来End If7Next iPrint”最高分是第展K&”个同学，其成是:&Ma xEnd Sub【例5-1】Option Ba se 1Priva te Sub Comma nd 1 _Click()Dim a(3)As Integer a(l)=l:a(2)=3:a(3)=5 Print a(l)Print a(2)Print a(3)End Sub【例5-2For i=l To 10b(i)=InputBox(入第&i&个数)Next i【例5-3For i=l To 2Forj=l To 2 b(i,j)=i+jNext jNext i【例5-4Dim S(3,2)As Integer程序如下：For i=0 To 3Print Ta b(5);4出位置定位Forj=0To2S(i,j)=i*2+j 各元素Print S(i,j);Next jPrint，行Next i【例5-5Priva te Sub Form_Click()Dim s(5)As IntegerConst n=5For i=1 To n5-4使用二数打印出的形定数Ss(i)=Va l(InputBox(n入第<rim$(Str$(i)&个数,数据排序)入n个数，成数后保存在数中Next iFor i=1 To n-1Ma x=IFor j=i+1 To n行n-1趟比第i遍比，初始假定第i个元素最小。在数in小元素中最小元素8If s(j)s(Ma x)Then Ma x=jNext j t=s(i)s(i)=s(Ma x)s(Ma x)=t in个元素中出的最小元素与第i个元素交Next iFor i=1 To 5Print s(i)Next iEnd Sub【例5-6 Dim b()As Integer Priva te Sub Form_Click()ReDim b(2)For i=0 To 2 b(i)=iNext iReDim Preserve b(3)b=7For i=0 To 3Print b(i);Next iEnd Sub【例5-7 Dim a(8,8)As Integer 定一个二 数 Priva te Sub Form_Click()下面的二循句数For i=1 To 8Forj=1 ToiIfi=1 Orj=1 Thena(i,j)=l 数 中每一行第一个，最后一个数均1Elsea(i,j)=a(i-l,j-l)+a(i-l,j)数中其余数据等于它上一行的相两列之和End If Next j Next i 下面的二循句将数中的打印出来 For i=1 To 8Print Ta b(20-2*i);淀位打印位置Forj=1 ToiIfa(i,j)10Then 将数 中的 成度3的字符串，可使打印数据整 s=+Str(a(i,j)+Elself a(i,j)a rr(row,col)Thenrow=i:col=jEnd IfNext jNext i下列程序段 出矩 及最大 及所在位置Print”您入的矩是：PrintFor i=1 To n10Print Ta b(8);打印位置定位For j=1 To mPrint a rr(i,j);Next jPrint 行Next iPrintPrint 矩 中最大:;a rr(row,col);其位置在第&row&行&col&列End Sub第6章前体(2)写窗体装事件程：Priva te Sub Form_Loa d()For I=0 To 100List 1.Additem iNext iEnd Sub(3)使用“添加程”框建出判断成等的程Public Sub DengJi(a As Integer)Select Ca se aCa se 0 To 59La bell.Ca ption=不及格Ca se 60 To 69La beH.Ca ption=及格Ca se 70 To 79La bel LCa ption=中等Ca se 80 To 89La bel 1.Ca ption=良好Ca se 90 To 100La bel 1.Ca ption=秀End SelectEnd Sub4)写列表框Click事件 程：Priva te Sub Listl_Click()Dim n As IntegerN=Va l(Listl.Text)Ca ll DengJi(n)用判断成等的程End Sub(5)写命令按 Click事件程：Priva te Sub Comma nd 1 _Click()EndEnd Sub11【例6-1Priva te Sub oushu(x As Integer,msg As Boolea n)If x Mod 2=0 ThenMsg=TrueElseMsg=Fa lseEnd IfEnd Sub例 6-2Public Function Rect(a As Double,b As Double)As DoubleRect=a*bEnd Function【例6-3 在窗体代窗口中写pingjun程：Sub pingjun(a As Integer,b As Integer,c As Integer)C=(a+b)/2End Sub写命令按1的事件程：Priva te Sub Comma nd l_Click()Dim x As Integer,y As Integer,z As IntegerX=Va l(Textl.Text)Y=Va l(Text2.Text)Ca ll pingjun(x,y,z)或 pingjun x,y,zText3.Text=Str(z)End Sub【例6-4(2)把判断奇偶性的函数程jo的程序代 入到窗体代窗口中Function jo(x As Integer)As StringIf x Mod 2=0 ThenJo=偶数”ElseJo=奇数End IfEnd Function写命令按1的事件程：Priva te Sub Comma nd 1 _Click()Dim n As Integer,w As Stringn=Va l(Text 1.Text)w=jo(n)La bell.Ca ption=Textl.Text&是&w&!End Sub12【例6-5(2)写参数按地址 次的程Swa pl:Sub Swa pl(x As String,y As String)Dim t As StringT=x:x=y:y=tEnd Sub(3)写命令按事件程如下：Priva te Sub Comma nd 1 _Click()Dim a As String,b As String A=Text 1.TextB=Text2.TextForml.Ca ption=按地址”Swa pl 35bTextl.Text=aText2.Text=bEnd Sub【例6-7(2)求任意一数中各元素之的函数如下：Function tt(a()As Integer)As Long 函数的形参是数Dim t#,i%T=1For I=LBound(a)To UBound(a)，求数 的下界和上界 T=t*a(i)Next iTt=tEnd Function(3)求任意一数中各元素之和的函数如下：Function ss(b()As Integer)As Long 函数的形参是数Dim t#,i%S=0For I=LBound(b)To UBound(b)求数 的下界和上界 S=s+b(i)Next iSs=sEnd Function(4)写命令按事件程，如下：Priva te Sub Comma nd 1 _Click()Dim a(l To 5)As IntegerDim b(2 To 10)As IntegerDim i As Integer,1 1 As Long,si As LongFor I=1 To 5 数a(i)=i+3Next i13tl=tt(a()用函数Print第一个数 各元素之tl=;tlFor I=2 To 10b(i)=i*2Next isi=ss(b()Print第二个数 各元素之和sl=;siEnd Sub【例6-8(1)先定一个具有可 参数的函数 程sum,用来 行3个数的加法运算Priva te Function sum(x As Integer,Optiona l y As Integer,_Optiona l z As Integer=3)As IntegerSum=x+y+zEnd Function(2)写窗体的事件程，如下：Priva te Sub Form_Click()Print sum(l)=1+0+3=;sum(l)，省略两个参数：Printsum(l,2)=1+2+3=;sum(l,2)，省略第 3 个参数Printsum(l8)=1+0+8=;sum(l8)，省略第 2 个参数Printsum(1,4,8)=1+4+8=;sum(l,4,8)，不省略参数End Sub【例6-9(1)先定一个具有可 参数的函数 程MySum,如下：Function MySum(Pa ra mArra y VA()As Integer，声明可 参数Dim i As IntegerDim Sum As IntegerSum=0For i=LBound(VA)To UBound(VA)彳导到数 的大小，并 行循Sum=Sum+VA(i)NextMySum=SumEnd Function(2)写窗体的事件程，如下：Priva te Sub Form_Click()Dim s As IntegerPrintPrint Ta b(2);使用 3 个参:S=MySum(2,4,61可以使用任意多个 参来用Print MySum(2,4,6)=;sPrintPrintTa b(2);使用 5 个参：S=MySum(l,2,3,4,5)Print MySum(l,2,3,4,5)=；sEnd Sub14【例6-10(1)定具有窗体参数的程，如下：Priva te Sub Bia oTi(fm As Form)*fm 窗体 象参数Text 1.Text=窗体的 是“&fm.Ca ptionEnd Sub用 程Bia oTi会改 窗体 象fm中的文本框Textl的文本(2)定具有控件象参数的程，如下：Priva te Sub Kua nDu(tb As TextBox)tb 文本框型的控件 象参数tb.Text=文本框的 度是&tb.WidthEnd Sub用 程Kua nDu会改 文本框 象tb的文本(3)写按的 事件程，用来用具有象参数的程Priva te Sub Comma nd 1 _C 1 ick()Ca ll Bia oTi(Forml)End SubPriva te Sub Comma nd2_Click()Ca ll Kua nDu(Textl)End Sub【例6-11】Function fa c(n As Integer)As LongIf n=1 ThenFa c=1ElseFa c=n*fa c(n-1)End IfEnd Function【例6-12Priva te Sub Comma nd l_Click()Dim a As Integer,b As Integer 程 量A=100:b=8PrintPrint用si前，事件 程中的 量:;a=;ab=;bCa ll si 用通用程sublPrintPrint用si后，事件程中的量:;a=;a;b=;bEnd SubSubs 1()通用程Dim a As Integer,b As Integer 程 量A=55:b=66PrintPrint”通用程si 中的量:;a=;a;b=;bEnd Sub15【例6-13Dim a As Integer,b As Integer 声明模 量Priva te Sub Comma ndl_Click()A=100:b=8,模量PrintPrint用 si 前，模 fi:;a=;a;b=;bCa ll si 用通用程sublPrintPrint用 si 后，模 量:;a=;a;b=;bEnd SubSubs 1()通用程A=55:b=66 模 量PrintPrint”通用程 si 模 量：;a=;a;b=;bEnd Sub【例6-14(4)在窗体Forml的代 窗口的 部，声明模 量a和b,分用来 存程序运行后 左 右两个命令按的次数。代如下：Priva te a As IntegerPriva te b As Integer(5)写左 的命令按 的Comma ndl_Clic事件 程。代 如下：Priva te Sub Comma nd 1 _Click()Dim s As String1=1+1A=a+1S=按&i&次，左按&a&次MsgBox s,vbOKOnly,提示End Sub(6)写右的命令按的Comma nd2_Clic事件程。代如下Priva te Sub Comma nd2_Click()Dim s As String1=1+1B=b+1S=按&i&次，右按&b&次MsgBox s,vbOKOnly,提示End Sub【例6-15Sub cha nge()Dim d As Integer 声明 量 dSta tic s As Integer 声明静 量 sD=d+116S=s+1Print 量 d=;d,静 量 s=;sEnd SubPriva te Sub Comma nd 1 _Click()Dim i As IntegerFor i=1 To 3cha nge 或 Ca ll cha ngeNext iEnd Sub(3)在Forml的窗体模的代窗口的最部(通用声明段)声明模 量title,用来存 字符串。代如下：Priva te title As String 表明是使用通用 程 是函数(4)定Sub通用 程MySub,来 行乘法运算 其中的形参x歹按，形参z按地址 代如下：Priva te Sub MySub(ByWl x As Integer,By l y As Integer,z As Integer)Z=x*yEnd Sub定 函数 程MyFun,来 行加法运算。其中的形参m和n是按 的。代 如下：Priva te Function MyFun(ByVa l m As Integer,Byl n As Integer)As Integer MyFun=m+nEnd Function(5)添加窗体的事件程Form_Loa d,来做些初始化的工作，将文本框置空代如下：Priva te Sub Form_Loa d()Textl.Text=Text2.Text=Text3.Text=End Sub分 添加两个 按 的Click事件 程，来 置框架Fra mel和 La bel的Ca ption属性。代 如下：Priva te Sub Option l_Click()Fra mel.Ca ption=乘法 运算La bell.Ca ption=xEnd SubPriva te Sub Option2_Click()Fra mel.Ca ption=加法运算La bel 1.Ca ption=+”End Sub添加命令按 的事件 程Comma ndl_Click。其中，字sta tic声明的静 量i和j用来 存 运算的次数，字Dim声明的程局部量a b c用来存三个文本框里的数。代如下：Priva te Sub Comma nd 1 _Click()Sta tic i As Integerj As IntegerDim a As Integer,b As Integer,c As Integer17A=Va l(Textl.Text)B=Va l(Text2.Text)If Option 1.Va lue=True ThenTitle=用 程运算Ca ll MySub(a,b,c)i=i+lForm 1.Ca ption=第&i&次&titleElseTitle=用函数运算c=MyFun(a,b)j=j+lForm 1.Ca ption=第&j&次&titleEnd IfText3.Text=cEnd Sub第7章 前体Priva te Sub Fra me l_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Forml.Ca ption=u 鼠 事件”Select Ca se ButtonCa se 1 左，或用常量 Visua l Ba sicLeftButton Fra meLeft.Ba ckColor=Visua l Ba sicRed Fra meRight.Ba ckColor=Visua l Ba sicWhite Fra meLToolTipText=朋友，您 才在按了鼠左！Ca se 2 右，或用常量 Visua l Ba sicRightButton Fra meRight.Ba ckColor=Visua l Ba sicRed Fra meLeft.Ba ckColor=Visua l Ba sicWhite Fra mel.ToolTipText=朋友，您 才在按了鼠右！”End SelectEnd Sub【例7-1Priva te Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Print”您触 了 MouseDown 事件！”End SubPriva te Sub Form_MouseUp(Button As Integer,Shift As Integer,_ X As Single,Y As Single)Print您又触 了 MouseUp 事件!End Sub【例7-2Priva te Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)18If Shift=l And Button=lThenCisPrint鼠指当前横坐X=;XElseCisPrintM 指 当前坐 Y=;YEnd IfEnd Sub【例7-31)首先，在窗体模 的 部声明一个 量pa int,如下：Priva te pa int As Boolea n(2)定窗体上的按下鼠按的事件程，使得量pa int的在按鼠左 true。再定 放鼠按的事件程，使得量pa int的fa lse。代如下：Priva te Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single)If Button=l Thenpa int=TrueEnd IfEnd SubPriva te Sub Form_MouseUp(Button As Integer,Shift As Integer,_X As Single,Y As Single)pa int=Fa lseEnd Sub(3)定窗体上的鼠移事件程Priva te Sub Form_MouseMove(Button As Integer,Shift As Integer,_X As Single,Y As Single)If pa int Then pa int true,程序画出 迹点PSet(X,Y)End IfEnd Sub【例7-4(2)定窗体的Formoa d事件程，使列表框中添加几个。代如下：Priva te Sub Form_Loa d()List 1.AddItemMO-Defa ultnListl.AddItemnl-ArrowHList 1.AddItemH2-CrossHList 1.AddItemM3-I-Bea mnEnd Sub(3)定列表框的事件程Priva te Sub Listl_Click()Forml.MousePointer=ListlListindexEnd Sub【例7-5Priva te Sub Form_KeyPress(KeyAscii As Integer)19If KeyAscii=97 And KeyAscii=65 And KeyAscii Forml.Height ThenSnow(I,1)=0:Snow(I,2)=5+(Rnd*30)Snow(I,0)=Int(Rnd*Forml.Width)OldX=0:OldY=0End IfColoury=8*(Snow(I,2)10):Coloury=60+ColouryPSet(OldX,OldY),QBColor(O)PSet(Snow(I,0),SnowI,1),RGB(Coloury,Coloury,Coloury)Next INext LSLoopEndEnd Sub(4)写窗体的鼠 按下代，在窗体的MouseDown事件中 程：Priva te Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)unloa d meEnd Sub【例9-1】Priva te Sub Comma nd 1 _Click()Dim I As IntegerFor I=0 To 530Sha pe 1(1).Sha pe=INextEnd SubPriva te Sub Comma nd2_Click()Dim I As IntegerFor I=0 To 5Sha pel(I).Ba ckStyle=1Sha pe 1(I).Ba ckColor=QBColor(I)将控件数中第I个控件的形状属性改I将控件的背景型更改“覆盖”更改控件的背景色NextEnd SubPriva te Sub Comma nd3_Click()Dim I As IntegerFor I=0 To 5Sha pel(I).FillColor=RGB(255,255,255)Sha pel(I).FillStyle=1+2NextEnd Sub将控件的镇充色改白色更改控件的填充方式。因其0 覆盖方式 明方式，看不出填充效果，故将*人【例9-2Priva te Sub Comma nd 1 _Click()Line(-2,0)-(10,0)Line(0,3)-(0,-3)For i=0 To 6.28 Step 0.001j=Sin(i)PSet(i,j)Next iEnd SubPriva te Sub Form_Loa d()Forml.Sca le(-2,3)-(10,-3)End Sub【例9-3Priva te Sub Form_Click()Line(500,700)-(2500,700),vbRedLine(l 500,100)-(700,2