vb实用案例50例

精品文档，仅供学习与交流，如有侵权请联系网站删除【精品文档】第PAGE页实验报告11实验报告2：实验 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 目1： 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 窗体。参考界面如下：运行前运行后 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 ：在窗体上添加一个标签，通过属性窗囗设置标签 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 ：Caption：字体格式Alignment：2—Center（居中）BorderStyle：1—FixedSingle（有边框）Backstyle：0—Tansparent（背景透明）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：PrivateSubCommand1_Click()Label1.FontSize=30EndSubPrivateSubCommand2_Click()Label1.FontBold=trueEndSubPrivateSubCommand3_Click()Label1.FontUnderline=TrueEndSub实验题目2：设计一个计算器。参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。实验题目2源程序代码：PrivateSubCommand1_Click()Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand2_Click()Text3.Text=Val(Text1.Text)-Val(Text2.Text)EndSubPrivateSubCommand3_Click()Text3.Text=Val(Text1.Text)*Val(Text2.Text)EndSubPrivateSubCommand4_Click()Text3.Text=Val(Text1.Text)/Val(Text2.Text)EndSub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。实验题目3源程序代码：PrivateSubCommand1_Click()Text4.Text=Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text)Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()Text5.Text=Val(Text4.Text)/3EndSubPrivateSubCommand3_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""EndSub实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：要求：①设置窗体的标题为“计算圆的周长和面积”。②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。④“退出”命令按钮的功能：程序运行结束。实验题目4源程序代码：PrivateSubCommand1_Click()DimrAsDouble,sAsDoubleConstpi=3.1415926r=Val(Text1.Text)s=pi*r*rc=2*pi*rText2.Text=Str(c)Text3.Text=Str(s)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndSub实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：要求：①设置窗体的标题为“验证算术运算符”。②“计算”命令按钮的功能：计算两个数的除、整除和取余。③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。④“退出”命令按钮的功能：程序运行结束。实验题目5源程序代码：PrivateSubCommand1_Click()Text3.Text=Val(Text1.Text)/Val(Text2.Text)Text4.Text=Val(Text1.Text)\Val(Text2.Text)Text5.Text=Val(Text1.Text)ModVal(Text2.Text)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""EndSubPrivateSubCommand3_Click()EndEndSub实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：要求：①设置窗体的标题为“分离三位数”。②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。④“退出”命令按钮的功能：程序运行结束。实验题目6源程序代码：PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Text4.Text=Str(a\100)Text3.Text=Str((aMod100)\10)Text2.Text=Str(aMod10)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub实验题目7：输入一个三位数，将它按逆序输出。参考界面如下：要求此题用两种解法：第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；第二种解法：将文本框中的数据按数值型数据进行处理，用算术 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式实现（利用mod、\、*、+等运算符）。实验题目7源程序代码：第一种解法：PrivateSubCommand1_Click()DimaAsString,bAsString,cAsString,dAsStringa=Trim(Text1.Text)b=Left(a,1)c=Mid(a,2,1)d=Right(a,1)Text2.Text=d&c&bEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub第二种解法：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(Text1.Text)b=a\100c=(aMod100)\10d=aMod10Text2.Text=Str(d*100+c*10+b)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub实验题目8：输入两个数，将这两个数交换。要求：不允许使用第三个文本框，可以借助一个中间变量。实验题目8源程序代码：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=aa=bb=cText1.Text=Str(a)Text2.Text=Str(b)EndSub实验题目9：设计文本编辑窗体。复制按钮的功能：移动按钮的功能：提示：文本框的SelText属性表示选定的内容。要求：文本框可以多行输入。说明：设计时先将文本框的multiline属性设置为true。实验题目9源程序代码：PrivateSubCommand1_Click()Text2.Text=Text1.SelTextEndSubPrivateSubCommand2_Click()Text2.Text=Text1.SelTextText1.SelText=""EndSubPrivateSubCommand3_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand4_Click()EndEndSub实验报告3：实验题目1：编写程序计算某个学生三门课程的平均成绩。要求：（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入第一门课的成绩"))（2）单击“结束”命令按钮结束程序运行。界面如下：实验题目1源程序代码：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(InputBox("请输入第一门成绩"))b=Val(InputBox("请输入第二门成绩"))c=Val(InputBox("请输入第三门成绩"))d=(a+b+c)/3Text1.Text=dEndSub实验题目2：编写程序计算长方体的体积。要求：（1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox函数输入，并用三个内存变量保存），计算出长方体的体积后通过输出对话框输出（调用MsgBox函数，输出框的标题为“计算长方体的面积”。）输出对话框参考界面如下：（2）单击“结束”命令按钮结束程序运行。实验题目2源程序代码：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,vAsIntegera=Val(InputBox("请输入长方体的长"))b=Val(InputBox("请输入长方体的宽"))c=Val(InputBox("请输入长方体的高"))v=a*b*cMsgBox"长方体的体积为："&v,,"计算长方形的体积"EndSubPrivateSubCommand2_Click()endEndSub实验报告4：实验题目1：编写程序求出四个数中的最小数。实验题目1源程序代码：PrivateSubCommand1_Click()Dima!,b!,c!,d!,min!a=Val(Text1)b=Val(Text2)c=Val(Text3)d=Val(Text4)min=aIfb0ThenPrinta(i);m=m+1EndIfNextiPrintPrintm,nEndSub实验题目3：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。实验题目3源程序代码：Optionbase1PrivateSubCommand1_Click()DimsumAsInteger,iAsInteger,nAsInteger,mAsIntegerDimdata(10)AsInteger,averageAsSinglesum=0:i=1:n=Val(Text1.Text)DoWhilei<=ndata(i)=InputBox("输入第"&i&"位学生的成绩","成绩输入")sum=sum+data(i)i=i+1Loopaverage=sum/nMsgBox"全班"&n&"位学生的平均成绩为:"&average,,"求平均分"Fori=1To10Ifdata(i)>averageThenm=m+1EndIfNextPrintmEndSub实验题目4：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。实验题目4源程序代码：Optionbase1PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,maxAsinteger,minAsintegerDimdata(10)AsIntegerdata(1)=InputBox("输入第"&1&"位学生的成绩","成绩输入")max=data(1):min=data(1)Fori=2To10data(i)=InputBox("输入第"&i&"位学生的成绩","成绩输入")Ifdata(i)>maxThenmax=data(i)EndIfIfdata(i)nThent=mElset=nEndIfEndSubPrivateSubForm_Click()Dimx%,y%,z%x=Val(InputBox("请输入数据"))y=Val(InputBox("请输入数据"))Callmax(x,y,z)Print"最大值是:";zEndSub实验题目4：以下代码的功能是：调用max“函数过程”，求出两个数中的最大值。请将以下代码补充完整。实验题目4源程序代码：Functionmax(m%,n%)AsIntegerIfm>nThenmax=mElsemax=nEndIfEndFunctionPrivateSubForm_Click()Dimx%,y%,z%x=Val(InputBox("请输入数据"))y=Val(InputBox("请输入数据"))z=max(x,y)Print"最大值是:";zEndSub实验题目5：阅读并运行下面的程序代码，多次单击command1命令按钮，比较两种数组的区别。实验题目5两种数组的区别是：用static定义的数组表示静态数组，如果没有给该数组赋初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作为初始值；用dim定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各元素的初值都为0。实验题目5程序运行结果：第一次输出2222222222第二次输出4444422222实验报告8：实验题目1：设计窗体，界面如下：当单击“图片1”，“图片2”，“图片3”时，图片（像）框分别加载不同图片。（要求：图片自己从网上下载）实验题目1源程序代码：PrivateSubOption1_Click()Picture1.Picture=LoadPicture(App.Path+"\1.jpg")EndSubPrivateSubOption2_Click()Picture1.Picture=LoadPicture(App.Path+"\2.jpg")EndSubPrivateSubOption3_Click()Picture1.Picture=LoadPicture(App.Path+"\3.jpg")EndSub实验题目2：设计个人情况登记程序。程序初始界面如下：窗体中共包含3个标签，3个组合框，1个图片框和2个命令按钮。Combo1提供2个选项：东校区、西校区Combo2提供3个选项：中文系、外语系、教心系Combo3提供3个选项：0901、0902、0903程序运行时，当在3个组合框中分别选择相应内容后，单击“确认”按钮，会将选择的内容在图片框中打印出来。实验题目2源程序代码：PrivateSubCommand1_Click()Picture1.PrintCombo1.Text&Combo2.Text&Combo3.TextEndSubPrivateSubCommand2_Click()EndEndSub实验题目3：设计“商品统计”窗体。初始界面如下：运行时，在“商品列表”列表框中选择商品（注：可以多选），然后在组合框中选择卡号，单击“确定”按钮，在“您的卡号”所对应的文本框中显示所选择的卡号，同时在“您所选的商品数量”所对应的文本框中显示用户所选择的商品数量。实验题目3源程序代码：PrivateSubCommand1_Click()Text1.Text=Combo1.TextDimiAsInteger,jAsIntegerFori=0ToList1.ListCount-1IfList1.Selected(i)=TrueThenj=j+1EndIfNextText2.Text=jEndSubPrivateSubCommand2_Click()EndEndSub实验题目4：设计界面，实现调色板功能。SHAPE\*MERGEFORMAT实验题目4源程序代码：PrivateSubHScroll1_Change(IndexAsInteger)Text1(Index).Text=HScroll1(Index).ValuePicture1.BackColor=RGB(HScroll1(0).Value,HScroll1(1).Value,HScroll1(2).Value)Label1.ForeColor=Picture1.BackColorPrivateSubHScroll1_scroll(IndexAsInteger)Text1(Index).Text=HScroll1(Index).ValuePicture2.BackColor=RGB(HScroll1(0).Value,HScroll1(1).Value,HScroll1(2).Value)EndSub实验题目5：设计一个窗体含1个图像框和1个计时器。运行程序时，图像从右下角向左上角移动，当图像移出左上角后，再从右下角向左上角移动，周而复始。Interval属性设置为50。实验题目5源程序代码：PrivateSubform_load()Image1.Left=Form1.WidthImage1.Top=Form1.HeightEndSubPrivateSubtimer1_timer()Image1.MoveImage1.Left-50,Image1.Top-50IfImage1.Left<=0ThenImage1.Left=Form1.WidthImage1.Top=Form1.HeightEndIfEndSub