(完整word版)VB程序设计教程(第3版)课后实验完整答案.pdf

《(完整word版)VB程序设计教程(第3版)课后实验完整答案.pdf》由会员分享，可在线阅读，更多相关《(完整word版)VB程序设计教程(第3版)课后实验完整答案.pdf（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、A1 Private Sub Command1_Click()Label3=Text1 End Sub A2 Private Sub Form_Load()Timer1.Interval=0 End Sub Private Sub Command1_Click()自动 Timer1.Interval=200 End Sub Private Sub Command2_Click()手动 Timer1.Interval=0 Call MyMove End Sub Private Sub Timer1_Timer()Call MyMove End Sub Sub MyMove()Label1.Mov

2、e Label1.Left-50 If Label1.Left 0 Then Label1.Left=Form1.Width End Sub A3 Private Sub Form_Click()Text1=Val(Text1)+1 End Sub Private Sub Form_Load()Text1=0 End Sub A4 Private Sub Form_Click()Caption=单击窗体，改变图片 Picture=LoadPicture(App.Path+n_015.bmp)Print 欢迎使用 VB End Sub Private Sub Form_DblClick()Cls

3、 Caption=双击窗体，卸去图片 Picture=LoadPicture()End Sub Private Sub Form_Load()Caption=装入窗体 Picture=LoadPicture(App.Path+n_016.bmp)Print 装入图 End Sub Private Sub Form_Resize()该事件的作用窗体始终与图一样大 Caption=窗体大小不变 Form1.Width=260*16 260 是 Tongji-2.bmp 图的宽度，象素单位 Form1.Height=260*16+200 260 是图的高度，象素单位，200 是窗体的标题栏高度 En

4、d Sub A5 Sub Command1_Click()Text1.FontName=隶书 Text1.FontSize=25 End Sub Sub Command2_Click()Text2.Text=Text1.SelText Text2.FontName=Text1.FontName Text2.FontSize=Text1.FontSize End Sub B1 Private Sub Command1_Click()Text2=Format(5/9*(Val(Text1)-32),0.00)End Sub Private Sub Command2_Click()Text1=For

5、mat(9/5*Val(Text2)+32,0.00)End Sub 或 Private Sub Command1_Click()Dim f!,c!声明两个变量 f=Val(Text1)c=5/9*(f-32)Text2=Format(c,0.00)保留两位小数 End Sub Private Sub Command2_Click()Dim ff!,cc!声明两个变量 cc=Val(Text2)ff=9/5*cc+32 Text1=Format(ff,0.00)保留两位小数 End Sub B2 Private Sub Command1_Click()Label2=Format(Val(Tex

6、t1)*Val(Text1)*3.14,0.00)End Sub Private Sub Command2_Click()Label3=Format(Val(Text1)*3.14*2,0.00)End Sub Private Sub Text1_LostFocus()If Not IsNumeric(Text1.Text)Then MsgBox 输入有非数字字符，请重新输入,警告 Text1.Text=Text1.SetFocus End If End Sub 或 Private Sub Command1_Click()Label2=Format(Val(Text1)*Val(Text1)*

7、3.14,0.00)End Sub Private Sub Command2_Click()Label3=Format(Val(Text1)*3.14*2,0.00)End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then If Not IsNumeric(Text1.Text)Then Text1.Text=End If End If End Sub B3 Private Sub Command1_Click()n=Int(Log(2)/Log(1.008)+1)Label1=n&年后人数超过 26

8、亿 End Sub B4 Private Sub Command1_Click()Dim x,dx,cd x=Text1.Text dx=UCase(x)cd=Len(x)Print 大写字母为:;dx Print 字符串长度为:;cd End Sub B5 Private Sub Command1_Click()Text1=Int(Rnd*900+100)End Sub Private Sub Command2_Click()Dim x%,x1%,x2%,x3%x=Val(Text1)x1=x Mod 10 分离出的个位数 x2=(x Mod 100)10 分离出的十位数 x3=x 100

9、分离出的百位数 Label1=x1*100+x2*10+x3 End Sub B6 Private Sub Form_Click()Label1=Left(Text1,11)Label2=Mid(Text1,12,6)Label3=Right(Text1,5)End Sub B7 Private Sub Command1_Click()Print For i=1 To 5 Print Tab(15-i*2);String(2*i-1,);Spc(18-4*(i-1);String(2*i-1,)Next i End Sub Private Sub Command2_Click()Cls End

10、 Sub 进一步要求：Private Sub Command1_Click()Print For i=1 To 5 Print Tab(15-i*2);String(2*i-1,);String(10-(2*i-1),);String(2*i-1,)Next i End Sub Private Sub Command2_Click()Cls End Sub B8 Private Sub Form_Click()x=Val(InputBox(输入一正实数,计算,0)pf=Format(x*x,0.000)pfg=Format(Sqr(x),0.000)lf=Format(x*x*x,0.000)

11、lfg=Format(x (1/3),0.000)Print 平方为:;pf;Space(5);平方根为:;pfg;Space(5);立方为:;lf;Space(5);立方根为:;lfg End Sub C1 Private Sub Form_Click()Dim x!,y!x=Val(InputBox(输入 x 的值)If x 1000 Then y=x ElseIf x 2000 Then y=0.9*x ElseIf x 3000 Then y=0.8*x Else y=0.7*x End If Print y End Sub C2 Private Sub Form_Click()Dim

12、 x!,y!x=Val(InputBox(输入上网时间)If x 10 Then y=30 ElseIf x 150 Then y=150 End If Print y End Sub C3 Private Sub Command1_Click()Dim x!,y!,z!x=InputBox(input x)y=InputBox(input y)z=InputBox(input z)Print x y z Print 排序前;x;y;z If x y Then t=x:x=y:y=t If x z Then t=x:x=z:z=t If y z Then t=y:y=z:z=t Print 排

13、序后&x&y&z End Sub Private Sub Command2_Click()Dim x!,y!,z!x=InputBox(input x)y=InputBox(input y)z=InputBox(input z)Print x y z Print 排序前;x;y;z If x y Then t=x:x=y:y=t If y z Then t=y:y=z:z=t If x a(i+1)Then z=a(i+1)a(i+1)=a(i)a(i)=z End If Next i Picture2.Print a(0)Picture2.Print a(1)Picture2.Print a

14、(2)End Sub C5 Private Sub Text2_LostFocus()Dim m%,n%,y%m=Val(Text1)n=Val(Text2)If n Mod 2 0 Then MsgBox(脚数必定为偶数)Text2=Text2.SetFocus Else y=n/2-m If y 0 Then Text4=Format(-b+Sqr(de)/t,0.00)Text5=Format(-b-Sqr(de)/t,0.00)Else Text4=Format(-b/t,0.00)&+&Format(Sqr(Abs(de)/t,0.00)&i Text5=Format(-b/t,0.

15、00)&-&Format(Sqr(Abs(de)/t,0.00)&i End If End Sub Private Sub Command2_Click()Text1=Text2=Text3=Text4=Text5=End Sub C7 Private Sub Text3_LostFocus()Select Case Trim(Text3)Case+Text4=Val(Text1)+Val(Text2)Case-Text4=Val(Text1)-Val(Text2)Case*Text4=Val(Text1)*Val(Text2)Case/If Val(Text2)=0 Then MsgBox

16、分母为零，重新输入 Text2=Text2.SetFocus Else Text4=Val(Text1)/Val(Text2)End If End Select End Sub C8 Private Sub Text1_LostFocus()Select Case Trim(Text1)Case 1 Text2=Monday Case 2 Text2=Tuesday Case 3 Text2=Wednesday Case 4 Text2=Thursday Case 5 Text2=Friday Case 6 Text2=Saturday Case 7 Text2=Sunday Case Is

17、7,Is 7 Or Text1 1 Then MsgBox 数字为 17，重新输入 Text1=Text1.SetFocus Else Text2=Choose(Text1,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday)End If End Sub D1 Private Sub Form_Click()For i=1 To 9 Print Tab(10-i);String(2*i-1,Trim(Str(i)Next i End Sub D2 Private Sub Form_Click()For i=1 To 10 Step

18、1 Print Tab(i);String(20-2*i),Chr(64+i)Next i End Sub D3 Private Sub Command1_Click()Dim s!,t!,i&s=1 t=1 For i=1 To 100000 t=t+i s=s+1/t If 1/t 0.00001 Then Exit For Next i Print For 结构;s,i;项 End Sub D4 Private Sub Command1_Click()Dim n&,pi#,i&n=InputBox(输入 n 值)pi=2 For i=1 To n pi=pi*(2*i)/(2*i-1)*

19、(2*i)/(2*i+1)Next i Print 当 n=&n&时，pi=;pi End Sub D5 Private Sub Form_Click()Dim s!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0 Print a=;a,n=;n For i=1 To n t=t*10+a s=s+t Print t;Next i Print Print s=;s End Sub D6 Private Sub Command1_Click()Dim s As Integer s=0 For i=1 To 9 For j=0 To 9 For k=0

20、 To 9 s=i*100+j*10+k If s=i 3+j 3+k 3 Then Print s End If Next k Next j Next i End Sub Private Sub Command3_Click()formd6.Hide main.Show End Sub D7 Private Sub Command1_Click()Dim a!,x0!,x1!a=27 x0=2 i=0 Do i=i+1 x1=2*x0/3+a/(3*x0*x0)If Abs(x1-x0)Max Then Max=a(i)If a(i)Min Then Min=a(i)Avg=Avg+a(i)

21、Next i Avg=Avg/10 Print Print Max=;Max;Min=;Min;Avg=;Avg End Sub E2 Private Sub Form_Click()Dim a a=Array(56,78,98,88,76,78)For i=0 To 5 Print String(a(i)5,);a(i)Print Next i End Sub E3 Dim a%(19)Private Sub Command1_Click()Picture1.Cls For i=0 To 19 a(i)=Int(Rnd*101)Picture1.Print a(i);If(i+1)Mod 4

22、=0 Then Picture1.Print Next i End Sub Private Sub Command2_Click()Picture2.Cls Dim s(5 To 9)For i=0 To 19 k=a(i)10 Select Case k Case 0 To 5 s(5)=s(5)+1 Case 9 To 10 90100 分的人数 s(9)=s(9)+1 Case 6 To 8 存放其他三个分数段的下标有规律，根据 K 获得 s(k)=s(k)+1 End Select Next i For i=5 To 9 If s(i)0 Then Picture2.Print s(;

23、i;)的人数有;Format(s(i),0);个 Next i End Sub E4 Private Sub Command1_Click()Picture1.Cls Dim d%(1 To 10)For i3=1 To 10 Randomize d(i3)=Int(Rnd*91+10)Next i3 For i=1 To 10 For j=1 To 10-i If d(j)=5 Then MsgBox(超过 5 门课程，不能再选)Exit Sub Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End

24、 Sub E8 Sub Combo1_KeyPress(KeyAscii As Integer)Select Case KeyAscii Case 48 To 57,13 Case Else KeyAscii=0 End Select If KeyAscii=13 Then Combo1.AddItem Combo1.Text Combo1.Text=End If End Sub Private Sub Command1_Click()Dim min%,max%min=Val(Combo1.List(0)max=Val(Combo1.List(0)imin=0 imax=0 For i=1 T

25、o Combo1.ListCount-1 If Val(Combo1.List(i)max Then imax=i max=Combo1.List(i)ElseIf Val(Combo1.List(i)min Then imin=i min=Combo1.List(i)End If Next i t=Combo1.List(0)Combo1.List(0)=Combo1.List(imin)Combo1.List(imin)=t t=Combo1.List(Combo1.ListCount-1)Combo1.List(Combo1.ListCount-1)=Combo1.List(imax)C

26、ombo1.List(imax)=t End Sub E9 Private Sub Form_Click()For i=0 To Screen.FontCount-1 If Asc(Left(Screen.Fonts(i),1)=5 Then MsgBox(输入人数超过数组声明的个数)Else With a(n).number=Text1 .name=Text2 .salary=Text3 Picture1.Print a(n).number,a(n).name,a(n).salary Print End With n=n+1 Text1=Text2=Text3=End If End Sub

27、Private Sub Command2_Click()Dim t As clerk,i%,j%For i=0 To n-1 For j=i To n-1 If a(i).salary a(j+1).salary Then t=a(i):a(i)=a(j+1):a(j+1)=t End If Next j Next i Picture1.Cls Picture1.Print 工号 姓名 工资 For i=0 To n-1 Picture1.Print a(i).number,a(i).name,a(i).salary Print Next i End Sub F1 Private Sub Fo

28、rm_Click()Dim a(1 To 10),amin,i%For i=1 To 10 a(i)=-Int(Rnd*101+300)Print a(i);Next i Call s(a(),amin)Print Print min=;amin End Sub Sub s(b(),min)Dim i%min=b(LBound(b)For i=LBound(b)+1 To UBound(b)If b(i)min Then min=b(i)Next i End Sub F2 Private Sub Command1_Click()Dim mm%,nn%mm=Val(Text1)nn=Val(Te

29、xt2)Picture1.Print mm;Tab(6);nn;Tab(12);gcd(mm,nn)End Sub Function gcd%(ByVal m%,ByVal n%)If m n Then t=m:m=n:n=t r=m Mod n Do While(r 0)m=n:n=r:r=m Mod n Loop gcd=n End Function F3 Dim x!Private Sub Command1_Click()Print 调用标准函数 Sin 的结果;Sin(x)End Sub Private Sub Command2_Click()Print 调用自定义函数 MySin 的

30、结果;MySin(x)End Sub Function MySin(x!)As Double Dim i%,t!,s!t=x s=t i=1 Do While Abs(t)0.00001 t=-1*t*x*x/(i+1)*(i+2)s=s+t i=i+2 Loop MySin=s End Function Private Sub Command3_Click()x=InputBox(输入要计算正弦函数的角度值 x)x=x*3.14/180 End Sub F4 Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then

31、If Not IsNumeric(Text1)Then MsgBox 输入非数字串，重新输入 Text1.Text=Text1.SetFocus Else If IsH(Text1)Then Picture1.Print Text1;Else Picture1.Print Text1 End If Text1=End If End If End Sub Function IsH(ss As String)As Boolean Dim i%,Ls%IsH=True ss=Trim(ss)Ls=Len(ss)For i=1 To Ls 2 If Mid(ss,i,1)Mid(ss,Ls+1-i,1

32、)Then IsH=False Exit Function End If Next i End Function F5 Function prime(ByVal m As Integer)As Boolean prime=True Dim i%For i=2 To m-1 If(m Mod i)=0 Then prime=False:Exit Function 注意冒号和 exit 的范围 Next i End Function Private Sub Command1_Click()n=0 For i=6 To 100 Step 2 For j=3 To i 2 If prime(j)The

33、n If prime(i-j)Then List1.AddItem i&=&j&+&i-j n=n+1 End If End If Next j Next i Picture1.Print 6 和 100 之间共有;n;对素数和 End Sub F6 Dim a%()Private Sub Form_Click()Print 1000 以内的完数为：For i=1 To 1000 If IsWs(i)Then Print i;=1;For j=1 To UBound(a)Print+;a(j);Next j Print End If Next i End Sub Function IsWs(m

34、)As Boolean Dim s%s=0 For i=1 To m 2 If m Mod i=0 Then ReDim Preserve a(j)a(j)=i j=j+1 s=s+i End If Next i If m=s Then IsWs=True End Function F7 Private Sub DeleStr(s1 As String,ByVal s2 As String)Dim i%ls2=Len(s2)i=InStr(s1,s2)Do While i 0 s1=Left(s1,i-1)+Mid(s1,i+ls2)在 s1 中去除 s2 子串 i=InStr(s1,s2)L

35、oop End Sub Private Sub Command1_Click()调用 DeleStr 子过程 Dim ss1 As String ss1=Text1 Call DeleStr(ss1,Text2)Text3=ss1 End Sub Private Sub Command2_Click()End Sub F8 Private Sub Command1_Click()Dim maxw$maxlen Text1&,maxw Text2=maxw End Sub Sub maxlen(s$,maxw$)Dim word$maxw=Do While s i=InStr(s,)word=L

36、eft(s,i-1)If Len(word)Len(maxw)Then maxw=word s=Mid(s,i+1)Loop End Sub G1 Private Sub Command1_Click()List1.Clear List1.AddItem Combo1 If Option1 Then List1.AddItem Pentium II If Option2 Then List1.AddItem Pentium I If Option3 Then List1.AddItem Celeron List1.AddItem Text1 If Check1 Then List1.AddIt

37、em 声卡 If Check2 Then List1.AddItem Modem If Check3 Then List1.AddItem 网络适配器 End Sub Private Sub Text1_LostFocus()st=UCase(Trim(Text1)le=Len(st)If Not IsNumeric(Left(st,le-2)Or Right(st,2)MB Then MsgBox 有不合法字符！Text1=Text1.SetFocus End If End Sub G2 Private Sub Check1_Click()Picture1.Font.Bold=Not Pic

38、ture1.Font.Bold End Sub Private Sub Check2_Click()Picture1.Font.Italic=Not Picture1.Font.Bold End Sub Private Sub Command1_Click()Picture1.Cls If Option1 Then Picture1.Print Sin(Val(Text1)ElseIf Option2 Then Picture1.Print Exp(Val(Text1)ElseIf Option3 Then Picture1.Print Sqr(Val(Text1)End If End Sub

39、 Private Sub return_Click(Index As Integer)Form6.Show Unload Form2 End Sub G3 Private Sub HScroll1_Change()Text1=VScroll1.Value Text2=HScroll1.Value Text3=HScroll2.Value Text4=Format(Val(Text1)*(Text3/100)*(Text2/12),0.00)Text5=Format(Val(Text4)+Val(Text1),0.00)End Sub Private Sub HScroll2_Change()T

40、ext1=VScroll1.Value Text2=HScroll1.Value Text3=HScroll2.Value Text4=Format(Val(Text1)*(Text3/100)*(Text2/12),0.00)Text5=Format(Val(Text4)+Val(Text1),0.00)End Sub Private Sub VScroll1_Change()Text1=VScroll1.Value Text2=HScroll1.Value Text3=HScroll2.Value Text4=Format(Val(Text1)*(Text3/100)*(Text2/12)

41、,0.00)Text5=Format(Val(Text4)+Val(Text1),0.00)End Sub G4 Dim t As Single Private Sub Command1_Click()t=InputBox(输入倒计时分钟数)t=t*60 ProgressBar1.Min=0 ProgressBar1.Max=t ProgressBar1.Value=t End Sub Private Sub Command2_Click()Timer1.Interval=1000 ProgressBar1.Visible=True End Sub Private Sub Timer1_Tim

42、er()Dim m%,s%t=t-1 ProgressBar1.Value=t m=t 60 s=t Mod 60 Label1=m&分&s&秒 If t=0 Then MsgBox 时间到！Timer1.Interval=0 ProgressBar1.Visible=False End If End Sub G5 Private Sub Command1_Click()CommonDialog1.ShowColor Label1.ForeColor=CommonDialog1.Color End Sub Private Sub Command2_Click()CommonDialog1.Sh

43、owOpen i=Shell(C:WINDOWSNOTEPAD.exe +CommonDialog1.FileName,vbNormalFocus)End Sub G6 rivate Sub bold_Click()Text1.FontBold=Not Text1.FontBold bold.Checked=Not bold.Checked End Sub Private Sub del_Click()Text1=End Sub Private Sub end_Click()End End Sub Private Sub font12_Click()Text1.FontSize=12 End

44、Sub Private Sub font16_Click()Text1.FontSize=16 End Sub Private Sub Form_Load()bold.Checked=False italic.Checked=False End Sub Private Sub italic_Click()Text1.FontItalic=Not Text1.FontItalic italic.Checked=Not italic.Checked End Sub Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As

45、 Single,Y As Single)If Button=2 Then PopupMenu menu2 End Sub G7 Private Sub Command1_Click()CommonDialog1.ShowColor Label1.ForeColor=CommonDialog1.Color End Sub Private Sub Command2_Click()CommonDialog1.ShowOpen i=Shell(C:WINDOWSNOTEPAD.exe +CommonDialog1.FileName,vbNormalFocus)End Sub Private Sub r

46、eturn_Click(Index As Integer)Form6.Show Unload Form5 End Sub G8 G9 Private Sub 结束_Click()End End Sub Private Sub 删除最大值_Click()max=List1.List(0)For i=1 To List1.ListCount-1 If max List1.List(i)Then min=List1.List(i):j=i Next i List1.RemoveItem j End Sub Private Sub 随机产生_Click()Randomize For i=0 To 9

47、List1.List(i)=Int(Rnd*30+70)Next i End Sub Private Sub 添加数据_Click()List1.AddItem Int(Rnd*30+70)End Sub Private Sub 统计_Click()Dim max%,min%,ave!,m%,n%max=List1.List(0)min=List1.List(0)ave=List1.List(0)m=0 n=0 For i=1 To List1.ListCount-1 If max List1.List(i)Then min=List1.List(i):n=i ave=ave+List1.Li

48、st(i)Next i Form2.Text1=List1.List(n)Form2.Text2=List1.List(m)Form2.Text3=Format(ave/List1.ListCount,0.00)Form2.Show End Sub G10 Private Sub experimentG2_Click()Form2.Show End Sub Private Sub experimentG3_Click()Form3.Show End Sub Private Sub experimentG4_Click()Form4.Show End Sub Private Sub experi

49、mentG5_Click()Form5.Show End Sub Private Sub font_12_Click()Text1.FontSize=12 End Sub Private Sub font_16_Click()Text1.FontSize=16 End Sub Private Sub rnd10_Click()Randomize For i=0 To 9 List1.List(i)=Int(Rnd*30+70)Next i End Sub Private Sub stat_Click()Dim max%,min%,ave!,m%,n%max=List1.List(0)min=L

50、ist1.List(0)ave=List1.List(0)m=0 n=0 For i=1 To List1.ListCount-1 If max List1.List(i)Then min=List1.List(i):n=i ave=ave+List1.List(i)Next i stat2.Text1=List1.List(n)stat2.Text2=List1.List(m)stat2.Text3=Format(ave/List1.ListCount,0.00)stat2.Show End Sub Private Sub Text1_MouseDown(Button As Integer,