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

《VB程序设计》实验单元一实验报告专业班级：姓名学号指导教师：王自强完成时间：2015年3月21日星期六实验一VB环境和可视化编程基础一、实验目的1了解VisualBasic的安装2掌握启动与退出VisualBasic3掌握建立、编辑和运行一个简单应用程序的全过程4掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。对文本框计数：Text1=Val(text1)+1。四、实验步骤1、绘制Label1的caption输入“你单击窗体的次数：”2、绘制text。编程为：PrivateSubForm_Click()Text1.Text=Val(Text1.Text)+1EndSubPrivateSubForm_Load()Text1.Text=EndSub3、text的fontsize设置为“一号”五、实验结果《VB程序设计》实验单元一实验报告专业班级：网媒1403班姓名凌紫怡学号201424050320指导教师：王自强完成时间：2015年3月21日星期六实验一VB环境和可视化编程基础二、实验目的1了解VisualBasic的安装2掌握启动与退出VisualBasic3掌握建立、编辑和运行一个简单应用程序的全过程4掌握基本控件的使用二、实验环境VB6.0三、实验内容2、命令按钮、字号、内容和格式的复制练习。按钮1：使得Text1中的文本按要求改变。按钮2：将Text1中选定的文本复制到Text2.控件名属性Form1Caption=”实验2”Label1复制文本Label2输入文本Text1Text=“VB功能强大，但要下功夫学习才能学好。”Text2Text=””Command1Caption=”隶书25磅”Command2Caption=”复制=”四、实验步骤1、label1的caption输入“复制效果”；label2的caption输入“输入文本”。2、绘制两个text。PrivateSubText1_Click()Text1.Text=VB功能强大，但要下功夫学习才能学好。EndSubPrivateSubText2_click()Text2.Text=EndSub3、以及两个Command。Command1的caption输入“隶书25磅”；Command2的caption输入“复制=”。PrivateSubCommand1_Click()Text1.FontName=隶书Text1.FontSize=25EndSubPrivateSubCommand2_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSub五、实验结果实验二VB语言基础和顺序结构一、实验目的1、掌握正确书写表达式、赋值语句的规则2、掌握常用函数的使用3、掌握InputBox与MsgBox的使用4、掌握Print和Format的使用二、实验环境VB6.0三、实验内容1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。四、实验步骤1、绘制一个label，caption为r。2、绘制四个text，编写程序代码为：PrivateSubText1_Change()Text2.Text=Text3.Text=Text4.Text=EndSub3、绘制三个command，command1的caption为“圆的面积”；command2的caption为“圆的周长”；command3的caption为“圆的体积”。编写程序代码为：PrivateSubCommand1_Click()a=3.14Text2.Text=a*Text1.Text*Text1.TextEndSubPrivateSubCommand2_Click()a=3.14Text3.Text=2*a*Text1.TextEndSubPrivateSubCommand3_Click()a=3.14Text4.Text=4/3*a*Text1.Text*Text1.Text*Text1.TextEndSub五、实验结果实验二VB语言基础和顺序结构一、实验目的1、掌握正确书写表达式、赋值语句的规则2、掌握常用函数的使用3、掌握InputBox与MsgBox的使用4、掌握Print和Format的使用二、实验环境VB6.0三、实验内容2、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如735,输出537.提示：利用“Mod”和“\”将一个3位数分离出3个1位数，然后连接成一个逆序的3位数。四、实验步骤1、绘制一个text，并编写程序代码：PrivateSubText1_Change()Label1=EndSub2、绘制一个label，label的borderstyle属性为1-fixedsingle3、绘制两个command，command1的caption命名为“产生”；command2的caption命名为“逆序”并且编写程序为：PrivateSubCommand1_Click()Text1.Text=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()Dimx%,x1%,x2%,x3%x=Val(Text1.Text)x1=xMod10x2=(xMod100)\10x3=x\100Label1=x1*100+x2*10+x3EndSub五、实验结果实验三选择结构一、实验目的1、掌握逻辑表达式的正确书写形式。2、掌握单分支与双分支条件语句的使用。3、掌握多分支条件语句的使用。4、掌握情况语句的使用及其与多分支条件语句之间的区别。二、实验环境VB6.0三、实验内容1、输入3个整数，输出最大的数。四、实验步骤1、绘制一个label，它的caption是“输入三个整数”2、绘制四个text，并且编写程序代码为PrivateSubForm_Load()Text1.Text=Text2.Text=Text3.Text=EndSub3、绘制两个command，command1的caption为“输出最大值”并且编写程序代码为PrivateSubCommand1_Click()x=Val(Text1.Text)y=Val(Text2.Text)z=Val(Text3.Text)IfxyAndxzThenText4.Text=xElseIfyzThenText4.Text=yElseText4.Text=zEndIfEndSubCommand2的caption为“清空”，并且编写程序为PrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=EndSub五、实验结果三、实验内容2、输出150-200的能被7但不能被3整除的数。四、实验步骤1、绘制一个command，它的caption为“输出150-200的能被7但不能被3整除的数”2、command1的程序代码为PrivateSubCommand1_Click()DimaAsIntegerFora=150To200IfaMod7=0AndaMod30ThenPrintaNextaEndSub五、实验结果三、实验内容3、输入一个三位数，判断是否为水仙数。水仙数的特点：个位数、十位数和百位数的立方和等于该数自身的数。四、实验步骤1、绘制一个command，它的caption为“判断是否为‘水仙数’”2、command1的程序代码为PrivateSubCommand1_Click()DimaAsSinglea=InputBox(输入一个三位数，判断其是否为水仙数,输入三位数)Dimb,c,db=aMod10c=(aMod100)\10d=a\100Ifb^3+c^3+d^3=aThenPrint是ElsePrint否EndIfEndSub五、实验结果实验四循环结构一、实验目的1、掌握For语句的使用。2、掌握Do语句的各种形式的使用。3、掌握如何控制循环条件，防止死循环或不循环。二、实验环境VB6.0三、实验内容1.一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分……，富翁每天给陌生人的前是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？四、实验步骤1、绘制一个command，它的caption为“计算”，程序代码为PrivateSubCommand1_Click()a=100000s1=a*30Print陌生人给富人的钱是：;s1n=0.01s2=0Fork=1To30s2=s2+nn=2*nNextkPrint富人给陌生人的钱是：;s2EndSub五、实验结果实验四循环结构一、实验目的4、掌握For语句的使用。5、掌握Do语句的各种形式的使用。6、掌握如何控制循环条件，防止死循环或不循环。二、实验环境VB6.0三、实验内容2.用计算机安排考试日程。期末某专业在周一至周六的六天要考a,b,c三门课，考试顺序为先考a,然后考b,最后考c,规定一天只能考一门。且c课只能安排在周五或周六考。编写程序安排考试日程，要求列出满足条件的所有方案。四、实验步骤1、绘制一个command，它的caption设为“安排考试日程”，并且程序编写为：Fori=1To6Forj=1To6Forl=5To6IfijAndjlThenPrinta;i,b;j,c;lNextlNextjNexti五、实验结果