(完整版)vb实用案例50例

实验报告11实验报告2：实验题目1：设计窗体。参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle：1—FixedSingle（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为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：输入一个三位数，将它按逆序输出。参考界面如下：要求此题用两种解法：第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用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=aIfbminThenmin=bIfcminThenmin=cIfdminThenmin=bLabel1=最小的数是：&minEndSub实验题目2：编写程序判断某个数是否是水仙花数。要求：用inputbox函数输入一个数，将结果输出在窗体上。提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。实验题目2源程序代码：PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegerd=InputBox(请输入一个三位数,判断水仙花数)a=d\100b=(dMod100)\10c=dMod10Ifd=a^3+b^3+c^3ThenPrintTrueElsePrintFalseEndIfEndSub实验题目3：编写程序，实现数字和英文单词的对应。提示：在文本框1中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。实验题目3源程序代码：PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Ifa=0ThenText2.Text=sundayElseIfa=1ThenText2.Text=mondayElseIfa=2ThenText2.Text=tuesdayElseIfa=3The