《2023年VB程序设计教程课后实验答案.pdf》由会员分享，可在线阅读，更多相关《2023年VB程序设计教程课后实验答案.pdf（64页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案(完整 word版)VB 程序设计教程(第 3 版)课后实验完整答案 编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（(完整 word版)VB 程序设计教程(第 3 版)课后实验完整答案）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为(完整 word版)
2、VB 程序设计教程(第 3 版)课后实验完整答案的全部内容。(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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 Pr
3、ivate Sub Timer1_Timer()Call MyMove End Sub Sub MyMove()Label1。Move Label1。Left-50 If Label1。Left 0 Then Label1。Left=Form1.Width End Sub A3 Private Sub Form_Click（)校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完
4、整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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 Caption=双击窗体,卸去图片 Picture=LoadPicture(”)E
5、nd 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图的宽度，象素单位 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完
6、整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Form1。Height=260*16+200 260 是图的高度，象素单位，200 是窗体的标题栏高度 End Sub A5 Sub Command1_Click（)Text1。FontName=”隶书 Text1.FontSize=25 End Sub Sub Command2_Click()Text2。Text=Text1。SelText Text2。FontName=Text1。FontName Te
7、xt2.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=Format(9/5*Val(Text2）+32,”0。00”）End Sub 或 Private Sub Command1_Click(）Dim f！,c!声明两个变量 f=Val（Text1）校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请
8、收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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
9、Sub Command1_Click（）Label2=Format(Val(Text1)*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 或 校对但是难免会有疏漏的地方但是任然希
10、望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Private Sub Command1_Click（）Label2=Format(Val(Text1)Val（Text1）3.14，0。00)End Sub Private Sub Command2_Click()Label3=Format(Val（Tex
11、t1）*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 亿 End Sub B4 Private Sub Command1_Click（）Dim x，dx，cd x=Text1.Te
12、xt dx=UCase(x)cd=Len（x)校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Print 大写字母为:;dx Print”字符串长度为:；cd End Sub B5 Private Sub Command1_Click(）Text1=Int(Rnd 90
13、0+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 分离出的百位数 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
14、校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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
15、_Click(）Cls End 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)校对但
16、是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 lf=Format（x x x，”0.000)lfg=Format(x （1/3),”0.000)Print 平方为：;pf；Space(5）;平方根为：”；pfg；Space（5);立方为:;lf;Space(5）;”立方根为
17、：;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 x!,y！x=Val(InputBox(输入上网时间)）If x 10 Then y=30 ElseIf x 50 Then y=30+2.5*（x 10）Else y=
18、30+2.5 40+2*（x-50）End If 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 If y 150 Then y=150 End If Print y End Sub C3 Private Sub Command1_Click(）Dim x！,y！,z!
19、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”排序后”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
20、 z 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Print 排序前；x；”;y；”；z If x y Then t=x:x=y：y=t If y a(i+1）Then 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作
21、和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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(2）End Sub C5 Private Sub Text2_LostFocus()Dim m%，n%,y%m=Val(Text
22、1)n=Val(Text2)If n Mod 2 0 Then MsgBox(”脚数必定为偶数”)Text2=”Text2.SetFocus Else y=n/2 m If y 0 Then MsgBox（脚数必须2 倍的头数，请重新输入”）Text2=”Text2。SetFocus 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整
23、word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Else x=n/2 m Label2=y Label3=m-y End If End If End Sub C6 Private Sub Command1_Click（）Dim a！,b!，c！,x1！,x2！，de!a=Text1 b=Text2 c=Text3 de=b b-4*a*c t=2 a If de=0 Then Text4=Format(-b/t,”0。00”)Text5=Format（b/t,0。00）ElseIf de 0 Then Text4=Format(（b+Sqr（de）)/t,”0.00”）Text
24、5=Format（(b Sqr(de）)/t,”0。00）Else Text4=Format（-b/t,”0。00)&”+Format(Sqr(Abs（de）)/t,0。00)i”校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Text5=Format（-b/t，”0.
25、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
26、MsgBox 分母为零，重新输入”Text2=”校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Text2.SetFocus Else Text4=Val（Text1）/Val(Text2)End If End Select End Sub C8 Private Sub
27、 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 7，Is 1 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后
28、实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 MsgBox”数字为 17，重新输入”Text1=”Text1。SetFocus End Select End Sub 或者 Private Sub Text1_LostFocus()If Text1 7 Or Text1 1 Then MsgBox 数字为 17，重新输入”Text1=”Text1。SetFocus Else Text2=Choose（Text1，”Monday，”Tuesday”，W
29、ednesday”，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（)校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入
30、窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 For i=1 To 10 Step 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 Max Then Max=a(i）If a（i）Min Then Min=a(i)Avg=Avg+a(i)Next i Avg=
31、Avg/10 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Print Print Max=;Max;”Min=”;Min；”Avg=；Avg End Sub E2 Private Sub Form_Click（）Dim a a=Array(56，78，98,88，7
32、6，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=0 Then Picture1。Print Next i End Sub Private Sub Command2_Click(）校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您
33、有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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
34、(k）+1 End Select Next i For i=5 To 9 If s（i)0 Then Picture2.Print s（；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 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢
35、迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 d（i3)=Int(Rnd 91+10）Next i3 For i=1 To 10 For j=1 To 10 i If d（j）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)校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程
36、第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Combo1。List（0）=Combo1.List（imin）Combo1。List（imin)=t t=Combo1。List（Combo1。ListCount-1)Combo1.List（Combo1.ListCount-1）=Combo1.List（imax）Combo
37、1.List(imax)=t End Sub E9 Private Sub Form_Click（)For i=0 To Screen.FontCount 1 If Asc（Left（Screen.Fonts(i),1）0 Then Picture1.Print Screen.Fonts(i)Picture2.FontName=Screen.Fonts（i）Picture2.Print 商丘师范学院”End If Next i End Sub E10 Private Type clerk number As String*3 name As String*5 salary As Integer
38、 End Type Dim a(0 To 4）As clerk，n 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Private Sub Command1_Click(）If n=5 Then MsgBox(输入人数超过数组声明的个数）Else With a(n）。n
39、umber=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 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 校对但是难免会有疏漏的地方但是任
40、然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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
41、 Next i End Sub F1 Private Sub Form_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）)校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的
42、全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 For i=LBound（b）+1 To UBound(b）If b(i）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_KeyPres
43、s(KeyAscii As Integer）If KeyAscii=13 Then If Not IsNumeric（Text1）Then 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 MsgBox 输入非数字串，重新输入 Text1.Text=Text1。SetFo
44、cus 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）Then IsH=False Exit Function End If Next i 校对但是难免会有疏漏的地方但是任然希望完整版程
45、序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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 Funct
46、ion 注意冒号和 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)Then 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 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮
47、助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 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 F
48、unction IsWs(m）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 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整
49、答案 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）Loop End Sub Private Sub Command1_Click（）调用 DeleStr子过程 Dim ss1 As String ss1=Text1 Call DeleStr(ss
50、1，Text2)Text3=ss1 End Sub Private Sub Command2_Click(）End Sub F8 校对但是难免会有疏漏的地方但是任然希望完整版程序设计教程第版课后实验完整答案的内容能够给您的工作和学习您有帮助请收藏以便随时查阅最后祝您生活愉快业绩进步以下为完整版程序设计教程第版课后实验完整答案的全部内图片欢迎使用双击窗体卸去图片装入窗体完整版程序设计教程第版课后实验完整答案是图的高度象素单位是窗体的标(完整 word 版)VB 程序设计教程(第 3 版)课后实验完整答案 Private Sub Command1_Click（)Dim maxw$maxlen Te