实验报告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:...