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

1、自测1 程序代码Pr i vate S ub m a nd1_ C li c k()Labell、FontSiz eLa bell、Fo ntSi z e +3End SubP r iv ate S ub ma n d2_Click ()Lab el1、F ont BoldTrueE n d Su bPri V at e Sub ma nd3 _ Click()TrueLabel 1、 Fon tU nder li neE nd S u bPr ivate Sub ma nd4_Click()L ab el1 、 FontSiz e = 1 0L a be l1 、 FontBold = Fa

2、lseL a bel 1、F ontUnder l ine = Fal seE nd S ub初始窗口 :口 Forml天道a®加組单机放大之后窗口 ：口 Forml天道酬勤下画线单机下划线之后窗口：r口 Forml匸回天道酬勤预大 - 、11下画线1 "lIPHII lllHIlllllIHll HI ir M1迪膜1单击加粗之后窗口 ：口 FormlI中I回IfT天道酬勤单击还原之后窗口 ：口 Forml天道酬勒下画线加組自测2 程序代码Priv a te Sub mand 1 _C lick()La be l1 =” visu al basic"T ex t

3、1 = ”程序设计题"End Su bPri va te S ub ma nd 2 _C 1 ick()T e xt1"v i sual b asic"Labe 1 1 ="程序设计题”E nd Sub初始窗口 ：FormlLal ell显示单击显示之后窗口 ：Formlrisual basic程序设计题单击交换之后得窗口:Forml显示i 交撫 iji"ni ! Illll !“! I“l»ll ! I»r自测题3Private Sub m ad 1 _CI ick ()Lab el 1、Fo ntSiz=L a bel

4、1、FontSi z e *(0、5)En d SubPr i va te Sub mad2_C lick ()La bel 1、TopLab el 1、Top +30Lab el1、Wi d t h = Labell 、Wid th + 20Labe l1、Alignm e nt = 1End Sub初始窗口:口 Form!标签的属性设置nll IIM-IIII H-H llll-HIIIIlllll IIIIH-IIIIH-IIIIII-HIIII-h.向右下角移动I 縮小两倍 s单击缩小两倍之后得窗口:口 Form!标签的屈性谟置向右下角移动nll IIM-IIII H-H llll-H

5、IIIIlllll IIIIH-IIIIH-IIIIII-HIIII-h.i 捌讷倍 !ig11 -'ll II- in T- -T-'i 1 (亠单击向右下角移动之后得窗口:口 Form!标签的属性设置缩小两倍冲 lllhHII IHH IlliIIII4-IIII Illi mi IIKHIII i向右下角移动自测题4 程序代码Priva t e Su b mand 1_Click ()Fo r m1、C a ptionP r in t简单得VB程序设计”End SubP r iv a te Sub mand 2 _Click ()CisEnd S ubPriv a te

6、Sub m a nd3_Click ()En dEnd Su bPrivate Sub mand3_ C lick ()En dEnd Sub初始化窗口:口 Forml单击显示之后得窗口 ：口 W学习1 =回育单的VB程序设计单击清除之后得窗口 ：Ip丨回退出单击退出之后得窗口 ：|2 6丛4TaA E曰 a0 口-I D口雀(hh4Cim-v.二卍 rfli «44i 斫血©讪 AT 出11 莘AJ Cn> MHP 旦超rf曲甘* 吩Ln(3L 1 iTo"E2>LnST；71 '-Kk-rh >卄“ ta皿肚 rhipj+iMUMk-

7、 ixb'pLiI* wTxnzcL *Ei*”'w+1-R * +土屮如'£Hi"LMrri3 - 1>*|亠廿zKm4lrn JUlVri-* - 5.J.LL. ah L a、"53T e x t 3、Te xt =V a l (T e xt1、T e x t ) +V a l(Text2、Tex t)自测题5程序代码Pri V ateSub mand1_Clic k()Text 1、T ex t =T ex t2、Tex tEnd SubPriva t e Suban d2_C l i ck ()加数一加数二E nd S ub

8、Pri V ate S ub man d 3_Click ()EndE n d S ub初始化窗口:口 FormlI-ob JU IBEHI加数一加製二结杲1 1 '清除运聲1退岀1单击运算之后窗口:口 Form!间IK3|3 I退出运g.I fclllIlfc,单击清除之后得窗口 ：口 Forml加数一加数二退出_1T iQx童 I gJ «. JV 4= 曰3El a?-in- 0!二& np «C«< 手曲£出 W U 鼻 MIQAJ 口妙 MB i 尸* "丿 P 超 rf 穴 H * 叮 L+上哼i ITaA E

9、0 口-I D口雀a0 Fn-mL'a 'S ' 14 r®l Tvnt ihwflrni-vpj Mlta皿肚 llUPJ + l MUMk- lik-pLi I* aU r SW內 rMl Tsl 51'iHi片 pL31>*|亠廿zkHE-4lrO-WSXVTT-i* - 5.j.LIlEHrR-hLi|<'-mb-<i T-na '-Kk-r fi-H wTxnzcL *k*”'= +1-R * +土屮自测练习1P r ivate S ub ma nd 1_C li c k ()Dim a $a = T

10、ext 1、TextLab el1、Ca pti o n 二 Lef t(a,End SPri v aS ub mand2_Q ick()a = Textl 、TextLabe 12、Capti on = R i gh t (a,2 )End SubPr i va te Sub mand3_Click()Tex t1、Text = Label l>Ca ption & L a bel2、C ap t ionE nd Sub初始窗口界面口 Forml截舉肆个宇符串连接输入字符串口 Forml宇符串连接截取前两个字符口 Forml戳礪靈词 截舉霁个宇符串连接截取后两个字符口 Form

11、lni宇符串连接字符串连接口 FormlniIVO截軽函个宇付存符串连接I自测练习2Pr ivate S ub F orm_Cl ick()Dim a%b%，c% ,d%, e%j%，k% , l%a =7 34 9e =a Mod1 0 '个位d=(a 10) Mod 10 ' 十位c =(a 10 0)Mod 10 ' 百位b 二a 1000 '千位i 二(e + 7) Mod10个位h=(d + 7)Mod 10'十位g = (c 7) Mod 10 ' 百位%，g%, h %,1% ,(b + 7) Mod 10 / 千位交换后得个位交换

12、后得千位' 交换后得十位g = k'交换后得百位l = f *1 0 0 0 + g * 100 + h *10 +Text 1、V isible = Fa IsePrint ”加密前得4位整数就是74 3 9"(Ch r(10 );"加密后得结果就是” ；1End Sub初始界面口 Forml单击窗体运行后得界面口 Forml加密前的4位整数是7439加密后的结果是6104自测练习1Private S u b For m_Click ()D im a%, b %, c %, d% , e% , f!"输入一个数",8)a = Val (

13、I npu tB o x ("输入第一个数"b = Va 1(1 nput B ox( ”输入第一个数","输入一个数",7)d = a ba / bf = Fix (f 兴 1 00 + 0、5)/1 0 0M s g Box " x+y二"& c & Chr(10) & ” xy二”& d&Chr(1 0)& ” x*y= ” & e &C hr(10 )&"x/ y ="&f,"输出得结果”E nd S u b

14、x+y=15x-y1如1J4自测练习2Pr i vate Sub Form Cli()Dim a %b%,c%,d%.e % f!a = V a 1(1 n p ut B ox("输入第一个数得值"）b = V a l(I n put B ox ("输入第二个数得值")c = Va 1( In p utBo x（”输入第三个数得值"）d = V al (Inp u tBox（"输入第四个数得值”）e = a + b + c +Prin t "与二” ;ePri nt "平均值二"fEn d Sub口 Fo

15、rml1° 同 UW牡10 羽均值=2.S自测练习3Pr i V at eSu b Form_C lick ()D im h %, f %,X%, y% h = V a 1(1 npu t Box (” 输入总头数”)f = V a l(InputBox("输入总脚数")h f) /2y = (f - 2Pr in t "笼中鸡得头数为"；X； ”只”En d Su b口 Forml自测练习1:Private S u b F or rl C li ck ()Di m a%,b %, c%a = Val (In putB o x ("请

16、输入第一条边”，"边长")b = Val(l nputB ox (”请输入第二条边”,"边长")c = Val(ln p utBox ("请输入第三条边”，”边长”)If ac And a +c > b An d+ c > a The nIf a *c Or aa + c * c = b* bOr b *Prin t”直角”El s eIf ab And b =The nPri nt ”等边三角形"Elself a = b Or a = c OrenPr i nt ”等腰三角形"E1 sePrint "

17、般三角形"End IfEl sePrin t "不就是三角形"End IfEnd Sub不就是三角形运行结果:初始窗口:r口 Forml1口| 回laoHr输入三条边：运行结果:直角三角形运行结果 :等边三角形运行结果如下：等腰三角形：般三角形自测练习2 :Pr i v a te Su b Fo r m_CI i c k()Dim a %, b!Vai (I n putBox("请输入")If a Mod 20 An d a Mod 3= 0 And a Mo d 5Th enS qr(a)Pr i nt a, bElseEn dEnd IfE

18、nd Sub初始化窗口:口 Form!输入一个数:运行结果:口 Forml"305.477££e自测练习3Pr i V ate Su b man d1_Cl ick()Di m a% b% a = V a l (Textl、T ex t)Se lect Cas e a >0Cas e a 20"行李费"Msg Box "行李费为 0、2 元/ kg",Cas e a >= 20 And a < 50MsgBox ”行李费为0、3元/k g ",”行李费"C a se a >=5 0

19、And a 1 0 0MsgBoc "行李费为0、4元/ kg” ,"行李费”Case E lseb = 0、2 兴 1 0 0+ (a1 0 0 ) * 0、5 : M sgBo x "行李费为"&b & "元”，"行李费"E nd Sele ctEnd Sub初始窗口 ：口 Form!Comm anil输入10 :输入25:输入55:输入12 0:自测练习1Op ti o n Base 1Pr i vate S u b Form_C 1 ick ()Di m i%, a( 1 T o 20 )As In

20、teg era (1 )= 1： a 二 1Pr int a ( 1);P r i nt a(2);For i3 To 10a (i)a (i - 1) +(i - 2)Pr i n ta( i )；Ne xt iPrin tFor iTo 11)+ a (i - 2)Pri n t a (i );Next iPri ntFor i=17 Toa( i)a( i-1) + a(i -2 )P ri nt a( i )；Next初始界面:口 Forml运行结果界面:自测练习2Forml、Wi dth = 10000Op tion BaselPr i va te S u b F o r m L o

21、 a1的CJ£呕153 27gO 5113 & T1 6B FormlFor ml、Heigh5 000E nd SubP rivateSubmand1 Cl i()i% ,j% ,t %,a(1To4 ,1 To 4) As I nt ege rFor1 To 4For jj) = Int( RnPi Ctu re1、Pr in t(i, j）；N ext jPicture1 、Pri n tNex t iP ic t u r e3、Prin t "对角线得元素如下”Fo r i=1To 4Pi c t ure3、Print aNextiPic t ure 3、P

22、ri n tFo r i= 1T o 4Pic tur e3、Pri n tNe xtiFor i= 1To 4t = a( 1, i)a(1, i )= a( 4, i )a(4,i)=tNextiFor i=1To 4t = a (i， 2)a(i.2)= a(ia( i ，3)二tNex t iFor i = 1To 4Fo r j =1To 4Pic ture2、Print a(iNext j, 3)i， i );a (i,5 - i);j);P ictu re 2、 Pri n tN ext iEnd S ub运行初始界面:运行结果界面：鬥 rOTulw fl538 4086Q 3

23、J LD31393 fls wj赚1入矩阵并处理:hpi'-llll'' !Il'' ''ll自测练习1Sub i t ost r(a As Int e ge r )Di m b% c$a = Va 1(Text 1、Tex t)While ac - Ch r(a Mod 10 + 48)& cWen dTe xt2、Text = cE nd S u bPri V ate S ub mand1_Clic k ()Dim a AsIn t e gera = V al(Tex t1、T e xt)Call itost r(a)End

24、Sub运行初始界面:口 Forml433运行结果界面：口 Fornnl4S3HI! HI IHBIM HIBimiMI转换453验证其她数字:口 Fornnl365自测练习2:P ub li c Funct ion a rea (n) As Do u bleDim c# , d #, e# ,s #n 二 Va l(Te x t 2、Text)(10) /Whil e e二 1(I + 1)(Si n(d)+ Si n(e)決 c / 2Wend area = sEnd F unc t io nk ()Priva t e Su b m a nd 1 Cli cD im s A s D o u

25、b l eCa l l area ( n)Tex t1、Tex t = ar ea(n)End Sub运行初始界面:口 Form!200|区间个数运行结果:Pr ivat eSu b Fo r m_3 l i ck()V al(I nputBo x(”请输入n得值")x = Va l(Input B 0x(”请输入x得值H )P rin t"e得值="(n.x)口 Form!区间个数200圭袒吩的值yH. g 运 i.4&3 1031360674 H H H . . p算:自测练习3End S ubPr ivat eFun cti on es(n,x)Di

26、 m aAse, bDou bl e , c As Doubl e,i A s I nt eg era = 1: b1: c = 1Fori =1 Ta = x 兴 a: b = b 兴 i :Next i es = cE nd Functi o n运行初始界面:口 Forml输入数据:运行结果:口 Form!I銚=5自测练习4:F or i = 1 To 4F or j = iIf a(i )> a (j ) The na( i) : a (i)a(j): a (j ) = tEnd IfNex t jN ext iFor i =1 T o 5Pr in t a(i )；”HNe xt

27、 iFor i = 1 To 5I f Y < a(i)T h en(i ): a (i) = Y : Y 二 tEnd I fNextFor6) = tNextEnd FunctionPri V at e Su bm and 1 _Click()% (1 To 6) , Y%Y二Val (In pu t B ox (”输入y得值",”输入数据”)I nser t fun a %(), YPrintF or i = 1 To 6P r i n t a( i);""Next iEnd Sub运行初始界面:口 Forml播入插入数据:运行结果:口 Forml3G

28、 3T K £27312插入4101 1060蓝志鹏 资源1102实验8 自测练习1:Pr ivate Su b ma nd 1_C1 i c k ()If C h1、Value = 1 ThenTex t1、Te x t = ”报名参加羽毛球比赛”End IfIfC h2、V a 1 ue1 Th e nText1、Text = ”报名参加乒乓球比赛”End I fIf Ch1、Value = 1A nd Ch2、Va 1 u eIT h e nTex t 1、Text"报名参加羽毛球，乒乓球比赛”En d I fEnd Sub运行初始界面:巴 F&i-rr l运

29、行结果:G ssL适宦巨恕善叱曲-绘胆匡£g證lfc0d亡諸斗叫住恥电熬WES樽曙ISJOd 亡Pri V at e S ub F or m_Load()L a bel 1、Alig nm en t 二 2La b e l1、F o ntSi z e = 24Lab el1 、 FontName = " 黑体 "Label1 、 ForeColor = &HFF E nd SubPrivate Su b O pt i on 1_Click ()Label1、C ap t i o n 二”我就是学生"End SubPri vate S u b O

30、ption 2 _Click ( )La bell、Capt ion 二”我就是教师E nd SubPri vate Sub O pton 3_Cl ick ()L ab el 1、Caption =我就是工人E nd SubPriV ateS ub Option4_Cli ck()L ab el1、Caption ="我就是农民En d Su b运行初始界面：鬥县亦ar业丨=1回我是学生帝译生：L教师r工人广农艮iinn 运行结果:我是教师I “ “ I I “ H I鬥昱示左业丨J回U'我是工人广学生 、<-敎师«工人！ * !我是农民广学生敎师r工人 V

31、IBIirHIlBM 自测练习6:Privat e S ub m and1_Click()For i0 T o b o1、Lis t Count -1Ifb o1、List (i ) = bo1、Text ThenEx it F oEnd IfNext i1 Th e nf i > b o 1、 Lis t Cou nt bo 1、Ad dit e m bo1、TextE n d IfEnd S ubP riv a te Sub mand2_ Click ()If b o1、LiIn dex <> -1 Thenbo1、R emoveItm bo1、Li s t I nd e

32、xF or ibo 1、 L i stCou nt 1If bo1 、 Li sti)=bo1、Text T h e nbo1 、 RemoveIt em iEnd IfE xit Fo rNext iEnd IEndSu bPriv ate Sub m a nd 3Cl ick ()bo1、Cl e a rEnd Su b 运行初始界面：口组合惟的便用american czkinese eitgLsh Fuji an hiixi itili ui Ecoltland rhuigpu1砒添加口组合框的便用自测练习7:Pr ivat e S ub mandlC lick ()Timer1、I n

33、ter v al =1Timer1、En ab 1 e d = T r u eE nd SubP ri va te S u b Form_ L oad ()Iblt e mp1 Font Siz e = 20l b Itis h i、Font S iLab el1、FontSize =Lab eI2、Fo ntSiz eEnd SubPr i V ate S ub Tim er1Timer()0VSbwd Val u e = VSbwdVa I u e + 10Item = VSbwd Va lueIf VS bwd >=100 ThenIbIti shi ="水开了”Time

34、 r 1、En abIed = F al s eEnd I fEnd Sub运行初始界面:口 FormlIC L水温:开始加热运行结果:S Forrril1C水温：100水开了irHiiirwii iiraiiii rm iiirmi irHiiirwii iiraiiii rm i“miiq开始加熟自测练习1:Pr ivat e Sub myh e lp_Click () f r mAb out、ShowEnd S ubP riv a te Submyn enu 1 _Click()Te xt 1、T ext = ”百货大楼"End SubPr i vate Su b my me

35、n u 2_Click()T ext1、T e xt"利客隆”End SubPriv a te S ub mym e n u3_Clic k()Text 1、Te xt ="稻香村”End Sub运行初始界面：録 FotbI回冈运行结果界面:*关干工程1冈压工程1就 K , 0. 0应用谨序搐谨st告，戸 J.J厂Wii目JillIII卜ZUIIIIUTIIIIJIIIIIII-rI茶统信息(£1 . 1自测练习2 :Priva te Sub Di s _Cli ck ()T ext1、Te X t”菜单程序设计”T ext1、F ont SizeTe xt1、F

36、 ontName="黑体"EndS ubPriva te Sub Hi d _Clic k ()Tex t 1、Visible = F als eE nd S ub 运行初始界面:运行结果界面:菜单程序设计鬥菜羊程序设计自测练习3:Pr i vat e S u b vbhel p _Click()r = MsgBox( ” 帮助"”程序设计题”）End SubP ri V ate S ub Vbn ew _C1 ick()r = M s gB ox （新建",”程序设计题”）End Su bPri va te S u b vbop e n_C l i c

37、k ()MsgBoxC打开"，,"程序设计题"）End SubPri V ate Sub vb s ave_Cli c k ()MsgB 0x（ ”存盘”，"程序设计题"）End Sub运行初始界面:口菜单的使用文件赳助运行结果:自测练习4:Pri V at e Sub m a nd 1 C lick()mon Dial o g 1、A ct i on =1Li stl、Add Item mo nDial o g1、End Su b运行初始界面:匚冗I冈録Fy 1运行结果打开厂以只读方式打开©)S找范圉Q):述地朗盘CD：)我近的文档

38、0桌両我的文裆我的电屉眶上邻居O4112L0260111301100*1145029口41179012-辛达-经济 L101.r k«j'TempffySoft第五次实验5求文裆 a新連文件夹 曹 2007423192945824 'iniVCe0 so£ou_pLnyx n_61 _5909JffySyst e(nM喪单2E3 殁单2. sex*第五次实脸要求文裆 也复件荃本操作测试內容 上数据1 国数据1争数据1 dbc 0我们祁愛VII前挪Uim冥脸7点评打开S找范圉Q):厂以只读方式打开©)J本地朗盘CD：)I打开(Q) I取消I曲我近的文档O4112L026 4H3OHO0*1145029口41179012-辛达-经济 L101Bj.rik«j'TempffySoft第五次实验5求文裆新連文件夹旳 2007423192945824&