资源描述：
《VB实验一 实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、实验报告一课程VB程序设计实验项目VisualBasic环境顺序选择程序设计(4学时)成绩专业班级姓名学号实验日期实验目的（1）熟悉VisualBasic6.0集成开发环境（2）掌握VisualBasic程序的开发过程，能够运行一个完整的VisualBasic程序（3）掌握选择控制结构（If、Selectcase）语句实现程序分支（4）掌握控制结构相关控件（单选按钮、复选框）（5）能综合运用选择及循环控制结构解决较复杂的问题实验内容一、VB环境和顺序结构【实验1】设计一个简单VB程序（10分）它由一个窗体、一个文本框和3个命令按钮组成。窗
2、体的标题为"VisualBasic程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用VisualBasic6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。实验结果：【实验1代码】PrivateSubCommand1_Click()Text1.Text="VisualBasic的程序设计示例"Form1.Print"你好"EndSubPrivateSubCommand2_Click()Text1.Text=""'清除文本框中的内容Form1.Cl
3、s'清除窗体上打印的内容EndSubPrivateSubCommand3_Click()EndEndSub【实验1典型结果】【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c))（20分）程序界面如下所示实验结果：【实验2代码】PrivateSubCommand1_Click()DimaAsInteger,b%,c%DimsAsIntegera=Text1.Text:b=Text2.Text:c=Text3.Texts=(a+b+c)/2Te
4、xt4.Text=Sqr(s*(s-a)*(s-b)*(s-c))EndSubPrivateSubCommand2_Click()EndEndSub【实验2典型结果】【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分）实验结果：【方法1代码】PrivateSubForm_Click()Dima,b,c,d,ea=Int(Rnd*900+100)c=Right(a,1)&Mid$(a,2,1)&Left(a,1)Printa;Ta
5、b(20);cEndSubPrivateSubForm_Load()Print"随机数",Tab(20);"逆序数"EndSub【方法1典型结果】【方法2代码】PrivateSubForm_Click()Dima,c,b,d,ea=Int(Rnd*900+100)b=a100:c=(aMod100)10:d=aMod10e=d*100+c*10+bPrinta;Tab(20);eEndSubPrivateSubForm_Load()Print"随机数",Tab(20);"逆序数"EndSub【方法2典型结果】二、选择结构【实验3】输入
6、一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件为：1.能被4整除，但不能被100整除，2.或者能被400整除（注意各个条件表达式的括号）（20分）实验结果：【实验3代码】PrivateSubCommand1_Click()DimyearAsIntegeryear=InputBox("请输入年份")IfyearMod4=0AndyearMod100<>0OryearMod400=0ThenMsgBoxyear&"是闰年"ElseMsgBoxyear&"不是闰年"EndIfEndSub【实验3典型结果】【实验4】任意输入三个数，求三
7、个数中最大数和最小数（15分）实验结果：【实验4代码】PrivateSubCommand1_Click()Dima%Dimb%Dimc%a=Text1.Text:b=Text2.Text:c=Text3.TextIfa>bThenText4.Text=a:Text5.Text=bElseText4.Text=b:Text5.Text=aEndIfIfc>aThenText4.Text=cElseText4.Text=Text4.TextEndIfIfc8、ndIfEndSub【实验4典型结果】【实验5】使用Inputbox任意输入三个边长，判断是否能构成三角形，若能构成三角形，则判断该三角形是等边、等腰还是一般三角形（15分）实验结果：【实验5
