中国石油大学华东VB练习题10至15周程序题总括

《中国石油大学华东VB练习题10至15周程序题总括》由会员分享，可在线阅读，更多相关《中国石油大学华东VB练习题10至15周程序题总括（41页珍藏版）》请在装配图网上搜索。

1、1、(1）Prive SubCommand1_Click(）e3Txt = * (Vl(Text1.ext) Val（Txt2.Text)）Text4.Tex=al（xt1T)* Val（Text2.x）End S（2)Priva Sub omnd_Click()Txt3.x = tr(2 * (V(extext) Val(Txt2Tx)Tt.Text St(Val(ext1.Tt） al(Text2.Text)En Sub（3） Sub Commnd1lick()DimAs Doule, k Duble， z Double, m Double = l(Tet1Text)k = Vl(Text

2、2ex) = 2 * (c + k)m =c * kTex3ex = tr()e4.Tt tr()EnSub2、(1）rivateSu Cmad_Cick（) Tex2.t 2*35926* Val(Text1.ext) xt3.et 3.145926* Val(ext1T） 2 Ed Sub（2）PvateSub Cand1_Clk（) ext2.Tet = Str（ * 3141592* Val（Text1Text)） et.e S(3.41526 Val（1.Txt) ) E Sub(3)rivteSubommnd1_Cck（) = Va（Tx1.Text） p 2 * 3.41526

3、r s =3.141926 * r 2 Tex2 = Text3 =sEdSub3、(1）vate Sub Cmmn1Cli()Txt3.ext = Val(Text1ext) / Val(Text2.Text)En (2)PrivaSub Comn1_ik（）Tet3.Text =Str（Val(ext1.Text）/ l(Txt2.et)Edu(3）Privte S Cmmand1_Cick(）Dim rmbAs ouble， bl As Dobe, y Dbemb= Val（Text.Te)bl = Val(TtTxt)my = rmb / bl3.Text = Str（y)d ub1、

4、在上方文本框e中输入任意位数,单击“解决”按钮Comn1,将这个两位数逆序输出到下方文本框Txt2中。 Private Sub Command1Cick(）s =Va(Txt.Tet) = (ysod 10)* 0 +(s 10)Text2.Tet = nsnd SbPriat Command1_Cik（）ys = Text1.etns Rht(ys， 1） &Left(,1)Tex2.ext = nsn Subrivte Sub ComaClick（) =Text1Texn =id（ys,2， 1) Md(ys, 1,)Text2.Text =nEnd Sub、在上方文本框ext1中写入一般

5、手机号码，点击转换按钮Cmmd1，将一般手机号码转为加横线的手机号码写入Tex文本框中。相反,在下方文本框Text中写入加横线的手机号码，点击反转按钮Commn2,将加横线的手机号码转为一般手机号码写入Text1文本框中。 rivate Su CmmanClic(）yhm Tet1.extxh = Mid(ym，, 3) & - Mid（yhm, 4， 4)& Mi(ym, 8,4）ext2.Tet = xhmd Suivate u Commnd_Clik()m=ext2.Textxhm = Md（m,1, ) & Mi(yhm， , 4) & Rigt（ym, 4)Tt1.Text= xhm

6、Ed Sub、在文本框ext1中写入一字符串，点击解决按钮ommand1,则将Tet中所有小写字母转换为大写字母,成果写入文本框et中,并计算Tex中字符个数写入文本框Tx3中。 Prvate Su Comad1Cic(）yz Text1.extxzf = UCse(z)zfgs Le（yzf)Tex.ext = xzfText.Text = zfgsEndub4、在ttCies、txtMat文本框中分别输入“语文”和“数学”的成绩,单击“计算”按钮cmomp，程序计算出总分和平均分，分别放入txtm、txtvg文本框中；单击“清空”按钮cmdear，将4个文本框清空。 PrivaeSub c

7、mClerCick（）txCieText = ttMath.Tet txmTex tA.Text =End SubPrveSub cmdCm_Clck()zf= al(xChinese.Tet) Vl（txtMath.ext）pjf zf /2txtSmText = zfxtvgTet= pfEn Sub1、在文本框txtNm中输入姓名，点击按钮“你输入的姓名是”(Coman1)，在旁边的标签lblame中显示xtName输入的姓名 Prvate Sbommad1_Clik()lblame.Captn= ttNameetEnd Su2、单击窗体时,选中文本框et1中的第2第4个字符，复制到文本

8、框e2中 ivat ub Fom_Click()Text1.elStar = Text.Seenh = 3Text2.ext = Text1.SelTetSb3、点击“密码字符”按钮omad1，使Tt1中的内容用*显示 点击“原始文本”按钮Commad2,使Tt1中的内容恢复正常显示点击“锁定文本框”按钮Command3，将文本框Txt锁定 点击“解锁文本框”按钮Coand4，将文本框Text取消锁定 点击“文本框无效”按钮Comnd5，使文本框ext1无效 点击“文本框有效”按钮Command6,将文本框Text1有效 此外,在文本框Tet1中输入删除修改内容时,文本框Tet内容始终与Tex

9、t1保持一致 Privae Sb mmnd_lick()et1.PaswordCar=*End Subrvae Su Comand2_lick(）T.Passwodhar = EndSuPive Sub Coman3_Cick()Tt1.Locke TrueEnd Subrveub Command4_ick()Text.Loke=FaleEnd ubPrivte ub Comman5_Click()TextEabld = Falsed Sub、程序运营时，在Tt1中填入文字,在ext2中填入正整数字号 点击“增大字号”按钮Command1,使Text1的字号增大ext2中指定的数值 点击“减小

10、字号”按钮omand2,使et1的字号减小ext中指定的数值点击“设立字号”按钮Comnd3,使Text1的字号设立为et中指定的数值Pit SbCommad1lik()Tet1.ontSie = Text1.FontSz Val(Tet2.Tex)End SbPrivateSu CommaClck（)Text1.FntSize=Txt1.onSz - Val（ext2.Tex)End SbrivaeCommad3_Click(）Tt1.FontSize al(Tex2.Text)EdSb5、顾客单击窗体时，文本框Tex1的值在其原值基本上递增长1。程序运营起始时次数为（文本框初始值为0）。r

11、ie S o_Clik（）Text1Tt Vl（Text1.ext) + End ubrivate Sub Form_L(）Text1.Tet = End Sb6、点击“复制文本”按钮Commad1，将Text1中的内容复制到Text中 点击“复制选中文本”按钮Comnd，将xt1中选中的内容复制到Text2中点击“隐藏文本框”按钮Cmmad3,将文本框Tex隐藏点击“显示文本框”按钮Comand4,将文本框Text1显示(取消隐藏） Privat S ommand_Click（)Text2.xt= Tet.TxtEn SubPrivae bComman2_Cik()Tex2.xt Text1

12、.SelTexEnd Sit SubComand3_ick()Tet.Visible=FlseEd ubivat uomand_Cli()Text1.ible = reEdb7、“向上移动”、“向下移动”、“向左移动”、“向右移动”四个按钮的控件名分别为ComndComand4。单击按钮,窗体向相应的方向移动10个单位 rvate Su Commn1_Clc（)or1Tp= orm.Top - 00nd Subiate Su Can2lck()Fom.To Fom1Top + 100nd Subrvat SubComndClic（)For1Lt =Fom1Let - 0nd SubPriate

13、 ub Cmmad4Click()orm1.Let =Form1.Left + 100d Sub8、单击“产生”命令按钮omd1，在上面三个文本框TextTt3中分别输出随机产生的个正整数，其中1个1位数(09），1个2位数，1个3位数。单击“计算”命令按钮Comad2计算它们的平均值，四舍五入保存2位小数,成果在标签Lblvg中显示。注意：本题需使用AB区间随机整数公式。随机函数请使用n()，不要省略括号。Prite b Comand_Click(）D w1， 2%, w3%anomzew= It（(9 - 1)*Rnd() + 0)2 = Int(- 0 1)*Rn（）+ 10)w Int

14、(99- 0 + ） Rd(） 100)Text1.w1Tet2.xt= 2Txt3xt = 3End uPrivate SuCmmand2lic()Dm w1, w2%， w%, pjz#w = Va（TextTet)w = Val（Tx2.xt） =Vl(Text.Text)pjz= （w1 +w2 + w3) / pjz = Rd(jz,)abelvg.Cation = pzn Sub、在文本框ex1中写入一字符串，点击解决按钮Comand1，则将Txt1中所有小写字母转换为大写字母，成果写入文本框ext2中，并计算Tex1中字符个数写入文本框Tex3中。 Privat Su ommnd

15、Clc()Text2.Text = UCas(ext.Text)ext3.Tex = Len(ext.ext)End Sb10、在上方文本框Text1中写入一般手机号码，点击转换按钮Commd,将一般手机号码转为加横线的手机号码写入Txt2文本框中。相反，在下方文本框Tex2中写入加横线的手机号码,点击反转按钮oma，将加横线的手机号码转为一般手机号码写入Tet1文本框中。Priate SubCmman1_Clck()exTx= Le(ext.Tet，) & - & Mid(xt1.Txt,4,4) & - &Rih(xt1.Tex, )E ubPrivateSubComnd2_Clk()Te

16、x.TextLeft(Txt2.Text,3） &Mid(Text2.Tet, , 4) Rght(Text.xt, 4)nd Su、单击“产生”命令按钮Cmmand,在上面三个文本框TextTe3中分别输出随机产生的3个正整数，其中1个1位数(09),1个2位数,个3位数。单击“计算”命令按钮ommn2计算它们的平均值，四舍五入保存2位小数,成果在标签Labelvg中显示。 注意:本题需使用AB区间随机整数公式。随机函数请使用Rn()，不要省略括号。 Priae Sb ommad1_Clic()D w&, w2&, w3Ranize1 = Int（( - 0 + 1） *R（)+ 0)2 =

17、Int(99 - 10 + ) * Rnd()+ 0)w3 = Int(99- 10 +1） Rnd（) +100)Text1.T w1et2.Tex = wTx.Tex = w3End Subrivate Subommad2_Clc（)Dim w1&, w&, w3, pj#1 = l(ex1.Text)w = Val(Text.ext)3 = Val(Text3Text)pjz= Rod(1 + w+w3)/ 3, 2)LbelAvg.Cao =pjzEnd Sub2、在txtChise、txtM文本框中分别输入“语文”和“数学”的成绩，单击“计算”按钮cmCom，程序计算出总分和平均分，

18、分别放入xtSum、ttAv文本框中；单击“清空”按钮cmClear，将4个文本框清空。 PrivteSub mdClea_Click(）txtChinesTe = ttMtxt = txtSmTxt= txtAvg.et= En SubPivate Sub cmpCli(）Dim yw As Double, x As obeDizf As Doue，pj AsDoubyw= a(tCheseTe)s = Val(tMth.Tet)zf = w + sxf=f / txtS.Text= ztxtAText pfnd Sub3、已知火车的出发时间和达届时间，编写程序计算整个旅途所用的时间。出发时

19、间相应的文本框为Txt1和ext2,达到时间相应的文本框为Txt3和Tex4,旅途时间相应的文本框为ex5和et,计算按钮为Cmad。（时间形式：小时：分钟,24小时制）Private Sub omman_Clik()Dim cf%,cf%， ds%, df%, ltsj%im lts%, lffal（Txt1.Text)cf = Va(Txt2.Tx)dd =Val(Text3Text)ddf Va(Text4Text)ltsj = (dds * 0 ddf) -（cfs 0 + cff）lt ls 60ltf ltj Mo 6Text5.Text= ltset.Tet =ltEnd Su4

20、、在上方文本框ext中输入任意位数,单击“解决”按钮mma1，将这个3位数逆序输出到下方文本框Tet2中。 iva Su Coand1_Clk()Dm s%， ， s%， g,n%ys= Val(Text1.Txt)b It(ys 100)s =t(ys - b * 100) 1) s - * 10 s 10ns= g *0+ s 10 +bText2.Tt = sEnd ub、已知火车的出发时间和旅途所用的时间,编写程序计算火车达到的时间。出发时间相应的文本框为Tet1和Tex2,旅途所用的时间相应的文本框为ex3和ex,达到时间相应的文本框为Tet和Tx6,计算按钮为Com1。(时间形式:

21、小时:分钟，2小时制） rivte SubComd_Cl()Dimfs%， c%, ls%,ltf%, dsj%Dim dds%,ddfcs Val（Text1.Text)cff Val（Text.ext)lts = Val(Text3Text）ltf= Val(Tet4.Tet)dj = (cs * 0 ff） + (lt *60+ lf)ds dsj 0f = ds Mod0Tx5et= ddText6.et = dnd Sub1、顾客单击互换按钮Cond1，互换个文本框Txt和et的内容Prvate Sub CommndCi()Dim tem$tem = xt1.Textet1xt Te

22、xTextTx.Text= tepd Su2、点击按钮Command1,程序分别输入矩形的长和宽，输出矩形的周长和面积,成果保存2位小数。使用InpBox和MsgBx完毕输入输出。(第一次输出矩形周长,第二次输出矩形面积）ria SuCoand1_Click（）Dim c#, k， p#,# = Val(nptox(c=?)k= Val(pBo(k=?)）p =Roun(2 * ( + k)） Rond(c k， 2）Msgoxstr（)MgBoxstr()End Sub、点击按钮Comm，程序输入圆的半径，输出圆的周长和面积,成果保存位小数。使用InputBox和MsBox完毕输入输出。(P

23、I为3.14，第一次输出圆周长,第二次输出圆面积）rivae b omad1_Cic()D r#， ,p# Val（InptBx(r?) Round(2 3.14 * , 2)s= ou（.14 * r，2)Mso str(p)MsBx st(）nd Su、在文本框Tex1中输入1个小写英文字母，点击加密按钮om1,则将该英文字母变为字母表中其背面的一种字母放入文本框et2中，如a改为b,m改为n，改为a,以此类推。点击解密按钮Comand2,将文本框Text2中字母解密后放入Tex1中。 PriveSbCmmad1_Click（)im w As Strn *,w Strig * 1y =Te

24、xt.Tetmw=Chr(97+ (Asc(） - 97 + 1） Mod2) 或Ch(Asc(“a”） +(sc(w) sc(“”)+ 1)26）Text2.Te = mwEn Sriva ub Cmmnd_Clc()im w As Sring * 1， m As Sr * 1w =Tex2.Te = Chr（122 +（Asc(m) - 12 - 1)od 26) 或Chr(sc(“z”) (Ac() Asc(“z”) 1) Mod 26)ext1Text =ywEnd Su、在文本框ext1中输入1个小写英文字母,点击加密按钮ommand1，则将该英文字母变为字母表中其背面的第N个字母放

25、入文本框ext2中，N表达加密措施,由Text3中的值指定。如N为，则a加密后变为c，z加密后变为b，以此类推。点击解密按钮omman,将文本框Text中字母解密后放入ext1中。 rivate Sb Comman_Clck(）Dim yw s ting * 1, mw sStn,a s Itegerw Tx1.exfa = Val(e.Txt)w= Chr(97 + （(Asc（) + f） Mod 26) 或Chr（(“”)+ (Asc(w) - As(“a”)+ f)Mod26)ex2.Txt =EduPrie Su mand2_Click(）im y AsStri 1, m AsSri

26、ng, a Intgermw = Tex.Txta = al（Text3.Tet）w = Chr（22+(c(mw） 12 -a)od 26) 或hr（Asc(“z”) + （As(w) - A（“z”) -fa) Mo26)1.T wEnd Sb6、在文本框Tet中输入个小写英文字母,点击加密按钮man,则将每个字母改为英文字母表a-z中相应的第N个字母放入文本框xt2中，N表达加密措施，由Txt3中的值指定。如N为,则b加密后变为cdb。点击解密按钮Comand2，将文本框Tx2中字母解密后放入Text1中。 Prvateub Cmmand1Clik()Di yw Sti * 3， y1$

27、, y2, y3Dim mw sting *3, m1$， m2,m3Difa%yw =Text1.Tt: fa = al(Text3.Text)1 = et（yw，）: y2 = d(, 2, ）: y3 Rght（y, )m1 Chr(9+ (c（y1)- 97 +a) od 26) 或h(Asc(“a”) + (Ac（y1） As(“”)+ fa）Mod )2 Chr(9 + (（Ac(2)- 9 + fa)Md 26) 或Chr(sc(“”） + (Asc(y2) - Ac（“a”）+ a) od 6)3 hr(9 + (Asc(y） - a） Mod 2)） 或Chr（sc(“a”）

28、+ (As(y) - Asc(“a”)+fa) d 26)mw = & m2 m3Txt2.Text = mEndubPrivateSub Cmad2_Cik()Dim yw As ring * 3, y1$,y$， y3Dm Astring3， $, m2$,m3$Dimfa%w= Text.Text: fa al(Txt3.x)m1 =Left(w， ): = Mid(m, ): m3= igh(mw, 1)y1 = r(122 + (（s(m1) - 122 a） Mod 26)或C(Asc(“”) + (Ac(m) A（“z”) - fa）M2)y = Cr(122+ （(Ac（m)

29、22 - fa） Md 26) 或h(Ac(“”) + (Asc（m2） -Asc(“z”） fa) od26)y3 = hr(122 (Asc(m3） 122 - f） d 26) 或Ch(As(“z”) +(A(m3)- (“z”) - fa) Mod 6)yw = 1 & y &y3et1.Text = wEd ub、点击按钮oman，程序输入x,通过度段函数计算并输出y。使用InutBox和MsgBx完毕输入输出。 ivat Sub omand_Click()imxsDoue, y Doube =al（InputBox(x=?)Ifx 0 Thn x * If x 0 Then y=

30、xMsgBo nd Su、上下两个文本框分别为et1和Text2,在两个文本框中任意输入2个整数,点击互换按钮Cmmand1，将2个数按照大小顺序放好 Prite Sb oma1Clic() x AsIntegr, y As Integer, tmp As Integerx = al(Txt1.Te)y = Vl(Tet2.Tex)f 0 en y = *lse = -xnd IMsgBox sr(y)n Sub4、点击按钮Commad1,程序分别输入语文、数学、英语的成绩，输出及格课程平均成绩。使用IputB和sgBo完毕输入输出。riteSubommand1_Clik(）Di y， x,

31、yy#，n%,s#,p#yw =Val(InpuBox(yw=？）)sx Val(InpuBox(sx=?)）y =Vl(uBox(yy=?)0If yw = 6Thnn = n ： s= s + ysx = 60 Then = n+1: s = s + I y 60 Then n = n +1: s = s + yyf 0The p = s /n Else = MsgBox str（）nd Su5、点击按钮omand,程序输入一种四位数,判断千位、百位、十位和个位数字之和与否为偶数，偶数输出Ys，否则输出No。使用Inputx和MsgBx完毕输入输出。Privteub ommnd1Click

32、()Dim %, %，%，s%, = Va(ptBox(x=？)q= In(x / 10)b = n(（ q 100)/ 100)s= It(x - q * 1000 -b * 10) /10）g = x - *1000 - b *10- s*10f (q + b + s +) Mod 2 = 0 The sBox Yesle sgBox NoEn fEnd Sb1、点击按钮Cmnd,程序分别输入个整数,输出最大值。使用InputBx和MgBox完毕输入输出。PrvaeSu Command_Cc（)Dia,b%, c%,max%a= al(Inputox(a?）)b =Val(nutBox(b

33、=?)）c = al(InpuBx(c=?)max =af max he max = bIf cax hnmax =MgBx axEd Sub、点击按钮Commd1,程序分别输入3个整数，输出最小值。使用Inputox和MgBox完毕输入输出。Pvate Sub oma1_Clck(）ia%,b， c, min%= al(ptBox(=?)）b al(Inputo(=?)c =Val(InpuBo(=?)min = aIf b = 00Ten zhf = yhf + xf + 8ls f = yyhf+ xhf xjf* 0.05EndfMsgBox str(zhf)End ub、根据三角形的

34、三边,通过海伦公式可求三角形面积。点击按钮Cmmand1,程序输入三角形三边长,如果能构成三角形则输出其面积，否则输出字符串Eor。使用IputBo和sBox完毕输入输出。 提示: 海伦公式为: rivate ubComman1_lik(）ima#, b#， c#， p#, s#a= Vl(InutBx（a=?)）b =Vl(InputBo（b=?) Vl(InutBx（c=？)Ifa+ c And b +c a And a+ c b henp= (a + + c)/ 2 s=Sqr( (p - ） *(p - ) * (p -c) MsBox str(s)Ee sgBox ErrE IfEn

35、dub5、点击按钮Cmmand1，程序分别输入4个整数，输出最小值。使用npuBox和MsBox完毕输入输出。PrvaeSub ommd1_Click(）Dim %, b%, c%, d, mi%a= Val(InptBox(a=?)b a（InutBo(b=?)c = Val（IpuBx(c？)d al（nptBox(d=?）)mi =aIf b mi Tenmin= bIf c ma Tema = bIf c max Te max = cIf d max Then m = Msgx maEndub7、点击按钮Comand1，程序分别输入三角型的三边边长（假设输入的三边边长均),判断并输出三

36、角形的形状。也许的三角形形状为如下种：等边三角形,等腰三角形,一般三角形,不构成三角形。使用nputox和sgBox完毕输入输出。Priate Sub ommandClck()Dim a#, , c#a Va(InputBx（a?)b = Val(Ipuo(b=?)c = Val(ptBx(c=？)If And b+ c And +c b Then If = bAnd = c hn MBo 等边三角形 Els a b O b = c O a =c Ten MsgBx 等腰三角形 Els gBox 一般三角形 E IfElse MsgBox 不构成三角形E I Sub、点击按钮Comman1，程序输入一种字符，可以是字母或数字0-9,输出其分类。如输入字符“a”，则输出“小写字母”；输入字符“A”，则输出“大写字母”；输入字符“1”，则输出“数字”。使用IpuBx和o完毕输入输出。Priateu Cmmand_Cck()Dmzf AsStr 1zf = Inpto(f=？)Izf 0 And z =A Andf = Z Ten Msgox 大写字母le MsgBx 其他字符EIf End Sub