VB程序设计实课后习题代码.pdf

《VB程序设计实课后习题代码.pdf》由会员分享，可在线阅读，更多相关《VB程序设计实课后习题代码.pdf（83页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、实验A VB环境和可视化编程基础1Private Sub Commandl_Click()Label3=TextlEnd Sub2.Private Sub Form_Load()Timerl.Interval=0End SubPrivate Sub Commandl_Click()手动Timerl.Interval=0Call MyMoveEnd SubPrivate Sub Command2_Click()，自动Timerl.Interval=200End SubPrivate Sub Timerl_Timer()Call MyMoveEnd SubSub MyMove()Labell.Mo

2、ve Labell.Left-50,Labell.TopIfLabell.Left 0 Then Labell.Left=Forml.WidthEnd Sub3Private Sub Form_CIick()Textl=Val(Textl)+1End SubPrivate Sub Form_Load()Textl=0End Sub5Sub Commandl_Click()Textl.FontName=隶书Textl.FontSize=25End SubSub Command2_Click()Text2.Text=Textl.SelTextTextl.FontName=Textl.FontNam

3、eText2.FontSize=Textl.FontSizeEnd Sub实验B：顺序结构目的掌握常用函数的用法以及顺序结构程序的编制;掌握关系表达式和逻辑表达式的用法；掌握选择结构的基本用法。内容教材中P263实 验 4、5、6、7、8程序代码：实验4Private Sub Command1_C1ick()Text2=UCase(Textl.Text)Print 长度；Len(Textl.Text)End SubPrivate Sub F orm_Load()Textl.Text=Text2.Text=End Sub实 验 5Private Sub Commandl_Click()Rando

4、mizeTextl=Int(Rnd*901+100)End SubPrivate Sub Command2_Click()Dim x%,xl%,x2%,x3%x=Vai(Textl)xl=x Mod 10 x2=(x Mod 100)10 x3=x 100Label1=xl*100+x2*10+x3End Sub实 验 6Private Sub F orm_Load()Label1=Left(Textl,11)Labe 12=Mid(Textl,12,6)Label3=Right(Textl,5)End Sub实 验 7Private Sub Command1_C1ick()PrintF or

5、 i=1 To 5Print Tab(15-i*2);String(2*);Spc(18-4*(i-1);String(2Next iEnd SubPrivate Sub Command2_Click()CisEnd Sub另一种Private Sub Command1_C1ick()PrintF or i =1 To 5Print Tab(15-i*2);String(2*i-1,;String(ll-2*i,;String(2*i-1,”)Next iEnd SubPrivate Sub Command2_C1ick()CisEnd Sub实 验 8Private Sub F orm_Cl

6、ick()Dim a As Singlea=InputBox(请输入一个正实数”)Print a 的平方是；Int(a*a*1000+0.5)/1000;Print a 的平方根是；Int(Sqr(a)*1000+0.5)/1000;Print a 的立方是“；Int(a*a*a*1000+0.5)/1000;Print a 的立方根是“；Int(a-(1/3)*1000+0.5)/1000End Sub实验三：选择结构目的掌握常用函数的用法以及顺序结构程序的编制；掌握关系表达式和逻辑表达式的用法；掌握选择结构的基本用法。内容教材中 P265 1、3、5、6、7、8程序代码：1、Dim x A

7、s Singlex=Vai(InputBox(请输入价钱”)If x 1000 Theny=xElself x 2000 Theny=0.9*xElself x 3000 Theny=0.8*xE lsey=0.7 *xE nd IfP ri nt 你应支付:；y3、P ri vate Sub C ommand2 _C li ck()D i m x!,y!,z!x=InputBox(i nput x)y=InputBox(i nput y)z=InputBox(i nput z)P ri nt x y zP ri nt 排序前；x;；y;zIf x y Th en t=x:x=y:y=tIf

8、y z Th ent=y:y=z:z=tIf x y Th ent=x:x=y:y=tE nd IfE nd IfP ri nt 排序后&x&y&zE nd Sub5、D i m m%,n%,x%,y%P ri vate Sub F orm_L oad()Textl.Text=Text2.Text=E nd SubP ri vate Sub Text2 _L ostF ocus()m=Textl.Textn=Text2.TextIf n M od 200 Th enM sg Box(脚数为奇数,重新输入)Text2.Text=Text2.SetF ocusE nd IfI fn 4*m Th

9、enM sg Box(“脚数小于头数的倍数或大于4倍,重新输入)Text2.Text=Text2.SetF ocusE nd IfE nd SubP ri vate Sub Text3 _G otF ocus 0y=n/2 -mx=m-yText3.Text=xText4.Text=yE nd Sub6、Private Sub Command 1 _Click()Dim a As Single,b As Single,c As SingleDim xl As Single,x2 As Singlea=Val(Textl.Text):b=Val(Text2.Text):c=Val(Text3.T

10、ext)d=b*b-4*a*cIf a 0 ThenIfdOThenMsgBox”两实根”xl=(-b+Sqr(d)/2/ax2=(-b-Sqr(d)/2/aText4.Text=xl:Text5.Text=x2Elself d=0 ThenMsgBox 两重根”xl=-b/2/ax2=xlText4.Text=xl:Text5.Text=x2ElseMsgBox 两复根xl=-b/2/ax2=Sqr(-d)/2/aText4.Text=xl&+&x2&iText5.Text=xl&-&x 2&iEnd IfElseIf b 0 ThenMsgBox 单根”xl=-c/b:x2=c/bText

11、4.Text=xl:Text5.Text=x2ElseMsgBox”无意义”End IfEnd IfEnd SubPrivate Sub Command2_Click()endEnd SubPrivate Sub Form_Load()Text 1.Text=MText2.Text 二”Text3.Text=Text4.Text 二”Tex t5.Text=nEnd Sub7、Private Sub Text3_LostFocus()Select Case Trim(Text3)CaseText4=Val(Textl)+Val(Text2)CaseText4=Val(Textl)-Val(Te

12、xt2)CaseText4=Val(Textl)*Val(Text2)Case”/IfVal(Text2)=0ThenMsgBox分母为零，重新输入Text2=Text2.SetFocusElseText4=Val(Textl)/Val(Text:2)End IfEnd SelectEnd Sub8、方法一ch=InputBox(请输入一个数字 1 一7)t=Choose(ch,“星期一，“星期二，星期三，星期四，”星期五，星期六“，”星期日)MsgBox(t)方法二Private Sub Form_Click()ch=InputBox(请输入一个数字 1 7)Select Case chCa

13、se 1MsgBox 星期一Case 2MsgBox 星期二Case 3MsgBox 星期三Case 4MsgBox 星期四Case 5MsgBox 星期五Case 6MsgBox 星期六Case 7MsgBox 星期日End SelectEnd Sub实验三：循环结构目的掌握循环结构的功能；掌握For-Next和 Do-Loop循环控制语句的用法;掌握多重循环结构的用法。内容教材中 P268 1、2、3、4、61Private Sub Form_Click()For i=1 To 10Print Tab(20-i);String(2*i-1,Right(Str(i),1)Next iEnd

14、Sub2Private Sub Form_Click()For i=1 To 9Print Tab(i+10);String(20-2*i,Chr(i+64)Next iEnd Sub3Private Sub Command l_Click()Dim s!,t!,i&s=11i=1Do While 1 /t 0.0001t=t+is=s+1 /1i=i+1LoopPrint HDo While 结构”；s,i-1;“项“End SubPrivate Sub Command2_Click()Dim s!,t!,i&s=1t=1Fori=ITo 100000t=t+is=s+1 /1If 1 /1

15、 maxa Then maxa=a(i)If a(i)mina Then mina=a(i)avera=avera+a(i)Next iFor i=1 To 10Print a(i);Next iPrintPrint“max=；maxa,min=；mina,“aver二 ；avera/10End Sub2、Private Sub Form_Click()Dim aa=Array(56,78,98,88,76,78)For i=0 To 5Print String(a 5,“)；a(i)PrintNext iEnd Sub3、统计各分数段的个数Dim a(l To 20)As IntegerPr

16、ivate Sub Command l_Click()RandomizeFor i=1 To 20a(i)=Int(Rnd*101)j=j+1Picture 1.Print Tab(6*j-5);a(i);If j Mod 4=0 Then Picture 1 .Print:j=0Next iEnd SubPrivate Sub Command2_Click()Dim s(5 To 9)As IntegerFor i=1 To 20j=a(i)10If j 6 Thens(5)=s(5)+1Elselfj 9 Thens(j)=s(j)+1Elses(9)=s(9)+1End IfNext i

17、For i=5 To 9Picture2.Print s(;i;)的人数有;s(i)Next iEnd Sub4、Private Sub Form_Click()Dim a(l To 10)As IntegerRandomizeFor i=1 To 10a(i)=Int(Rnd*90+10)Print a(i);Next iPrintFor i=1 To 9k 二iFor j=i+1 To 10If a(k)a(j)Then k=jNext jt=a(i):a(i)=a(k):a(k)=tNext iFor i=1 To 10Print a(i);Next iEnd Sub5、Dim a%(3

18、,3),b%(3,3)Private Sub Form_Load()RandomizeFor i=0 To 3For j=0 To 3a(i,j)=Int(Rnd*36+35)b(i,j)=Int(Rnd*41+100)Next jNext iEnd SubPrivate Sub Command l_Click()Picture 1.CisFor i=0 To 3Forj=O ToiPicture 1.Print a(i,j);Next jPicture 1.PrintNext iEnd SubPrivate Sub Command2_Click()Picture2.ClsFor i=0 To

19、 3Forj=iTo3Picture2.Print Tab(j*6);b(i,j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command3_Click()Picture3.Cissa=0For i=0 To 3sa=sa+a(i,i)Next isb=0For i=0 To 3sb=sb+b(i,3-i)Next iPicture3.Print A数组主对角线元素和为：saPicture3.Print B数组副对角线元素和为：sbEnd Sub6、Private Sub Picturel_Click()Dim s(20,20)As Integ

20、ern=Vai(Text 1.Text)Picture 1.CisFor i=1 To ns(i,1)=1：s(i,i)=1Next iFor i=3 To nForj=2Toi-1s(i,j)=s(i-l,j-l)+s(i-l,j)Next jNext iFor i=1 To nFor j=1 To iPicture 1 .Print Tab(1 +4*j);s(i,j);Next jPicture 1.PrintNext iEnd Sub杨辉三角形的第二种方法Private Sub Picture l_Click()Dim s(20,20)As Integern=Val(Textl.Tex

21、t)Picture 1.CisFor i=1 To ns(i,1)=1:s(i,i)=1Next iFor i=3 To nForj=2Toi-1s(i,j)=s(i-l,j-l)+s(i-l,j)Next jNext iFor i=1 To nFor j=1 To iPicture 1 .Print Tab(13-2*i+4*j);s(i,j);Next jPicture 1.PrintNext iEnd Sub实验六：过程目的掌握过程的基本概念和编制方法；掌握参数传递的不同方式；用过程实现一些比较复杂的算法。内容教材中1、2、3、4、81、Private Sub Form_Click()D

22、im a(l To 10),amin,i%For i=1 To 10a(i)=-Int(Rnd*101+300)Print a(i);Next iCall s(a(),amin)PrintPrint min=；aminEnd SubSub s(b(),min)Dim i%min=b(l)For i=2 To 10If b(i)min Then min=b(i)Next iEnd Sub2、Private Sub Command l_Click()Dim a As Integer,b As Integera=Val(Textl.Text)b=Val(Text2.Text)Picture 1.Pr

23、int a;b;“最大公约数”;f(a,b)End SubPrivate Function f(byval m As Integer,byval n As Integer)As IntegerIf m n Then t=m:m=n:n=tr=m Mod nDo While(r 0)m=nn=rr=m Mod nLoopf=nEnd FunctionPrivate Sub Form_Load()Text 1 .Text=”Text2.Text=nEnd Sub3、Private Sub Command l_Click()Dim x!X=val(textl.text)Print MySin(x),

24、Sin(x)End SubPublic Function MySin(ByVal x!)Dim n%,s!,t!t=xs=tFor n=2 To 1000 step 2t=-1*t*x*x/(n*(n +1)s=s+tIfAbs(t)0,00001 Then Exit ForNext nMySin=sEnd Function4、Private Sub Text 1 _KeyPress(KeyAscii As Integer)If Key Ascii=13 ThenIfIsH(Textl)ThenPicture!.PrintTextl;n ”ElsePicture J.Print TextlEn

25、d IfTextl”End IfEnd SubFunction IsH(ss As String)As Booleant=Truess=Trim(ss)Ls=Len(ss)For i=1 To Ls 2IfMid(ss,i,1)Mid(ss,Ls+1 -i,1)Thent=FalseExit ForEnd IfNext iIsH=tEnd Function8、用子过程Private Sub maxlength(s As String,maxs As String,length As Integer)Dim b As Stringmaxs=length=0For i=1 To Len(s)x=M

26、id(s,i,1)Ifx=n M ThenIf Len(b)length Then length=Len(b):maxs 二 bb=,H,Elseb=b+xEnd IfNext iIf Len(b)length Then length=Len(b):maxs=bEnd SubPrivate Sub Form_Click()Dim a As String,1 As Integer,c As Stringa=InputBox(nasadsH)maxlength a,c,1Print c,1End Sub用函数过程Private Function maxlength(s As String)As S

27、tringDim b As Stringmaxlength=length=0For i=1 To Len(s)x=Mid(s,i,1)Ifx=n M ThenIf Len(b)length Then length=Len(b):maxlength=bb Elseb=b+xEnd IfNext iIf Len(b)length Then length=Len(b):maxlength=bEnd FunctionPrivate Sub Form_Click()Dim a As Stringa=InputBox(nasadsn)Print maxlength(a),Len(maxlength(a)E

28、nd Sub另一种方法Private Sub Command 1 _Click()Dim str$str=TextlText2=maxlength(str)End SubPrivate Function maxlength(str$)As Strings=Split(str,n u)1 =Len(s(0):maxlength=s(0)For i=1 To UBound(s)IfLen(s(i)lThenmaxlength=s(i)1 =Len(s(i)End IfNext iEnd Function实验七：用户界面设计目的掌握窗口菜单、弹出菜单和实时菜单的设计方法；学会通用对话框的使用；掌握文

29、件列表框、文件夹列表框和驱动器列表框的用法;掌握数据文件的基本操作(打开、读、写、关闭)。内容教材中实验1、2、3、6、P 273 7、8本次试验为综合性。1、Private Sub Command1_C1ick()Text2.Text=Text2.Text=Combol.TextIf Optionl.Value ThenText2.Text=Text2.Text+vbCrLf+Optionl.CaptionElself 0ption2.Value ThenText2.Text=Text2.Text+vbCrLf+0ption2.CaptionElseText2.Text=Text2.Text

30、+vbCrLf+0ption3.CaptionEnd IfText2.Text=Text2.Text+vbCrLf+Textl.TextIf Checkl.Value=1 ThenText2.Text=Text2.Text+vbCrLf+Checkl.CaptionEnd IfIf Check2.Value=1 ThenText2.Text=Text2.Text+vbCrLf+Check2.CaptionEnd IfIf Check3.Value=1 ThenText2.Text=Text2.Text+vbCrLf+Check3.CaptionEnd IfEnd SubPrivate Sub

31、F orm_Load()Combol.Additem 联想Combol.Additem 方正Combol.Additem IBMCombol.Additem Compaq”Combol.Additem 兼容机End SubPrivate Sub Textl_LostF ocus()Dim str As Stringstr=RTrim$(Textl.Text)If UCase$(Right$(str,2)MB ThenTextl.Text=Textl.SetF ocusExit SubEnd IfIf Not IsNumeric(Left(str,Len(str)-2)ThenTextl.Tex

32、t=Textl.SetF ocusExit SubEnd IfEnd Sub2、Private Sub Checkl_Click()If Checkl.Value=0 ThenTextl.F ontBold=F alseElself Checkl.Value=1 ThenTextl.F ontBold=TrueEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value=0 ThenTextl.F ontltalic=F alseElself Check2.Value=1 ThenTextl.F ontltalic=TrueEnd IfEnd S

33、ubPrivate Sub Command1_C1ick()If Optionl.Value=True ThenLabel1.Caption=Sin(Vai(Textl.Text)Elself 0ption2.Value=True ThenLabel1.Caption=Exp(Vai(Textl.Text)Elself 0ption3.Value=True ThenLabel1.Caption=Sqr(Vai(Textl.Text)End IfEnd SubPrivate Sub F orm_Load()Textl.Text=End Sub3、Private Sub calc()Dim Six

34、 As Single,Slxbj As SingleSlxbj=VScrol 11.Value*(1+Vai(Text3.Text)/100*HScrol 11.Value/12)Text5.Text=SlxbjText4.Text=Slxbj-VScrolll.ValueEnd SubPrivate Sub HScrol1l_Change()Text2.Text=HScrolll.ValueEnd SubPrivate Sub HScrol12_Change()Text3.Text=F ormat(HScrol 12.Value,0.00)End SubPrivate Sub Textl_C

35、hange()calcEnd Sub实验八：图形操作目的学会建立坐标系；掌握常用的图形方法；学会绘制常用的几何图形。内容教材中实验 1、2、3、4、5、6、P283 11、Private Sub Form_Click()CisFor i=1 To 20XI 二 ScaleWidth*RndY1=ScaleHeight*RndX2=ScaleWidth*RndY2=ScaleHeight*Rndr=Int(Rnd*16)d=Int(Rnd*5+1)DrawWidth=dLine(XI,Y1)-(X2,Y2),QBColor(r)Next i2、Private Sub Form_Click()Ci

36、sFor i=1 To 200XI=ScaleWidth*RndY1=ScaleHeight*Rndr=Int(Rnd*16)d=Int(Rnd*4 +3)DrawWidth=dPSet(XI,Yl),QBColor(r)Next iEnd Sub3、Private Sub Command l_Click()Picture 1.CisPicture 1.Scale(-4,4)-(4,-4)r=Picture!.ScaleWidth/2For S=0 To 2*3.14 Step 0.00001x=r*Cos(4*S)*Cosy=r*Cos(4*S)*Sin(S)Picture 1.PSet(x

37、,y)Next SEnd SubPrivate Sub Command2_Click()EndEnd Sub4、Private Sub Command 1 _Click()Scale(-4,4)-(4,-4)For S=0 To 2*3.14 Step 0.1Line(0,0)-(S*Cos(S),S*Sin(S)Next SEnd Sub5Private Sub Form_Click()Dim r,xi,yi,xj,yj,xO,yO,aif As SingleCisr=Forml.ScaleHeight/2xO=Forml.ScaleWidth/2yO=Forml.ScaleHeight/2

38、n=Val(Textl)aif=3.1415926*2/nFor i=1 To n-1xi=r*Cos(i*aif)+xOyi=r*Sin(i*aif)+yOFor j=i+1 To nxj=r*Cos(j*aif)+xOyj=r*Sin(j*aif)+yOLine(xi,yi)-(xj,yj)Next jNext iEnd Sub6、Private Sub F orm_Click()Scale(-100,100)-(100,-100)F or i =0 To 40 Step 2Circle(i,0),i/2Next iEnd SubP283 1、Private Sub Commandl_Cl

39、ick()Dim a As String,b As String,c As IntegerOpen f:score.dat F or Output As#1Open f:scorel.dat F or Output As#2F or i=1 To 3a=InputBox(学 号 )b=InputBox(姓 名 )c=Vai(InputBox(成绩)Write#1,a,b,cPr in t#2,a,b,cNext iClo s eEn d Su bPr iv at e Su b Co mman d2 _Click()Op en f:s co r e.dat Fo r In p u t As#1O

40、p en f:s co r el.dat Fo r In p u t As#2Text l.Text =Text 2.Text =Do While No t EOF(l)Lin e In p u tText l.TextLin e In p u tText 2.TextLo o pClo s eEn d Su b#1,x=Text l.Text +x+v bCr Lf#2,y=Text 2.Text +y+v bCr Lf1.画坐标系及正弦曲线。(要求其他曲线也会)Pr iv at e Su b Fo r m_Click()Scale(-5,1)-(5,-1)Lin e(-5,0)-(5,0)

41、,QBCo lo r(1 2)Lin e(0,-1)-(0,1),QBCo lo r(9)Fo r x=-3.1 4 To 3.1 4 St ep 0.0 1y=Sin(x)PSet (x,y),QBCo lo r(3)Next xEn d Su b窗体文件保存在f:hxmF8 LFr m中,工程文件保存在f:hxmP8 L Vbp中,hxm是文件夹。2 .画圆和椭圆、矩形。Pr iv at e Su b Fo r m_Click()Scale(-5 0,2 0)-(5 0,-2 0)Lin e(-2 0,2 0)-(2 0,-2 0),BCir cle(0,0),2 0Cir cle(0,0

42、),2 0,2 /1Cir cle(0,0),2 0，1 /2En d Su b窗体文件保存在f:hxmF8 2.Fn n中，工程文件保存在f:hxmP8 2.Vbp中，hxm是文件夹。3 .画矩形及填充颜色Private Sub Form_Click()Scale(-50,50)-(50,-50)FillStyle=0FillColor=QBColor(12)Line(-20,20)-(20,-20),QBColor(9),BEnd Sub窗 体 文 件 保 存 在f:hxmF8 3.Fr m中，工 程 文 件 保 存 在f:hxmP8 3.Vbp中，hxm是 文 件 夹。4.本 程 序 含

43、 有 如 下 菜 单 系 统：一 级 菜 单 有“文 件”和“画 图”，“文 件”菜单下有一二级 菜 单“退 出”；“画 图”菜 单 下 有 两 个 二 级 菜 单“画 曲 线”、“画 矩 形”，“文件”名称为:“退 出”名 称 为:mn _fl_en d；“画 图”名 称 为：mn _dr;“画曲 线”名 称 为：mn _dr _yx3；“画 矩 形 名 称 为:mn _dr _r e。完 成 以 下 功 能：单 击 画 曲 线 按 钮，以(-1 0,1 0 0 0)和(1 0,-1 0 0 0)为 对 角 顶 点 建 立 坐 标 系；画出 坐 标 轴 和Y=X-3的 曲 线，X的 取 值

44、区 间 为 T0,1 0 ；单 击 画 矩 形 按 钮，以(-1 0 0,1 0 0)和(1 0 0,-1 0 0)为 对 角 顶 点 建 立 坐 标 系；以(-7 0,5 0)和(7 0,-5 0)为 对 角 顶 点，颜 色 为1 2画 矩 形 框；单 击“退 出”停 止 程 序 的 运 行。窗 体 文 件 保 存 在f:hxmF8 6.Fr m中,工 程 文 件 保 存 在f:hxmP8 6.Vbp中，hxm是 文 件 夹。Pr iv at e Su b mn _dr _r e_Click()Scale(-1 0 0,1 0 0)-(1 0 0,-1 0 0)Lin e(-7 0,5 0)

45、-(7 0,-5 0),QBCo lo r(1 2),BEn d Su bPr iv at e Su b mn _dr _yx3 _Click()Scale(-1 0,1 0 0 0)-(1 0,-1 0 0 0)Fo r x=-1 0 To 1 0 St ep 0.0 1y 二 x 八 3PSet (x,y)Next xEn d Su bPr iv at e Su b mn _fl_en d_Click()En dEn d Su b实验一：VB开发环境和程序设计初步目的掌握Vis u al Bas ic系统的进入、退出；熟悉开发环境；加深理解对象、属性、事件以及事件过程等概念；掌握工程的保存

46、以及打开方法；熟悉常用对象的常用属性、事件和方法。内容教材中实验L1 （改为例2.1）、实验1.3、实验1.4、实验1.5、实验 1.6。程序代码1.1换成例2.1Private Sub Textl_KeyPress(KeyAscii As Integer)Dim aa As String*1Dim Length As Integer串的长度Length=Len(Text2.Text)aa=Chr$(KeyAscii)Select Case aaCase To1 Length存放文本框中字符求Text2中字符串长度将ASCII码转换成字符，大写转换成小写aa=Chr$(KeyAscii+32)

47、Case nan To nzn，小写转换成大写aa=Chr$(KeyAscii-32)Case Case Elseaa=*End Select,将转换文本框已有的内容与刚输入并转换的字符连接Text2.Text=Text2.Text&aaEnd SubPrivate Sub Commandl_Click()Textl.Text=Text2.Text=End SubPrivate Sub Command2_Click()EndEnd Sub1.3,Label控件通过位置和颜色结合产生浮雕效果Private Sub Form_Load()Label2.Top=Label 1.Top+50Label

48、2.Left=Labell.Left+50错位Label2.F oreColor=QBColor(O)黑色Labell.ForeColor=QBColor(15)End Sub Label 和 Label!1 Label2字为默认,Labell字为白色，位置和颜色结合产生浮雕效果,控件移动可通过Move方法实现，见左移Private Sub Commandl_Click()Labell.Move Labell.Left-50左 移 SOtwip单位单击一次同时Label2.Move Labell.Left-50End Sub,也可通过控件的位置属性改变移动，见右移Private Sub Com

49、mand2_Click()Labell.Left=Labell.Left+50 单击一次同时右移 SOtwip单位Labell.Left=Labell.Left+50End Sub1.4 同上仅在两个命令按钮的单击事件中将L eft改为top1.5Private Sub Commandl_Click()CisEnd SubPrivate Sub Form_Click()Print Tab(lO);Print Tab(9);For i=1 To 5*输出五行Print Tab(9-i);”?Spc(i-1);Spc(i-1);Next iEnd Sub1.6Private Sub Command

50、l_Click()CisEnd SubPrivate Sub Form_Click()Print Tab(10);Print Tab(9);For i=1 To 5*输出五行Print Tab(9-i)；”；Spc(i-1);”?Spc(i-1);Next iFor i=5 To 1 Step-1输出五行Print Tab(9-i);Spc(i-1);Spc(i-1);Next iPrint Tab(9);Print Tab(lO);End Sub实验2：选择结构目的掌握常用函数的用法以及顺序结构程序的编制；掌握关系表达式和逻辑表达式的用法;掌握选择结构的基本用法。内容教材中 P 2 6 5