VB实验指导例题
实验A V环境和可视化编程基础1(）运行界面（2）参考代码:Priate SuCoan1_lick（）ptin = txt1。Txtnd Sb2.模仿教材例1。1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。(1)运行界面（2）参考代码:Privat Sboan1_lick（）TierIerval = 0allmeEndSubSub mmov（)Lal1Mov Lael1Lf - 20If Lableft 0 Ten LabeLft = For。idtnd Surte Sub ommnd2_Clic（)Tmer1。Interval= 00EndSubPvte Sub Timer1Ti（)Cal myoedSu3编写一程序，在文本框中统计在该窗口上鼠标单击的次数。(1）运行界面：（）编写代码：ivtSubFo_Click（）ext1 =Val（Text1）+En Subivate Sub Fomoad（）TxtTe ”"Eub4代码:Priva Sub orClck（）ptn = ”鼠标单击For.Ptue LoadPitu（”d：1j")EndSbPrivateSub FmDClick()tion =”鼠标双击”Form1Pctre = oPitue（”：2jpg）d SubPrateb FormLod()o1iture= oadPctue（”d：3。jpg"）nd b命令按钮、字号、内容和格式的复制练习(1）运行界面（)参考代码:Privt Sub Commad1_Clck()Text1.Fntae =”黑体"ex.FntSiz 5EdSubPiate Sub CommanClck(）Text2Text =Text.elTtText2。otNme= x.FontNmex2FontSze = Txt1FonSizTxt1.SeFocEd Sub实验 顺序结构1 编一个华氏温度与摄氏温度之间转换的程序,要求用按钮实现转换。既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度;同样,单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。代码:Private ub omnd1_Cck（)Dm f！， c！f Val(TxtTe）c 5 /9 * （f 2)Text2.Text = omt（c， 000”)E Suriae SubComa2_Click（)Dim！,c！ = al（et） = 9 / 5 c +32ext。Txt = Fomat(f, 0.00)nd ub2 （1）运行界面（2)参考代码Priae ub Cmand1_ic（）r =Text。Textion Format（3.4 r r,00"）Tx。SetFousEnubPriteSb Command2Click（）r Val(ext。Tet)ton = Format(34 2r， ”。00"）Text。Focud ubPrivat Sub Txt1_Keys（ecii Intge)If KeyAsci=3ThenIf NotNumec（Tex1)ThenMgBox 输入有误，请重输入Tx1。SeFousText1.lSat = 0Text.SlLenh= Ln(Tex1ex）End IfEndIfEnSubPriate Sub Text1_Lotocus（)fNt sumerc（T1) ThenMsBox ”输入有非数字字符,请重新输入”， ，"22”Txt1.SetFouTxt1。SSta = 0Te。Selgth = en（ext1.Tex）EdIfnd Sub3 我国有3亿人口,按人口增长。8计算，多少年后我国人口超过26亿。（1）运行界面（2)参考代码PrvateSub Cmad1_Clik()a= t（Lg(2) / （og（ + 08)） 1Texx= a& "年后，我国人口超过6亿”nd Sb4 输入一字符串,分别调用cse、Len函数将其转换成大写字母并显示其字符串长度（1） 运行界面（2） 参考代码riteSub mnd1_Click（）ext.Text = UCase(Txt。Txt）xt。x = Le(ext1。ext）Ed Su5 随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如,产生735，输出是57（)运行界面（2)参考代码:riv Sb Comand1_Click（）= n(（899 + ) * Rnd 0） x 00b =( Mod100） 10c = Mod10e1。Txt = xex.Tet = c 0 b * 1 + aEd Sb6 使用Md、eft、Rght函数。在ext1文本框中输入一字符串，在lael、Lel2、ael中显示如图的效果。（1） 运行界面（2）参考代码：Privat Sb For_lick（）Tx1.FontSz = 16Labe1FotSize = 16Lal.FntSze = 16Label3FontSize =6ext。Txt "Visualsi程序设计教程(第三版）"ptin eft（Text1.Text, 1)pion = id(Tex1Tx,1, ）ption igt（Tet1.Txt， 5）En Sub7 rnt方法练习,显示字符图形。（1） 运行界面（2）参考代码：(a）Privt SubCmmand1Cick（)PriF i= To 5PitTab(13 2* i）； tri（2* i -, ”）; Spc(2 i); Srng(2 * 1,”)Nxt End SubPivteSubComan_Click()For1。sEnd ub（b）rivate Comma1Clic（)riFori 1 o 5Prt Tab（1 - i）; Strin( i 1,"”)； Sring(1- i, ”"）； trin（2 i 1, ）Next End SbPrivate Sub Cmd2_Clck（)or1.lsEd Su8 用Iputx输入一个正实数，用Pnt方法在一行上显示出它的平方和平方根、立方和立方根,每个数保留三位小数，其间有间隔。（1)运行界面(2)参考代码：Private Suboman1_Clck（） = l（IptBox("输入一个正实数”）)ormPrntormt（x * x， "。00”）; Sc（5）;Fom（Sqr(x)， 000）； Sp（)； oa（* x * x,"。0”）; p(）； Formt（x (1 3)，"000”）EndSb实验C 选择结构一、 实验目的1 掌握逻辑表达式的正确书写形式2 掌握单分支与双分支条件语句的使用。 掌握多分支条件语句的使用。掌握情况语句的使用及其与多分支条件语句之间的区别。二、实验内容1、在购买某物品时,若所标明的价钱x在下述范围内，所付钱y按对应所扣支付:提示：此题用多分支结构实现,注意计算公式和条件表达式的正确书写。实验目的:掌握多边i语句的正确使用实验步骤: 新建新工程2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y 代码如下：ivte Su orm_ik() DimxAsnge， As Sigle x= al(Inputx("请输入物品价钱：”）) If x 1000 Then y =xlseIf x>= 000And x 2000 hn y = 0。9 x ElIx = 00 Andx 300 Te = 0.8 x ElseI >= 3000 hn 。7 x Ed If Pri ”所付钱为:" ynd Su2、编一程序输入上网的时间并计算上网费用,计算的方法如下：同时为了鼓励多上网，每月收费最多不超过5元。提示：首先利用多分支条件更具三个时间段算出费用，然后再用if语句对超过150元的费用设置为150元。略：提示和第一题类似3、输入x,y,z三个数，按从大到小的次序显示。实验目的：掌握单边或嵌套语句的使用实验步骤:1 新建工程 代码如下：Prva ubFor_lk（） DixA teger， b sInteg，z AsIntr,d s eger dimx！，y!，z！x = Inuto（”请输入第一个数") y = IpuBo（"请输入第二个数”) z= InputBox("请输入第三个数） Prin 排序前" ; Sp（5）;y； Spc（）； f x y hen d = x: x y： y= E f y z h d =y： =z: z= d If f<yTen d =x：
