可视化程序设计实验报告.docx

1、可视化程序设计实验报告XIAN TECHNOLOGICAL UNIVERSITY实验报告实验课程名称 可视化程序设计 专 业： 信息管理与信息系统 成 绩： 2015 年 4 月 20 日西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月22日同实验者实验项目熟悉VB的开发环境，程序设计的基本步骤实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 200

2、0 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （1）熟悉Visual Basic 6.0集成开发环境。 （2）学习怎样启动和退出VB （3）掌握开发一个简单程序的基本步骤。 （4）掌握简单代码的编写。 二、实验内容 （1）启动和退出VB （2）开发一个简单程序。 （3）将Visual Basic工程编译生成可执行文件。三、实验步骤、数据记录及处理1、启动和退出VB 进入VB集成开发环境 要进入VB应用程序，首先要运行VB的集成开发环境。启动VB的方法如下： 方法1 单击任务栏上的“开始”按钮； 选择“程序”文件夹，接着选取“Microsof

3、t Visual Basic 6.0中文版”文件夹，再选取“Microsoft Visual Basic 6.0中文版”项，如图1-1所示；图1-1 启动VB的方法1 单击鼠标左键。 方法2 单击任务栏上的“开始”按钮； 选择“程序”文件夹； 使用“Windows 资源按理器”查找VB可执行文件 VB6.exe； 双击图标。 方法3 在桌面创建一个VB快捷键； 双击该快捷键。VB启动后，出现VB6.0的“新建工程”对话框（图-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到VB集成开发环境的界面，如图1-3所示。有的系统启动后可直接进入图1-3所示的界面。图1-2 VB6.0的“

4、新建工程”对话框 图1-3 VB的集成开发环境窗口退出VB方法：（1） 单击主窗口右上角的“关闭”按钮。（2） 执行“文件”菜单中的“退出”命令。（3） 按Alt+Q键。2、开发一个简单程序要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。实验步骤：（1）新建工程在桌面上双击Microsoft Visual Basic 6.0快捷方式图标，系统进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式。如图1

5、4所示。图14“新建工程”对话框单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。（2）设计界面在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图15所示。图15初始界面（3）设置属性如表11所示。表11 属性设置对象属性属性值Form1Caption我的第一个VB程序Label1Caption设置属性后的界面如图16所示。 图16设置属性后的界面 图17第一个程序（4）编写程序代码Private Sub Form_Click( )Labe

6、l1.Caption = 床前明月光End Sub（5）运行程序运行VB程序有三种方法：单击工具栏上的“启动”按钮；从“运行”菜单中选择“启动”菜单项；按F5键。例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图17所示。（6）保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。3、将Visual Basic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。退出Visua

7、l Basic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。四、实验心得通过这次实验，我熟悉了Visual Basic 6.0集成开发环境。能够熟练地启动和退出VB，掌握了开发一个简单程序的基本步骤和简单代码的编写。 专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月22日同实验者实验项目常用基本控件使用实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Wind

8、ows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。西安工业大学实验报告一、实验目的 （1）掌握命令按钮、文本框和标签常用属性值的设置方法。 （2）学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。 （3）掌握命令按钮的主要事件的使用。二、实验内容 （1）利用命令按钮、文本框和标签判断密码是否正确。 （2）建立应用程序，对两个文本框中输入的内容进行交换。三、实验步骤、数据记录及处理1 实验内容要求: 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后

9、单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。 步骤：（1）设计界面在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图21所示。 图21初始界面 图22 设置属性后的界面（2）设置属性设置属性后的界面如图22所示。表21属性设置对象属性属性值Label1Caption请输入密码：Command1Caption登陆Command2Caption退出Label2CaptionLabel2BorderStyle1-Fixed SingleText1TextText1MaxLength16Text1PasswordChar*Form1Caption登陆界面（

10、3）编写程序代码Private Sub Command1_Click() If Text1.Text=“goodbaby” Then Label2.Caption=“欢迎使用本系统！” Else Label2.Caption=“密码错误！请重新输入密码！” End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub（4）运行程序 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果如图23所示。图23 输入的密码正确 在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Lab

11、el2中显示“密码错误！请重新输入密码！”。运行结果如图24所示。图24 输入的密码错误2 实验内容（1）设计界面在窗体上放置两个Label 控件、两个TextBox控件和三个CommandButton控件。初界面如图25所示。 图25 初始界面 图26 属性设置后的界面 （2）属性设置设置属性后的界面如图26所示。表22属性设置对象属性名称属性值Form1Caption交换Label1Caption输入第1个数Label2Caption输入第2个数Text1Text空Text2Text空Command1NameCmdChangeCaption交换DefaultTureCommand2Name

12、CmdClearCaption清空Command3NameCmdExitCaption退出（3）编写程序代码 Option Explicit Private Sub CmdChange_Click( ) Dim temp As Integer temp=Text1.Text Text1.Text=Text2.Text Text2.Text=temp End Sub Private Sub CmdExit_Click( ) Unload Me End Sub Private Sub CMdCLear_Click( ) Text1.Text=” Text2.Text=” Text1.SetFocu

13、s End Sub(4) 运行程序 执行结果如图2-7（a）、（b）所示。单击“清空”按钮并再数入数据，进行交换。 图2-7（a）交换前的界面 图2-7（b）单击交换后的界面 四、实验心得 通过本次实验，我掌握命令按钮、文本框和标签常用属性值的设置方法，学会了使用命令按钮、文本框和标签在窗体上建立用户界面的方法并且掌握命令按钮的主要事件的使用。西安工业大学实验报告 专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月25日同实验者实验项目VB控制结构实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium

14、166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （1）掌握逻辑表达式的正确书写形式。 （2）掌握单分支与双分支条件语句的用法，熟悉If.Then.Else语句。 （3）掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句。 （4）掌握For语句的使用。 （5）掌握Do语句的使用。 （6）掌握如何控制循环条件，防止死循环或不循环。二、实验内容 （1）编写程序，利用文本框检查用户密码。提示：可以用

15、文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。 （2）输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句SelectCase来解决。 （3）利用For循环求S=1+(1+2)+(1+2+3)+(1+2+3+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器也可用一个循环来实现括号内每累加一个数，就往S中累加一次。 （4）输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否

16、素数，只要依次2n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。三、实验步骤、数据记录及处理选择结构1实验内容（1）建立用户界面。（2）设置对象属性。表41 属性设置对象属性属性值说明Frame1Caption请输入您的密码： Text1Text清空PasswordChar*只显示字符“*”Label1CaptionFontName黑体字体名称fontSize三号字体大小（3）编写事件代码。Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 回车字符的Ascii为13 If Text1.Text

17、= 123456 Then Label1.Caption = 欢迎使用本系统！ Else Label1.Caption = 对不起，密码错！ End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End IfEnd Sub（4）运行程序程序输出界面如图41，图42所示。 图41 验证密码正确 图42 验证密码不正确2实验内容（1）建立用户界面。参考图43所示。图43 界面设计（2）设置对象属性。表42 属性设置对象属性属性值说明Form1Caption星期Label1Caption输入一个数字（0-6）Label2Caption空

18、BorderStyle1-Fixed Single边框样式Command1Caption星期DefaultTrue缺省命令按钮Text1Text“”空（3）编写事件代码。Private Sub Command1_Click()Dim n As Integer, m As Stringn = Val(Text1.Text)Select Case nCase 1m = 星期一（Monday）Case 2m = 星期二（Tuesday）Case 3m = 星期三（Wednesday）Case 4m = 星期四（Thursday）Case 5m = 星期五（Friday）Case 6m = 星期六（S

19、aturday）Case 0m = 星期日（Sunday）Case Elsem = 重新输入 End Select Label2.Caption = mEnd Sub （4）运行结果程序输出界面如图44所示。图44 程序运行结果循环结构1实验内容（1）建立用户界面。（2）设置对象属性。参考图51所示。 图51 属性设置 图52 程序运行结果（3）编写事件代码。Private Sub Command1_Click( )Dim n As Integer, i As Integer, j As Integer, s As Longn = Val(Text1.Text)j = 0: s = 0For

20、i = 1 To nj = j + is = s + jNext iLabel2.Caption = 和数S= & Str(s)Text1.SelLength = Len(Text1.Text)End Sub（4）运行程序程序输出界面如图52所示。2实验内容（1）建立用户界面。参考图53所示。图53 界面设计（2）设置对象属性。（3）编写事件代码。 Private Sub Text1_GotFocus( )Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command1_Click()Dim n As

21、LongSelect Case Val(Text1.Text)Case Is 2147483647MsgBox 该数太大, vbInformation + vbOKOnly, 注意Case Elsen = Val(Text1.Text)s = 0i = 2Do While i = Sqr(n) And s = 0If n Mod i = 0 Thens = 1Else: i = i + 1End IfLoopIf s = 0 Thena = 是一个素数Elsea = 不是一个素数End IfLabel1.Caption = Str(n) & aEnd SelectText1.SetFocusE

22、nd Sub（4）运行程序程序运行结果如图54所示。图54 程序运行结果四、实验心得通过本次实验，我掌握了逻辑表达式的正确书写形式，掌握了单分支与双分支条件语句的用法，熟悉了If.Then.Else语句，掌握了选择结构中多条件，多分支程序的用法，熟悉Select Case语句，掌握了For语句的使用，Do语句的使用以及如何控制循环条件，防止死循环或不循环。西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年3月25日同实验者实验项目数据的输入、输出实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为

23、Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的 （1）掌握表达式的构成和如何求表达式的值。 （2）掌握赋值语句的使用。 （3）掌握InputBox函数的使用。 （4）掌握MsgBox语句的使用。 二、实验内容 （1）利用InputBox函数和MsgBox语句求圆的周长。 （2）利用InputBox函数输入三角形的三边的长度a,b,c,计算三角形的面积并显示在窗体上。三、实验步骤、数据记录及处理1实

24、验内容(1) 设计界面在窗体上添加一个命令按钮。初始界面如图31所示。 图31 初始界面 图32 设置属性后的界面(2) 设置属性表31 属性设置对象属性属性值Command1Caption计算圆的周长Form1CaptionInputBox和MsgBox举例设置属性后的界面如图32所示。(3) 编写程序代码Private Sub Command1_Click( ) Const pi = 3.14159 Dim r As Single, s As String, s2 As String Dim zhouchang As Single s = InputBox(请输入半径, 输入半径, 1)

25、r = Val(s) zhouchang = 2 * pi * r s2 = 半径= + s + ,圆的周长= + Str(zhouchang) MsgBox s2, 64, 确认窗口End Sub(4) 运行程序单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图33所示。(a) (b) (c)图33 计算圆的周长2实验内容(1) 设计界面初始界面如图34所示。(2) 设置属性表31 属性设置对象属性属性值Form1Caption求三角形的面积图3-4 初始界面 (3) 编写程序代码

26、Private Sub Form_click()Dim a As Single, b As Single, c As SingleDim s As Single, p As Singlea = InputBox(请输入三角形的边a：, 输入)b = InputBox(请输入三角形的边b：, 输入)c = InputBox(请输入三角形的边c：, 输入)If (a + b = c Or a + c = b Or b + c = c Or Abs(a - c) = b Or Abs(b - c) = a) Then MsgBox (你输入的数据有误！)Elsep = (a + b + c) / 2

27、s = Sqr(p * (p - a) * (p - b) * (p - c)Print 三角形的面积为：; sEnd IfEnd Sub（4）运行程序如图35（a）（b）（c）（d）所示 (a) (b) （c） （d）图35 计算三角形的面积四、实验心得通过这次实验，我掌握了表达式的构成和如何求表达式的值，掌握了赋值语句的使用，掌握了InputBox函数的使用和MsgBox语句的使用。 西安工业大学实验报告专业信息管理与信息系统班级130513姓名贾丹丹学号130513117实验课程可视化程序设计指导教师姬浩实验日期2015年4月12日同实验者实验项目VB数组应用实验设备及器材硬件：IBM PC 及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。软件：操作系统为中文Windows 95/98或Windows 2000 Professional,开发环境为Visual Basic 6.0 中文企业版。一、实验目的