资源描述：
《VB程序设计实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级1211学号2012118064姓名王亮任课教师王福林实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。程序2：创建应用程序。要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。2、循环语句程序3：创建应用程序。要求：单击窗体可显示一个由“*”组成的平行四边形图案。程序4：创建应用程序，其功能是显示所有的水仙花数。三、实验记录程序1如下：Privat
2、eSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,tAsInteger'定义a,b,c,t为整形变量Cls'清屏a=Val(InputBox("请输入第1个数："))'给a赋值b=Val(InputBox("请输入第2个数："))'给b赋值c=Val(InputBox("请输入第3个数："))'给c赋值Ifa>bThent=a:a=b:b=t'如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIfb>cThen'嵌套，如果b>ct=b:b=c:c=t'把b的值赋给t，b的值赋给c，t的值赋给cIfa>bThen'再次嵌套，如果
3、a>bt=a'把a的值赋给ta=b'b的值赋给ab=t't的值赋给bEndIfEndIfPrinta;"、";b;"、";c'输出a"、"b;"、";cEndSubPrivateSubCommand2_Click()End'退出程序EndSub程序2如下：PrivateSubCommand1_Click()DimiAsInteger,kAsInteger,nAsInteger'定义整形变量i,k,nn=Val(InputBox("任意输入一个整数："))'给n输入值i=2'i初始值为2k=Int(n/2)'为整形的二分之一n的值赋给kDoWhilei<=k'当i小于且等于kIfnModi=0
4、Then'如果n模除i为0ExitDo'退出循环Elsei=i+1'否则i加1EndIfLoopIfi>kThenPrintn;"是素数"ElsePrintn;"不是素数"'如果i大于k，输出n的值是素数，否则输出n的值不是素数EndSubPrivateSubCommand2_Click()End'退出程序EndSub程序3如下：PrivateSubForm_Click()DimmAsInteger,nAsInteger'定义整形变量m,nCls'清屏PrintForm=1To6'm赋初始值为1，当m大于6停止PrintTab(15-m);'第15-m列开始输出Forn=1To8'n赋初始值
5、为1，当n大于6停止Print"*";'输出*NextnPrint""'输出空格NextmEndSub程序4如下：PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,nAsInteger,kAsInteger,sxhAsIntege'定义整形变量i,m,n,k,sxkFori=100To999'i赋初始值为100，当i大于999，停止循环m=i100'i除以100，结果赋给mn=(iMod100)10'i模除100后的值再除以10,最后结果赋给nk=iMod10'i模除10后的值赋给ksxh=m^3+n^3+k^3'sxh作算术运算Ifs
6、xh=iThen'如果sxh等于iPrinti,'输出i的值EndIfNextiEndSubPrivateSubCommand2_Click()End'程序结束EndSub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容
7、，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容；如果单击“结束”命令按钮，则结束程序的运行。程序2：建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本
