VB程序设计教程实验指导与习题解答上机答案.pdf

《VB程序设计教程实验指导与习题解答上机答案.pdf》由会员分享，可在线阅读，更多相关《VB程序设计教程实验指导与习题解答上机答案.pdf（74页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、自测自测 1 1程序代码程序代码Private Sub Command1_Click()Private Sub Command1_Click()Label1.FontSize=Label1.FontSize+3Label1.FontSize=Label1.FontSize+3End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Label1.FontBold=TrueLabel1.FontBold=TrueEnd SubEnd SubPrivate Sub Command3_Click()Private Su

2、b Command3_Click()Label1.FontUnderline=TrueLabel1.FontUnderline=TrueEnd SubEnd SubPrivate Sub Command4_Click()Private Sub Command4_Click()Label1.FontSize=10Label1.FontSize=10Label1.FontBold=FalseLabel1.FontBold=FalseLabel1.FontUnderline=FalseLabel1.FontUnderline=FalseEnd SubEnd Sub初始窗口：单机放大之后窗口：单机下划

3、线之后窗口：单击加粗之后窗口：单击复原之后窗口：自测自测 2 2程序代码程序代码Private Sub Command1_Click()Private Sub Command1_Click()Label1=visual basicLabel1=visual basicText1=Text1=程序设计题程序设计题 End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Text1=visual basicText1=visual basicLabel1=Label1=程序设计题程序设计题 End SubEnd S

4、ub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题自测题 3 3Private Sub Command1_Click()Private Sub Command1_Click()Label1.FontSize=Label1.FontSize*(0.5)Label1.FontSize=Label1.FontSize*(0.5)End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Label1.Top=Label1.Top+30Label1.Top=Label1.Top+30Label1.Width=Lab

5、el1.Width+20Label1.Width=Label1.Width+20Label1.Alignment=1Label1.Alignment=1End SubEnd Sub初始窗口：初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题自测题 4 4程序代码程序代码Private Sub Command1_Click()Private Sub Command1_Click()Form1.Caption=VBForm1.Caption=VB 学习学习 Print Print 简单的简单的 VBVB 程序设计程序设计 End SubEnd SubPrivate Sub Com

6、mand2_Click()Private Sub Command2_Click()ClsClsEnd SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click()EndEndEnd SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click()EndEndEnd SubEnd Sub初始化窗口：单击显示之后的窗口：单击去除之后的窗口：单击退出之后的窗口：自测题自测题 5 5程序代码程序代码Private Sub Command1_Click()Priva

7、te Sub Command1_Click()Text1.Text=Text1.Text=Text2.Text=Text2.Text=End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Text3.Text=Val(Text1.Text)+Val(Text2.Text)Text3.Text=Val(Text1.Text)+Val(Text2.Text)End SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click()EndEndEnd

8、 SubEnd Sub初始化窗口：单击运算之后窗口：单击去除之后的窗口：单击退出之后窗：的口自测练习自测练习 1 1Private Sub Command1_Click()Dim a$a=Text1.TextLabel1.Caption=Left(a,2)End SubPrivate Sub Command2_Click()a=Text1.TextLabel2.Caption=Right(a,2)End SubPrivate Sub Command3_Click()Text1.Text=Label1.Caption&Label2.CaptionEnd Sub初始窗口界面初始窗口界面输入字符串输

9、入字符串截取前两个字符截取前两个字符截取后两个字符截取后两个字符字符串连接字符串连接自测练习自测练习 2 2Private Sub Form_Click()Private Sub Form_Click()Dim a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%Dim a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%a=7349a=7349e=a Mod 10 e=a Mod 10 个位个位d=(a 10)Mod 10 d=(a 10)Mod 10 十位十位c=(a 100)Mod 10 c=(a 100)Mod 10 百位百位b=a 1000 b=a

10、 1000 千位千位i=(e+7)Mod 10 i=(e+7)Mod 10 个位个位h=(d+7)Mod 10 h=(d+7)Mod 10 十位十位g=(c+7)Mod 10 g=(c+7)Mod 10 百位百位f=(b+7)Mod 10 f=(b+7)Mod 10 千位千位j=ij=ii=f i=f 交换后的个位交换后的个位f=j f=j 交换后的千位交换后的千位k=hk=hh=g h=g 交换后的十位交换后的十位g=k g=k 交换后的百位交换后的百位l=f*1000+g*100+h*10+il=f*1000+g*100+h*10+iText1.Visible=FalseText1.Vis

11、ible=FalsePrint Print 加密前的加密前的 4 4 位整数是位整数是 7439;(Chr(10);7439;(Chr(10);加密后的结果是加密后的结果是;l;lEnd SubEnd Sub初始界面初始界面单击窗体运行后的界面单击窗体运行后的界面自测练习自测练习 1 1Private Sub Form_Click()Private Sub Form_Click()Dim a%,b%,c%,d%,e%,f!Dim a%,b%,c%,d%,e%,f!a=Val(InputBox(a=Val(InputBox(输入第一个数输入第一个数,输入一个数输入一个数,8),8)b=Val(I

12、nputBox(b=Val(InputBox(输入第一个数输入第一个数,输入一个数输入一个数,7),7)c=a+bc=a+bd=a-bd=a-be=a*be=a*bf=a/bf=a/bf=Fix(f*100+0.5)/100f=Fix(f*100+0.5)/100MsgBox x+y=&c&Chr(10)&x-y=&d&Chr(10)&x*y=MsgBox x+y=&c&Chr(10)&x-y=&d&Chr(10)&x*y=&e&Chr(10)&x/y=&f,&e&Chr(10)&x/y=&f,输出的结果输出的结果 End SubEnd Sub自测练习自测练习 2 2Private Sub F

13、orm_Click()Private Sub Form_Click()Dim a%,b%,c%,d%,e%,f!Dim a%,b%,c%,d%,e%,f!a=Val(InputBox(a=Val(InputBox(输入第一个数的值输入第一个数的值)b=Val(InputBox(b=Val(InputBox(输入第二个数的值输入第二个数的值)c=Val(InputBox(c=Val(InputBox(输入第三个数的值输入第三个数的值)d=Val(InputBox(d=Val(InputBox(输入第四个数的值输入第四个数的值)e=a+b+c+de=a+b+c+df=e/4f=e/4Print P

14、rint 和和=;e=;ePrint Print 平均值平均值=;f=;fEnd SubEnd Sub自测练习自测练习 3 3Private Sub Form_Click()Private Sub Form_Click()Dim h%,f%,x%,y%Dim h%,f%,x%,y%h=Val(InputBox(h=Val(InputBox(输入总头数输入总头数)f=Val(InputBox(f=Val(InputBox(输入总脚数输入总脚数)x=(4*h-f)/2x=(4*h-f)/2y=(f-2*h)/2y=(f-2*h)/2Print Print 笼中鸡的头数为笼中鸡的头数为;x;x;只只

15、 Print Print 笼中兔的头数为笼中兔的头数为;y;y;只只 End SubEnd Sub自测练习自测练习 1 1：Private Sub Form_Click()Dim a%,b%,c%a=Val(InputBox(请输入第一条边,边长)b=Val(InputBox(请输入第二条边,边长)c=Val(InputBox(请输入第三条边,边长)If a+b c And a+c b And b+c a ThenIf a*a+b*b=c*c Or a*a+c*c=b*b Or b*b=c*c=a*a ThenPrint 直角ElseIf a=b And b=c ThenPrint 等边三角形

16、ElseIf a=b Or a=c Or b=c ThenPrint 等腰三角形ElsePrint 一般三角形End IfElsePrint 不是三角形End IfEnd Sub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：直角三角形运行结果：等边三角形运行结果如下：等边三角形运行结果如下：等腰三角形：一般三角形自测练习自测练习 2 2：Private Sub Form_Click()Private Sub Form_Click()Dim a%,b!Dim a%,b!a=Val(InputBox(a=Val(InputBox(请输入请输入)If a Mod 2=0 A

17、nd a Mod 3=0 And a Mod 5=0 ThenIf a Mod 2=0 And a Mod 3=0 And a Mod 5=0 Thenb=Sqr(a)b=Sqr(a)Print a,bPrint a,bElseElseEndEndEnd IfEnd IfEnd SubEnd Sub初始化窗口：初始化窗口：输入一个数：运行结果：自测练习自测练习 3 3Private Sub Command1_Click()Private Sub Command1_Click()Dim a%,b%Dim a%,b%a=Val(Text1.Text)a=Val(Text1.Text)Select

18、Case a 0Select Case a 0Case a 20Case a=20 And a=20 And a=50 And a=50 And a=1c=Chr(a Mod 10+48)&ca=a 10WendText2.Text=cEnd SubPrivate Sub Command1_Click()Dim a As Integera=Val(Text1.Text)Call itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习 2：Public Function area(n)As DoubleDim c#,d#,e#,s#n=Val(Text2.Text)c

19、=(1-0)/nWhile e a(j)Then t=a(i):a(i)=a(j):a(j)=t End If Next jNext iFor i=1 To 5Print a(i);Next iFor i=1 To 5 If Y Combo1.ListCount-1 ThenCombo1.AddItem Combo1.TextEnd IfEnd SubPrivate Sub Command2_Click()If Combo1.ListIndex -1 ThenCombo1.RemoveItem Combo1.ListIndexFor i=0 To Combo1.ListCount-1If Co

20、mbo1.List(i)=Combo1.Text ThenCombo1.RemoveItem iEnd IfExit ForNext iEnd IfEnd SubPrivate Sub Command3_Click()Combo1.ClearEnd Sub运行初始界面:自测练习 7：Private Sub Command1_Click()Timer1.Interval=1Timer1.Enabled=TrueEnd SubPrivate Sub Form_Load()lbltemp1.FontSize=20lbltishi.FontSize=20Label1.FontSize=20Label2

21、.FontSize=20End SubPrivate Sub Timer1_Timer()VSbwd.Value=VSbwd.Value+10lbltem=VSbwd.ValueIf VSbwd=100 Thenlbltishi=水开了Timer1.Enabled=FalseEnd IfEnd Sub运行初始界面：运行结果：自测练习 1：Private Sub myhelp_Click()frmAbout.ShowEnd SubPrivate Sub mymenu1_Click()Text1.Text=百货大楼End SubPrivate Sub mymenu2_Click()Text1.Te

22、xt=利客隆End SubPrivate Sub mymenu3_Click()Text1.Text=稻香村End Sub运行初始界面：运行结果界面：自测练习 2：Private Sub Dis_Click()Text1.Text=菜单程序设计Text1.FontSize=20Text1.FontName=黑体End SubPrivate Sub Hid_Click()Text1.Visible=FalseEnd Sub运行初始界面：运行结果界面：自测练习 3：Private Sub vbhelp_Click()r=MsgBox(帮助,程序设计题)End SubPrivate Sub Vbne

23、w_Click()r=MsgBox(新建,程序设计题)End SubPrivate Sub vbopen_Click()r=MsgBox(翻开,程序设计题)End SubPrivate Sub vbsave_Click()r=MsgBox(存盘,程序设计题)End Sub运行初始界面：运行结果：自测练习 4：Private Sub Command1_Click()CommonDialog1.Action=1List1.AddItem CommonDialog1.FileNameEnd Sub运行初始界面：运行结果：自测练习 1：Private Sub Command1_Click()Dim a

24、 As String,n%,i%,j%Open E:Data.txt For Input As#1Input#1,an=Len(a)j=0For i=1 To nIf Mid(a,i,1)=%Then j=j+1Next iClose#1Open E:Datares.txt For Output As#1Print#1,jClose#1End Sub运行初始界面：运行结果：自测练习 3：Private Sub Form_Click()Dim x$Open e:txt2.txt For Input As#1Do While Not EOF(1)Line Input#1,x$LoopClose#1

25、Open e:txt1.txt For Append As#1Print#1,x$Close#1End Sub运行初始界面：自测练习 4Private Sub Form_load()Print 26 个英文字母PrintPrint a b c d e f g h i j k l m n o p q rs t u v w x y zPrint 字母个数分别为End SubPrivate Sub Form_Click()Open E:Data.txt For Output As#1文本$=InputBox(请输入文本)n=UCase(文本$)Print#1,nClose#1Dim a%()Open E:Data.txt For Output As#1For i=1 To Len(n)ReDim Preserve a(1 To 26)j=Asc(Mid(n,i,1)-64a(j)=a(j)+1Next iClose#1For j=LBound(a)To UBound(a)Print a(j);Next jEnd Sub