《VB程序设计》实验单元一

V程序设计实验单元一实验报告专业班级： 姓名 学号 指引教师: 王自强 完毕时间： 3月21日星期六 实验一V环境和可视化编程基本一、 实验目的1理解isua Basi的安装2 掌握启动与退出iua Basi3 掌握建立、编辑和运营一种简朴应用程序的全过程4 掌握基本控件的使用二、实验环境 B60三、实验内容1、编写一程序,在文本框中记录在该窗口上鼠标单击的次数。 提示：对窗口编写两个事件:Fom_oad事件对文本框初值设为空；ForClick事件对文本框计数。 对文本框计数:Tt1=Val(text）+1。四、实验环节、绘制La1的caption输入“你单击窗体的次数：”2、绘制xt。编程为：PrvateSb Fom_lic()Tex1.Text = Va(Txt1.Tt） + 1nSubPrivatSu FormLoad()Text1.Txt nSub3、tx的fo ize设立为“一号”五、实验成果程序设计实验单元一实验报告专业班级： 网媒140班 姓名 凌紫怡 学号 05032 指引教师:王自强 完毕时间： 3月1日星期六 实验一VB环境和可视化编程基本二、 实验目的1 理解Vual Basic的安装掌握启动与退出Vsal asic3 掌握建立、编辑和运营一种简朴应用程序的全过程 掌握基本控件的使用二、实验环境 V6.0三、实验内容、命令按钮、字号、内容和格式的复制练习。按钮1：使得Tex1中的文本按规定变化。 按钮2:将Text1中选定的文本复制到Txt2 控件名属性For1Capon=”实验”Label1复制文本Lbel2输入文本Txt1ext=“B功能强大，但要下功夫学习才干学好。”TtTx=”Command1Capion=”隶书25磅”Command2Capio=”复制=”四、实验环节1、lael1的capion输入“复制效果”；label2的captin输入“输入文本”。2、绘制两个txt。PraSb Text1Click（)Tet1.Tt =B功能强大，但要下功夫学习才干学好。End SubPrvateSubTx2_clck()Txtet End Su3、以及两个Commnd。oand1的ptio输入“隶书25磅”；Commnd2的capio输入“复制”。Prate Su mnd1_Clik(）Tet1.Fnam 隶书Text.ontSize=2End Subriat bCmn2_Clik()Tex2.Text Text1SelTete2.FnNme = Txt1.FntNamet2.FotSize Text1Fotzend五、实验成果实验二 VB语言基本和顺序构造一 、实验目的、掌握对的书写体现式、赋值语句的规则2、掌握常用函数的使用3、掌握InpuBo与MBx的使用、掌握rint和Forat的使用二、 实验环境 VB6三、 实验内容1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。四、实验环节1、绘制一种lbe,captio为。2、绘制四个txt，编写程序代码为：rivaeub Tex1hnge()ex2.Tt =ext.Txt = ext4.Text=End Sb、绘制三个comnd,commnd的ption为“圆的面积”;mand2的caption为“圆的周长”;comand3的aption为“圆的体积”。编写程序代码为：Private Suomand1_lick（)a 3.1Te.et a * Txt1Txt* Tet1.TextEnd SubPrivae ub Command2_lick()a = 314Te.Text= 2 * Tet1TextEnd ubPrivate Sub Comad3_lick()a =3.14et4.xt = / 3 *a * Text1.Txt Tex1.ext *Txt.TextEd b五、实验成果实验二 VB语言基本和顺序构造一 、实验目的1、掌握对的书写体现式、赋值语句的规则2、掌握常用函数的使用3、掌握Intox与MsgBox的使用4、掌握Print和Frma的使用二、 实验环境 B6.0三、实验内容、随机产生一种3位正整数,然后逆序输出，产生的随机数与逆序数同步显示。例如,输出57提示：运用“Md”和“”将一种位数分离出个1位数,然后连接成一种逆序的3位数。四、实验环节1、绘制一种ext，并编写程序代码：Pvt Su Tet1_hage(）Lbel1= End Sub2、绘制一种lel，lbel的bodersy属性为1-fixed sngle3、绘制两个omnd,comman1的capio命名为“产生”;commad2的capton命名为“逆序”并且编写程序为:Privae S Cma1lick()Text1.Tt= Int(Rn * 900+ 100)nd SbPrivate u Comand2_Clk()i ,x1%, x2%,x3x a(ext1.Text)x1 xMo 1 = (xMo 10） 10x = x 100Lae x1 * 00 x2 * 10 + 3d S五、实验成果实验三 选择构造一、实验目的1、 掌握逻辑体现式的对的书写形式。2、 掌握单分支与双分支条件语句的使用。3、 掌握多分支条件语句的使用。4、 掌握状况语句的使用及其与多分支条件语句之间的区别。二、实验环境 VB6.0三、实验内容1、 输入3个整数，输出最大的数。四、实验环节、绘制一种label，它的caio是“输入三个整数”、绘制四个text,并且编写程序代码为rive b orm_Lad(）Tet1Text = Text.Txt = Tt3.Tex = En Sub3、绘制两个omman,comman1的capi为“输出最大值”并且编写程序代码为Private S Comad1Click（）x = a(etTet)y Val（Text2.Text) = Va(Text.Text）I yAnd x z ext4.Text= xElseI z ThnText4Tex = yElsxt.Text = En IEnd SubComman2的catin为“清空”，并且编写程序为Pivat bCoandlick（)Tx1ext =TxtText= Text3.T Text4.Txt = End Sub五、实验成果三、实验内容2、 输出150200的能被但不能被整除的数。四、实验环节、绘制一种comman，它的caption为“输出150的能被7但不能被整除的数”2、com的程序代码为Prive Su Cmmand1_lick（) aAs Inegror a =10To 00I a od nd a d 3 0 ThenPin aNex aE b五、实验成果三、实验内容3、 输入一种三位数，判断与否为水仙数。水仙数的特点:个位数、十位数和百位数的立方和等于该数自身的数。四、实验环节、绘制一种ommad，它的capton为“判断与否为水仙数”2、cmmand1的程序代码为rivaSu Comnd1_Clik(）Dm aAs ingle = InputBo(输入一种三位数，判断其与否为水仙数, 输入三位数)Dimb, c,d = a Md10 = （a d 10) 0d =a 100If b 3 + 3 3 = ahenin 是ElPnt 否En Ifnd ub五、实验成果实验四 循环构造一、实验目的1、 掌握o语句的使用。2、 掌握o语句的多种形式的使用。3、 掌握如何控制循环条件,避免死循环或不循环。二、实验环境 V.三、实验内容1. 一种富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一种月(0天)；而富翁第一天给陌生人1分钱,第二天2分，第三天分，富翁每天给陌生人的前是前一天的两倍，直到满一种月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？四、实验环节1、绘制一种commnd，它的cption为“计算”，程序代码为Prvat Sub Cmmand1_Cick()a = 10000s1 = a * 30rint陌生人给富人的钱是：;s1n 0.0 = 0or k = 1 To 30s2 = 2 nn= 2 *nNext kPrint 富人给陌生人的钱是:; s2End S五、 实验成果实验四 循环构造一、实验目的4、 掌握r语句的使用。5、 掌握Do语句的多种形式的使用。6、 掌握如何控制循环条件,避免死循环或不循环。二、实验环境 VB60三、实验内容2用计算机安排考试日程。期末某专业在周一至周六的六天要考a,b,c三门课,考试顺序为先考a，然后考b,最后考c,规定一天只能考一门。且课只能安排在周五或周六考。编写程序安排考试日程，规定列出满足条件的所有方案。四、实验环节1、绘制一种command,它的caton设为“安排考试日程”,并且程序编写为:Fr 1 To r j o 6 For l = 5 To 6 jAnj l henPina; i, ;j, ；lext lNt jNt i五、 实验成果